shithub: femtolisp

Info  •  Files  •  Log  •  Branches

simpler proxy function for list builtin

--- a/flisp.boot

+++ b/flisp.boot

@@ -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;" [])

--- a/system.lsp

+++ b/system.lsp

@@ -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))