From b0157017c6060a57d6b2fc87752446bc518cee57 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Mon, 12 Apr 2021 09:22:40 +0200 Subject: [PATCH] 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. --- core.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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))) -- 2.20.1