[uim-commit] r1810 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-04 15:24:03 -0700 (Tue, 04 Oct 2005)
New Revision: 1810

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (print_constant): Remove incorrect non-constant things. They are
    not a special constant but a symbol


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-10-04 22:20:32 UTC (rev 1809)
+++ branches/r5rs/sigscheme/debug.c	2005-10-04 22:24:03 UTC (rev 1810)
@@ -461,14 +461,6 @@
         fprintf(f, "#f");
     else if (EQ(obj, SCM_EOF))
         fprintf(f, "#<eof>");
-    else if (EQ(obj, SCM_QUOTE))
-        fprintf(f, "#<quote>");
-    else if (EQ(obj, SCM_QUASIQUOTE))
-        fprintf(f, "#<quasiquote>");
-    else if (EQ(obj, SCM_UNQUOTE))
-        fprintf(f, "#<unquote>");
-    else if (EQ(obj, SCM_UNQUOTE_SPLICING))
-        fprintf(f, "#<unquote_splicing>");
     else if (EQ(obj, SCM_UNBOUND))
         fprintf(f, "#<unbound>");
     else if (EQ(obj, SCM_UNDEF))