conservatory
/
femtolisp
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

simpler proxy function for list builtin

This commit is contained in:
Jeff Bezanson 2013-06-11 17:58:15 -04:00
parent 2c454342da
commit 92542d0b78
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
flisp.boot
View File

@ -15,8 +15,7 @@
#fn("6000r1|I;" []) #fn("6000r1|I;" [])
#fn("6000r1|J;" []) #fn("6000r1|J;" [])
#fn("7000r2|}K;" []) #fn("7000r2|}K;" [])
#fn("9000s0c0|v2;" [#.list]) #fn("8000s0|;" []) #fn("6000r1|M;" [])
#fn("6000r1|M;" [])
#fn("6000r1|N;" []) #fn("6000r1|N;" [])
#fn("7000r2|}O;" []) #fn("7000r2|}O;" [])
#fn("7000r2|}P;" []) #fn("7000r2|}P;" [])

2
system.lsp
View File

@ -16,7 +16,7 @@
(lambda (x) (pair? x)) (lambda (x) (builtin? x)) (lambda (x) (pair? x)) (lambda (x) (builtin? x))
(lambda (x) (vector? x)) (lambda (x) (fixnum? x)) (lambda (x) (vector? x)) (lambda (x) (fixnum? x))
(lambda (x) (function? x)) (lambda (x y) (cons x y)) (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) (cdr x)) (lambda (x y) (set-car! x y))
(lambda (x y) (set-cdr! x y)) (lambda rest (apply apply rest)) (lambda (x y) (set-cdr! x y)) (lambda rest (apply apply rest))
(lambda rest (apply + rest)) (lambda rest (apply - rest)) (lambda rest (apply + rest)) (lambda rest (apply - rest))