~ chicken-core (chicken-5) c8b4d7ffe677e09847bc67d507f11c1088ea0c86

commit c8b4d7ffe677e09847bc67d507f11c1088ea0c86
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Mar 14 12:40:52 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Mar 14 12:40:52 2011 +0100

    Revert "Fix #519 by putting a ##core#real-name onto module-exported symbols"
    
    This reverts commit 1e2546c1ee895e0809dc1900b485506470264865.

diff --git a/expand.scm b/expand.scm
index 2c4b65d3..943ddb31 100644
--- a/expand.scm
+++ b/expand.scm
@@ -269,12 +269,11 @@
 (define ##sys#enable-runtime-macros #f)
 
 (define (##sys#module-rename sym prefix)
-  (let ((qualified-symbol (##sys#string->symbol (string-append
-                                                 (##sys#slot prefix 1)
-                                                 "#"
-                                                 (##sys#slot sym 1) ) )))
-    (putp qualified-symbol '##core#real-name sym)
-    qualified-symbol) )
+  (##sys#string->symbol 
+   (string-append 
+    (##sys#slot prefix 1)
+    "#" 
+    (##sys#slot sym 1) ) ) )
 
 (define (##sys#alias-global-hook sym assign where)
   (define (mrename sym)
diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index 3d151ee2..16878b23 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -196,22 +196,6 @@
       (bar foo))))
 )
 
-;;; strip-syntax on renamed module identifiers, as well as core identifiers
-(module foo (bar)
-  (import chicken scheme)
-
-  (define bar 1))
-
-(import foo)
-
-(define-syntax baz
-  (er-macro-transformer
-   (lambda (e r c)
-     `',(strip-syntax (r 'bar)))))
-
-(t 'bar (baz bar))
-(t 'bar (baz void))
-
 ;;; alternative ellipsis test (SRFI-46)
 
 (define-syntax foo