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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 07:23:02 -0800 (Wed, 04 Jan 2006)
New Revision: 2774

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (scm_symbol_value): Replace the comment about the precondition
    with SCM_ASSERT()


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2006-01-04 15:18:53 UTC (rev 2773)
+++ branches/r5rs/sigscheme/eval.c	2006-01-04 15:23:02 UTC (rev 2774)
@@ -72,7 +72,6 @@
 /*=======================================
   Function Implementations
 =======================================*/
-/* 'var' must be a symbol as precondition */
 ScmObj
 scm_symbol_value(ScmObj var, ScmObj env)
 {
@@ -80,6 +79,8 @@
     ScmObj val;
     DECLARE_INTERNAL_FUNCTION("scm_symbol_value");
 
+    SCM_ASSERT(SYMBOLP(var));
+
     /* first, lookup the environment */
     ref = scm_lookup_environment(var, env);
     if (ref != SCM_INVALID_REF) {