cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 3fcc80d6abfcdb324a8608650cf175d1f550bc24
Author: Robin Templeton <[email protected]>
AuthorDate: Mon Aug 4 23:17:21 2014 -0400
degenerate let forms
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/language/elisp/compile-tree-il.scm (let): Conditionally invoke
make-body within make-dynlet or just on its own depending on whether
or not dynamic? is null?.
---
module/language/elisp/compile-tree-il.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/module/language/elisp/compile-tree-il.scm
b/module/language/elisp/compile-tree-il.scm
index 9533e91..29c769d 100644
--- a/module/language/elisp/compile-tree-il.scm
+++ b/module/language/elisp/compile-tree-il.scm
@@ -590,12 +590,14 @@
loc
(map car dynamic)
(if (null? lexical)
- (make-dynlet loc
- (map (compose (cut make-const loc <>) car)
- dynamic)
- (map (compose compile-expr cdr)
- dynamic)
- (make-body))
+ (if (null? dynamic)
+ (make-body)
+ (make-dynlet loc
+ (map (compose (cut make-const loc <>) car)
+ dynamic)
+ (map (compose compile-expr cdr)
+ dynamic)
+ (make-body)))
(let* ((lexical-syms (map (lambda (el) (gensym)) lexical))
(dynamic-syms (map (lambda (el) (gensym)) dynamic))
(all-syms (append lexical-syms dynamic-syms))
