ref: cace583970f7f5c50f40cd796bc7b60fbb5d5409
parent: 1d2ccbb5820bc4097d80f5145b10122656953b8f
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Mon Dec 2 21:38:03 EST 2024
eradicate more "lambda"
--- a/compiler.lsp
+++ b/compiler.lsp
@@ -487,7 +487,7 @@
(begin (emit g 'loadv the-f)
(if (not (null? cenv))
(begin
- (for-each (lambda (var)
+ (for-each (λ (var)
(compile-sym g env var #f))
cenv)
(emit g 'closure (length cenv)))))))
@@ -644,7 +644,7 @@
capt setd))
(else
(cons (complex-bindings- (car e) vars (inlineable? e) nested capt setd)
- (map (lambda (x)
+ (map (λ (x)
(complex-bindings- x vars #f nested capt setd))
(cdr e))))))