   rest [ [ convert-form map ] map ] [ % cond ] bake ;
   
 : convert-general-form ( s-exp -- quot )
-  unclip convert-form swap convert-body [ , % funcall ] bake ;
+  unclip convert-form swap convert-body [ , lookup-vars % funcall ] bake ;
 
 ! words for convert-lambda  
 <PRIVATE  

: rest-lambda ( body vars -- quot )  
  "&rest" swap [ remove ] [ index ] 2bi
  [ localize-lambda <lambda> ] dip
  [ , cut swap [ % , ] bake , compose ] bake ;
  
: normal-lambda ( body vars -- quot )
  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
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
