@@ -816,9 +816,6 @@ (mac after (x . ys) `(protect (fn () ,x) (fn () ,@ys))) -(def mklist (xs) - (check xs alist (list xs))) - (= declare-fns* (table)) (defs decl-idfn (old new args) new @@ -828,16 +825,18 @@ (= declare-fns*.key setfn declarations*.key default)) -(def declare (key val) - (let (k . args) (mklist key) - (iflet f declare-fns*.k - (zap f declarations*.k val args) - (declerr key)))) +(let mklist (fn (x) + (check x alist list.x)) + (def declare (key val) + (let (k . args) mklist.key + (iflet f declare-fns*.k + (zap f declarations*.k val args) + declerr.key)))) (def decl (key) (if declare-fns*.key declarations*.key - (declerr key))) + declerr.key)) (= declerr [err "Unknown declaration: " _]) arc.arc c680f659c60961eb61b260b245c0cec318460429 Justin Kendrick twilightsentry@gmail.com http://github.com/nex3/arc/commit/e05eedb15f20af392ce8d0ac88e99653b04dc91f e05eedb15f20af392ce8d0ac88e99653b04dc91f 2009-09-29T12:12:53-07:00 2009-09-29T12:12:53-07:00 avoid defining 'mklist in arc.arc a89d26573b593769447f85a24f03a1a31ee5f4d8 Justin Kendrick twilightsentry@gmail.com