diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
| -rw-r--r-- | src/interp/lisp-backend.boot | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index c19da522..e0d5a80e 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -787,12 +787,6 @@ COMPILE1 fun == $Decls: local := nil [name,lambda] := fun [type,args,:body] := lambda - if type is 'LAM then - lambda := f(name,lambda) where - f(n,x) == - $lamName: local := makeSymbol strconc(n,'",LAM") - EVAL x - [type,args,:body] := lambda if body is [['DECLARE,['SPECIAL,:xs]],:body'] then $Decls := xs body := body' |