Removing special case for 'begin' in lisp - will implement as a macro

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 802b236b256e3b2f85d4f85ae2c5a6089c58e43d..67b56ae27a3faad2d89f88bc39488be425322592 100644 (file)
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -19,9 +19,6 @@ DEFER: define-lisp-macro
 : convert-body ( cons -- quot )
     [ ] [ convert-form compose ] foldl ; inline
     
-: convert-begin ( cons -- quot )  
-    cdr [ convert-form ] [ ] lmap-as '[ , [ call ] each ] ;
-    
 : convert-cond ( cons -- quot )  
     cdr [ 2car [ convert-form ] bi@ 2array ]
     { } lmap-as '[ , cond ]  ;
@@ -71,7 +68,6 @@ PRIVATE>
     { { "lambda" [ convert-lambda ] }
       { "defmacro" [ convert-defmacro ] }
       { "quote" [ convert-quoted ] }
-      { "begin" [ convert-begin ] }
       { "cond" [ convert-cond ] }
      [ drop convert-general-form ]
     } case ;