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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-05 17:02:36 -0700 (Wed, 05 Oct 2005)
New Revision: 1813

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_assq): Fix a typo


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-10-04 23:16:29 UTC (rev 1812)
+++ branches/r5rs/sigscheme/operations.c	2005-10-06 00:02:36 UTC (rev 1813)
@@ -997,7 +997,7 @@
         tmpobj = CAR(tmp_lst);
         car = CAR(tmpobj);
 #if SCM_STRICT_R5RS
-        ASSRERT_CONSP(tmpobj);
+        ASSERT_CONSP(tmpobj);
         if (EQ(CAR(tmpobj), obj))
             return tmpobj;
 #else