fixed oo

2019-06-06 15:57:04 +02:00
parent 582022601c
commit d01269aa13
5 changed files with 21 additions and 10 deletions
@@ -13,5 +13,11 @@
         (set-type
           (lambda (:rest args)
             "This is the docs for the handle"
-             (eval args))
+             (let ((op (eval (first args))))
+               (if (callable? op)
+                   (eval args)
+                 (eval (first args)))))
           ,(symbol->keyword name))))))
+
+(define-syntax (-> obj meth :rest args)
+  `(,obj ',meth @args))