~ chicken-core (chicken-5) 8910d79edf601682af6bc396a2509f0f2c7dea6d

commit 8910d79edf601682af6bc396a2509f0f2c7dea6d
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun Jan 5 19:55:44 2014 +0100
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Jan 5 19:55:44 2014 +0100

    Convert map-se to be a macro
    
    This avoids a warning messages when compiling a debugbuild and keeping the "d" macro disabled (the default).

diff --git a/expand.scm b/expand.scm
index d1a16a04..443526c1 100644
--- a/expand.scm
+++ b/expand.scm
@@ -43,6 +43,14 @@
 
 (define-syntax d (syntax-rules () ((_ . _) (void))))
 
+;; Macro to avoid "unused variable map-se" when "d" is disabled
+(define-syntax map-se
+  (syntax-rules ()
+    ((_ ?se)
+     (map (lambda (a) 
+	    (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>)))
+	  ?se))))
+
 (set! ##sys#features
   (append '(#:hygienic-macros 
 	    #:syntax-rules 
@@ -91,12 +99,6 @@
 		ua))
 	alias) ) )
 
-#+debugbuild
-(define (map-se se)
-  (map (lambda (a) 
-	 (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>)))
-       se))
-
 (define (##sys#strip-syntax exp)
  ;; if se is given, retain bound vars
  (let ((seen '()))