about summary refs log tree commit diff stats
path: root/mu.arc
diff options
context:
space:
mode:
Diffstat (limited to 'mu.arc')
-rw-r--r--mu.arc16
1 files changed, 8 insertions, 8 deletions
diff --git a/mu.arc b/mu.arc
index 4029ab20..8658c7fb 100644
--- a/mu.arc
+++ b/mu.arc
@@ -5,6 +5,14 @@
   (each f (as cons initialization-fns*)
     (f)))
 
+(mac init-fn (name . body)
+  `(enq (fn () (= (function* ',name) ',body))
+        initialization-fns*))
+
+(mac on-init body
+  `(enq (fn () (run ',body))
+        initialization-fns*))
+
 (def clear ()
   (= types* (obj
               ; must be scalar or array, sum or product or primitive
@@ -26,14 +34,6 @@
   (= function* (table)))
 (enq clear initialization-fns*)
 
-(mac init-fn (name . body)
-  `(enq (fn () (= (function* ',name) ',body))
-        initialization-fns*))
-
-(mac on-init body
-  `(enq (fn () (run ',body))
-        initialization-fns*))
-
 (def add-fns (fns)
   (each (name . body) fns
     (= function*.name body)))