From 83e790c8cd405a093eea33505fd2410011aae056 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sun, 11 Apr 2021 13:07:27 +0200 Subject: [PATCH] Remove keyword? check from ##sys#alias-global-hook Because symbols and keywords are now disjoint, this hook should never be called anymore with a keyword. It is only called on identifiers, which are always symbols. --- modules.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/modules.scm b/modules.scm index 29fb92e5..4f9b507b 100644 --- a/modules.scm +++ b/modules.scm @@ -802,8 +802,7 @@ (register-undefined sym mod where)) (module-rename sym (module-name mod)))) (else sym))) - (cond ((keyword? sym) sym) - ((namespaced-symbol? sym) sym) + (cond ((namespaced-symbol? sym) sym) ((assq sym (##sys#current-environment)) => (lambda (a) (let ((sym2 (cdr a))) -- 2.20.1