>From c1d87e77993abf4b2835fff140e8c46fcde9b85d Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sun, 10 Aug 2014 14:55:01 +0200 Subject: [PATCH 01/19] compiler-modules: Add normal lookup fallback to private namespace hack We now remember and call the usual implementation of alias-global-hook for all variables not part of the namespace hack, so that modules inside the compiler are supported, but the namespace hack still keeps working for units not yet converted to a module. Eventually private-namespace.scm will be removed completely. --- private-namespace.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/private-namespace.scm b/private-namespace.scm index a71b552..997f475 100644 --- a/private-namespace.scm +++ b/private-namespace.scm @@ -43,6 +43,7 @@ vars) '(##core#undefined) ) ) ) ) ) -(set! ##sys#alias-global-hook - (lambda (var . assign) ; must work with old chicken - (or (get var 'c:namespace) var) ) ) +(let ((old-hook ##sys#alias-global-hook)) + (set! ##sys#alias-global-hook + (lambda (var . assign) ; must work with old chicken + (or (get var 'c:namespace) (apply old-hook var assign)) ) )) -- 1.7.10.4