From 734e8c28241e95f7425a18d8791b35ff5e98f7db Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 21 Aug 2014 21:37:55 -0700 Subject: 69 --- mu.arc | 16 ++++++++-------- 1 file 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))) -- cgit 1.4.1-2-gfad0