ref: 910a7321473f64b852a39200f44936461dce3b01
parent: b5008154c7c41e39235d43eed0b1ac52465ba9e3
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))))))