initial support for nil, make-list
unfinished, but usable.. still 0 is false in libs and code
This commit is contained in:
@@ -69,6 +69,19 @@
|
||||
0)
|
||||
))
|
||||
|
||||
(defun make-list-of (size val)
|
||||
(do
|
||||
(define lst '())
|
||||
(define i 0)
|
||||
(while (< i size)
|
||||
(define lst (push lst val))
|
||||
(define i (inc i)))
|
||||
lst
|
||||
))
|
||||
|
||||
(defun make-list (size)
|
||||
(make-list-of size nil))
|
||||
|
||||
|
||||
; quicksort
|
||||
(defun quick-sort-by (l cmp)
|
||||
|
||||
Reference in New Issue
Block a user