Add exit.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 19:31:45 +0000 (20:31 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 19:31:45 +0000 (20:31 +0100)
* lib.c (exit_): Rename from builtin_exit.
* module/mes/scm.mes (list): Remove.

lib.c
module/mes/scm.mes

diff --git a/lib.c b/lib.c
index 81da6e2a5af32c02094eb893157c028746e45529..57bafd9e04edb7dfa9282ed26676abb7e561da2c 100644 (file)
--- a/lib.c
+++ b/lib.c
@@ -50,7 +50,7 @@ list (SCM x) ///((arity . n))
 }
 
 SCM
-builtin_exit (SCM x)
+exit_ (SCM x) ///((name . "exit"))
 {
   assert (TYPE (x) == NUMBER);
   exit (VALUE (x));
index 808120fced61262dad25258058febbd97abab1bc..58659ff1ca7fb90e830b83ea0220900c57150166 100644 (file)
 
 \f
 ;;; Lists
-(define (list . rest) rest)
-
 (define (make-list n . x)
   (let ((fill (if (pair? x) (car x) *unspecified*)))
     (let loop ((n n))