mike
/
transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Convert array to a list by default

This commit is contained in:
Mike Cifelli 2018-02-04 09:36:37 -05:00
parent 3e24991be8
commit c33d8e5d38
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/random/array.lisp
View File

@ -11,8 +11,9 @@
(eval (fuse ',index-prefix i))) (eval (fuse ',index-prefix i)))
(:set (i value) (:set (i value)
(if (< i ,length) (if (and (< i ,length) (> i -1))
(set (fuse ',index-prefix i) value))) (set (fuse ',index-prefix i) value)
(call ,this :get i))) ;; show error
(:length () (:length ()
,length) ,length)
@ -24,7 +25,7 @@
(recur (recur
(rest indices) (rest indices)
(cons (cons
(list (first indices) (call ,this :get (first indices))) (call ,this :get (first indices))
accumulator)))) accumulator))))
(reverse ',indices) (reverse ',indices)
nil))))))) nil)))))))