From b4ee6715001382637898bd595e4cb74bb3f53b3d Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Thu, 19 Jun 2008 18:36:44 -0400
Subject: [PATCH] Removing special case for 'begin' in lisp - will implement as
 a macro

---
 extra/lisp/lisp.factor | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 802b236b25..67b56ae27a 100644
--- 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 ;