Move array functions out of global scope

lisp/random/array.lisp

@@ -1,40 +1,43 @@
-(defmacro array (length)
-  (let* ((this (gensym))
-         (index-prefix (fuse this 'index))
-         (indices (create-indices length))
-         (index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))
+(let ((static))
 
-    `(let ,index-bindings
-      (setq ,this
-        (dlambda
-          (:get (i)
-            (eval (fuse ',index-prefix i)))
+  (setq static
+    (dlambda
+      (:create-indices (length)
+        (call static :create-indices-tail (- length 1) ()))
 
-          (:set (i value)
-            (if (and (< i ,length) (> i -1))
-              (set (fuse ',index-prefix i) value)
-              (call ,this :get i))) ;; show error
+      (:create-indices-tail (index accumulator)
+        (if (< index 0)
+          accumulator
+          (recur (- index 1) (cons index accumulator))))))
 
-          (:length ()
-            ,length)
+  (defmacro array (length)
+    (let* ((this (gensym))
+           (index-prefix (fuse this 'index))
+           (indices (call static :create-indices length))
+           (index-bindings (map (lambda (i) (list (fuse index-prefix i))) indices)))
 
-          (t ()
-            ((lambda (indices accumulator)
-               (if (null? indices)
-                 accumulator
-                 (recur
-                   (rest indices)
-                   (cons
-                     (call ,this :get (first indices))
-                     accumulator))))
-             (reverse ',indices)
-             nil)))))))
+      `(let ,index-bindings
+        (setq ,this
+          (dlambda
+            (:get (i)
+              (eval (fuse ',index-prefix i)))
 
+            (:set (i value)
+              (if (and (< i ,length) (> i -1))
+                (set (fuse ',index-prefix i) value)
+                (call ,this :get i))) ;; show error
 
-(defun create-indices (length)
-  (create-indices-tail (- length 1) ()))
+            (:length ()
+              ,length)
 
-(defun create-indices-tail (index accumulator)
-  (if (< index 0)
-    accumulator
-    (recur (- index 1) (cons index accumulator))))
+            (t ()
+              ((lambda (indices accumulator)
+                 (if (null? indices)
+                   accumulator
+                   (recur
+                     (rest indices)
+                     (cons
+                       (call ,this :get (first indices))
+                       accumulator))))
+               (reverse ',indices)
+               nil))))))))