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