~ chicken-core (chicken-5) c08efe2b8d2dcb339d4d8f9f0bc609bfea13b79c

commit c08efe2b8d2dcb339d4d8f9f0bc609bfea13b79c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jan 12 09:42:44 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jan 12 09:42:44 2010 +0100

    fix for wrong entry in real-name hash-table

diff --git a/compiler.scm b/compiler.scm
index 8dd0eff8..f9f31cd2 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -1487,7 +1487,7 @@
 	 [f-id (gensym 'stub)]
 	 [bufvar (gensym)] 
 	 [rsize (estimate-foreign-result-size rtype)] )
-    (set-real-name! f-id #t)
+    (when sname (set-real-name! f-id (string->symbol sname)))
     (set! foreign-lambda-stubs 
       (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
 	    foreign-lambda-stubs) )