~ chicken-core (chicken-5) db71a1b4ef3ccc5900f2bf102d718b1c9e87a2b5

commit db71a1b4ef3ccc5900f2bf102d718b1c9e87a2b5
Author:     arthurmaciel <arthurmaciel@gmail.com>
AuthorDate: Sat Sep 13 16:54:50 2014 -0300
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 13 23:31:30 2014 +0200

    * modules.scm: Removed #+debugbuild map-se duplicate and corrected typo.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/modules.scm b/modules.scm
index f5278c20..0054f370 100644
--- a/modules.scm
+++ b/modules.scm
@@ -54,18 +54,12 @@
 
 ;;; Support definitions
 
-;; duoplicates code in the hope of being inlined
+;; duplicates code in the hope of being inlined
 (define (lookup id se)
   (cond ((##core#inline "C_u_i_assq" id se) => cdr)
 	((getp id '##core#macro-alias))
 	(else #f)))
 
-#+debugbuild
-(define (map-se se)
-  (map (lambda (a) 
-	 (cons (car a) (if (symbol? (cdr a)) (cdr a) '<macro>)))
-       se))
-
 
 ;;; low-level module support