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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 05:35:33 -0700 (Fri, 30 Sep 2005)
New Revision: 1693

Modified:
   branches/r5rs/sigscheme/operations-siod.c
Log:
* sigscheme/operations-siod.c
  - (ScmOp_symbol_boundp):
    * Add lacking type check for the arg
    * Add future implementation as a comment


Modified: branches/r5rs/sigscheme/operations-siod.c
===================================================================
--- branches/r5rs/sigscheme/operations-siod.c	2005-09-30 12:25:04 UTC (rev 1692)
+++ branches/r5rs/sigscheme/operations-siod.c	2005-09-30 12:35:33 UTC (rev 1693)
@@ -97,7 +97,16 @@
  */
 ScmObj ScmOp_symbol_boundp(ScmObj obj)
 {
-    return (SYMBOLP(obj) && SCM_SYMBOL_BOUNDP(obj)) ? SCM_TRUE : SCM_FALSE;
+    if (!SYMBOLP(obj))
+        SigScm_ErrorObj("symbol-bound? : symbol required but got ", obj);
+
+#if 1
+    /* SIOD compatible implementation */
+    return (SCM_SYMBOL_BOUNDP(obj)) ? SCM_TRUE : SCM_FALSE;
+#else
+    return (!NULLP(lookup_environment(obj, env))
+            || SCM_SYMBOL_BOUNDP(obj)) ? SCM_TRUE : SCM_FALSE;
+#endif
 }
 
 /*