~ chicken-core (chicken-5) b9c92d11d8fe5dc1a2ec34df7417a30c6bd8cdb5
commit b9c92d11d8fe5dc1a2ec34df7417a30c6bd8cdb5
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Mar 14 17:51:28 2018 +1300
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sun Mar 18 15:06:56 2018 +0100
Strip gensym noise from lambda-infos
This gives a slightly nicer user experience by preserving the in-source
names given to a procedure's arguments in its lambda-info.
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/core.scm b/core.scm
index be629780..00eb04dc 100644
--- a/core.scm
+++ b/core.scm
@@ -2601,7 +2601,8 @@
(qnode
(##sys#make-lambda-info
(->string (cons (or (real-name id) '?)
- (cdr llist) )))))) ; this is not always correct, due to optimizations
+ ;; this is not always correct, due to optimizations
+ (strip-syntax (cdr llist))))))))
cvars) ) ) ) ) ) ) ) )
((set!)
Trap