WIP Add var# tag

TODO: document/doctest
gilch · Oct 29, 2024 · 889a4d3 · 889a4d3
1 parent a793128
commit 889a4d3
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/hissp/macros.lissp b/src/hissp/macros.lissp
@@ -461,7 +461,7 @@ See `hissp.macros`.
     (let (form `(setattr (.get (globals) "_macro_")
                          ',name
                          (fun ,(.format "_macro_.{}" name) ,parameters ,@body)))
-      (if-else (operator..contains (.get hissp.compiler..ENV) '_macro_)
+      (if-else (operator..contains (.get hissp..*env*) '_macro_)
         form
         `(progn (.setdefault (globals) "_macro_" (types..SimpleNamespace))
                 ,form)))))
@@ -2707,6 +2707,12 @@ See `hissp.macros`.
   `(lambda (: :* $#xs)
      (ft#reduce ,f $#xs)))
 
+(defmacro var\# f
+  "makes function arguments reloadable"
+  `(ft#update_wrapper (lambda (: :* $#args  :** $#kwargs)
+                        (,f : :* $#args  :** $#kwargs))
+                      ,f))
+
 ;;;; Collection
 
 (defmacro @ (: :* xs)