~ chicken-core (chicken-5) a9ba2de69b7b1ee42b7b6ff0db8f67ca776874d4

commit a9ba2de69b7b1ee42b7b6ff0db8f67ca776874d4
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Mon Apr 12 09:22:40 2021 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Apr 15 10:02:47 2021 +0200

    Remove deprecated keyword? check from identifier lookup in compiler
    
    This should never get triggered, because we only call lookup
    on symbols, and keywords are now distinct from symbols.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/core.scm b/core.scm
index 492a23a7..cdfbefa2 100644
--- a/core.scm
+++ b/core.scm
@@ -528,8 +528,7 @@
 	  (else (find-id id (cdr se)))))
 
   (define (lookup id)
-    (cond ((keyword? id) id)		; DEPRECATED
-	  ((find-id id (##sys#current-environment)))
+    (cond ((find-id id (##sys#current-environment)))
 	  ((##sys#get id '##core#macro-alias) symbol? => values)
 	  (else id)))