~ chicken-core (chicken-5) 7cd76bf1f7d67ec0a972e45779d18e33b0dbc91d

commit 7cd76bf1f7d67ec0a972e45779d18e33b0dbc91d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Feb 18 16:03:23 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Feb 18 16:03:23 2010 +0100

    use qualified symbol in assignment comment in generated code

diff --git a/c-backend.scm b/c-backend.scm
index edbd6438..9d98517e 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -200,7 +200,7 @@
 	       (if block
 		   (gen "C_mutate(&lf[" index "]")
 		   (gen "C_mutate((C_word*)lf[" index "]+1") )
-	       (gen " /* (set! " (uncommentify (symbol->string var)) " ...) */,")
+	       (gen " /* (set! " (uncommentify (##sys#symbol->qualified-string var)) " ...) */,")
 	       (expr (car subs) i)
 	       (gen #\)) ) )