 : rest-lambda ( body vars -- quot )  
   "&rest" swap [ remove ] [ index ] 2bi
   [ localize-lambda <lambda> ] dip
-  [ , lookup-vars cut swap [ % , ] bake , compose ] bake ;
+  [ , cut swap [ % , ] bake , compose ] bake ;
   
 : normal-lambda ( body vars -- quot )
-  localize-lambda <lambda> [ lookup-vars , compose ] bake ;
+  localize-lambda <lambda> [ , compose ] bake ;
 PRIVATE>
   
 : convert-lambda ( s-exp -- quot )  


DEFER: convert-form
DEFER: funcall
DEFER: lookup-vars

! Functions to convert s-exps to quotations
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  rest convert-form ;
  
: convert-cond ( s-exp -- quot )  
  rest [ body>> >array [ convert-form ] map first2 swap `{ [ % funcall ] , } bake ]
  map >array [ , cond ] bake ;
  
: convert-general-form ( s-exp -- quot )
  unclip convert-form swap convert-body [ , % funcall ] bake ;

! words for convert-lambda  
<PRIVATE  
