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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-28 04:23:50 -0700 (Wed, 28 Sep 2005)
New Revision: 1647

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmOp_eval): Add strict checking for '() for
    SCM_STRICT_R5RS. Although () is not a valid R5RS form, we should
    allow it by default for efficiency


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-28 10:59:38 UTC (rev 1646)
+++ branches/r5rs/sigscheme/eval.c	2005-09-28 11:23:50 UTC (rev 1647)
@@ -473,6 +473,10 @@
     state.ret_type = SCM_RETTYPE_AS_IS;
 
 eval_loop:
+#if SCM_STRICT_R5RS
+    if (NULLP(obj))
+        SigScm_Error("() is not a valid R5RS form. use '() instead");
+#endif
     switch (SCM_TYPE(obj)) {
     case ScmSymbol:
         ret = symbol_value(obj, state.env);