diff options
| -rw-r--r-- | mu.arc | 16 |
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))) |