~ chicken-core (chicken-5) 9ccd9009002c1cb657e26f28745557668cd70fe1

commit 9ccd9009002c1cb657e26f28745557668cd70fe1
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Apr 11 13:07:27 2021 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Apr 11 16:39:27 2021 +0200

    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.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

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)))