~ chicken-core (chicken-5) c26f6ae772e0db21bbc8e70e75ea16632956f24e
commit c26f6ae772e0db21bbc8e70e75ea16632956f24e
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Apr 19 12:20:19 2020 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sun Apr 19 21:14:12 2020 +0200
only enable call signature check for known procedures during analysis for non-global bindings
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/core.scm b/core.scm
index 272a1f77..584c3453 100644
--- a/core.scm
+++ b/core.scm
@@ -2126,6 +2126,7 @@
(val (db-get db name 'value)))
(when (and first-analysis
val
+ (not (db-get db name 'global))
(not (db-get db name 'unknown))
(eq? '##core#lambda (node-class val))
(not (llist-match? (third (node-parameters val))
Trap