~ chicken-core (chicken-5) 454bc1b6aac50c3b9a19628ee515d701041b5f90
commit 454bc1b6aac50c3b9a19628ee515d701041b5f90 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Thu Dec 16 18:52:39 2010 +0100 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Thu Dec 16 18:52:39 2010 +0100 removed incorrect text from comment diff --git a/compiler.scm b/compiler.scm index 0c526fa9..d86e45d8 100644 --- a/compiler.scm +++ b/compiler.scm @@ -1923,7 +1923,7 @@ (set-real-name! (first (node-parameters (or value pvalue))) sym) ) ;; If this is the first analysis and the variable is global and has no references - ;; and we are in block mode, then issue warning: + ;; then issue warning: (when (and first-analysis global (null? references)Trap