- ( body procargs nextval )
- -2rot 2swap ( nextval procargs body )
- make-lambda nil cons ( nextval lambda-exp )
- 2swap ( lambda-exp nextval )
- recurse
-;
+ begin
+ symbol-type istype? false =
+ while
+ 2dup cdr 2swap car ( val formals var' )
+ -2rot 2swap ( var' formals val )
+ make-lambda nil cons ( var' val' )
+ 2swap ( val' var' )
+ repeat