simpler proxy function for list builtin
This commit is contained in:
parent
2c454342da
commit
92542d0b78
|
@ -15,8 +15,7 @@
|
|||
#fn("6000r1|I;" [])
|
||||
#fn("6000r1|J;" [])
|
||||
#fn("7000r2|}K;" [])
|
||||
#fn("9000s0c0|v2;" [#.list])
|
||||
#fn("6000r1|M;" [])
|
||||
#fn("8000s0|;" []) #fn("6000r1|M;" [])
|
||||
#fn("6000r1|N;" [])
|
||||
#fn("7000r2|}O;" [])
|
||||
#fn("7000r2|}P;" [])
|
||||
|
|
|
@ -16,7 +16,7 @@
|
|||
(lambda (x) (pair? x)) (lambda (x) (builtin? x))
|
||||
(lambda (x) (vector? x)) (lambda (x) (fixnum? x))
|
||||
(lambda (x) (function? x)) (lambda (x y) (cons x y))
|
||||
(lambda rest (apply list rest)) (lambda (x) (car x))
|
||||
(lambda rest rest) (lambda (x) (car x))
|
||||
(lambda (x) (cdr x)) (lambda (x y) (set-car! x y))
|
||||
(lambda (x y) (set-cdr! x y)) (lambda rest (apply apply rest))
|
||||
(lambda rest (apply + rest)) (lambda rest (apply - rest))
|
||||
|
|
Loading…
Reference in New Issue