~ 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