~ 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