lassik
/
upscheme
1
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 committed by Lassi Kortela
parent 59e1bd0643
commit a5ae9c356a
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))