~ chicken-core (chicken-5) da042c2ae1f7936d3bf6565edc7e1c8cafce4066

commit da042c2ae1f7936d3bf6565edc7e1c8cafce4066
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Thu Feb 17 21:31:41 2011 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Thu Feb 17 21:31:41 2011 +0100

    Remove se and alias args from strip-syntax now they aren't used anymore

diff --git a/expand.scm b/expand.scm
index 20337cdd..4424e084 100644
--- a/expand.scm
+++ b/expand.scm
@@ -87,19 +87,15 @@
 	 (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>)))
        se))
 
-(define (##sys#strip-syntax exp #!optional se alias)
+(define (##sys#strip-syntax exp)
  ;; if se is given, retain bound vars
  (let ((seen '()))
    (let walk ((x exp))
      (cond ((assq x seen) => cdr)
            ((symbol? x)
-            (let ((x2 (if se
-                          (lookup x se)
-                          (getp x '##core#macro-alias) ) ) )
+            (let ((x2 (getp x '##core#macro-alias) ) )
               (cond ((getp x '##core#real-name))
                     ((getp x '##core#primitive))
-                    ((and alias (not (assq x se)))
-                     (##sys#alias-global-hook x #f #f))
                     ((not x2) x)
                     ((pair? x2) x)
                     (else x2))))