From a5ae9c356a00cb4b08606843512fab13da77c983 Mon Sep 17 00:00:00 2001
From: Jeff Bezanson <jeff.bezanson@gmail.com>
Date: Tue, 11 Jun 2013 17:58:15 -0400
Subject: [PATCH] simpler proxy function for list builtin

---
 flisp.boot | 3 +--
 system.lsp | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/flisp.boot b/flisp.boot
index 7cec0f8..0a04e40 100644
--- 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;" [])
diff --git a/system.lsp b/system.lsp
index 068c6ea..3814284 100644
--- 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))