[uim commit] r4868 - sigscheme-trunk/src

[codesite-noreply]

Author: yamakenz
Date: Mon Aug 20 02:01:15 2007
New Revision: 4868

Modified:
   sigscheme-trunk/src/legacy-macro.c

Log:
* src/legacy-macro.c
  - (scm_s_define_macro): Fix an argument passing


Modified: sigscheme-trunk/src/legacy-macro.c
==============================================================================
--- sigscheme-trunk/src/legacy-macro.c  (original)
+++ sigscheme-trunk/src/legacy-macro.c  Mon Aug 20 02:01:15 2007
@@ -115,7 +115,7 @@
     closure = SCM_SYMBOL_VCELL(identifier);
     ENSURE_CLOSURE(closure);
     if (!scm_toplevel_environmentp(SCM_CLOSURE_ENV(closure)))
-        ERR_OBJ("syntactic closure must have toplevel environment");
+        ERR("syntactic closure must have toplevel environment");
     /* destructively mark the closure as syntactic */
     SCM_CLOSURE_SET_ENV(closure, SCM_SYNTACTIC_CLOSURE_ENV);