From e94ecc68c285426544c195dc6d388e3ff0c87dd4 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 2 Feb 2009 23:36:14 +0100 Subject: [PATCH] Name anonymous let- or letrec-bound procedures * module/language/scheme/compile-ghil.scm (let, letrec): Give names to procedures of the form (let ((foo (lambda ....)))). --- module/language/scheme/compile-ghil.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/module/language/scheme/compile-ghil.scm b/module/language/scheme/compile-ghil.scm index 19ced1df2..1213703a8 100644 --- a/module/language/scheme/compile-ghil.scm +++ b/module/language/scheme/compile-ghil.scm @@ -248,7 +248,9 @@ ;; (let ((SYM VAL) ...) BODY...) ((,bindings . ,body) (guard (valid-bindings? bindings)) - (let ((vals (map retrans (map cadr bindings)))) + (let ((vals (map (lambda (b) + (maybe-name-value! (retrans (cadr b)) (car b))) + bindings))) (call-with-ghil-bindings e (map car bindings) (lambda (vars) (make-ghil-bind e l vars vals (trans-body e l body))))))) @@ -265,7 +267,10 @@ ((,bindings . ,body) (guard (valid-bindings? bindings)) (call-with-ghil-bindings e (map car bindings) (lambda (vars) - (let ((vals (map retrans (map cadr bindings)))) + (let ((vals (map (lambda (b) + (maybe-name-value! + (retrans (cadr b)) (car b))) + bindings))) (make-ghil-bind e l vars vals (trans-body e l body))))))) (define-scheme-translator cond