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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-13 06:31:40 -0800 (Sun, 13 Nov 2005)
New Revision: 2124

Modified:
   branches/r5rs/sigscheme/debug.c
Log:
* sigscheme/debug.c
  - (print_ScmObj_internal): Add #<syntax> for syntax object


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-11-13 14:30:29 UTC (rev 2123)
+++ branches/r5rs/sigscheme/debug.c	2005-11-13 14:31:40 UTC (rev 2124)
@@ -243,7 +243,7 @@
         print_string(port, obj, otype);
         break;
     case ScmFunc:
-        SCM_PORT_PRINT(port, "#<subr>");
+        SCM_PORT_PRINT(port, (SCM_SYNTAXP(obj)) ? "#<syntax>" : "#<subr>");
         break;
     case ScmClosure:
         SCM_PORT_PRINT(port, "#<closure:");