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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-09-01 21:19:08 -0700 (Thu, 01 Sep 2005)
New Revision: 1380

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* Fix "min" bug. This patch is proposed by Jun Inoue<jun.lambda at gmail.com>
  Thank you!

* sigscheme/operations.c
  - (ScmOp_min): evaluate args


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-09-01 23:47:47 UTC (rev 1379)
+++ branches/r5rs/sigscheme/operations.c	2005-09-02 04:19:08 UTC (rev 1380)
@@ -581,7 +581,7 @@
         SigScm_Error("min : at least 1 number required\n");
 
     for (; !NULLP(args); args = CDR(args)) {
-        scm_num = CAR(args);
+        scm_num = ScmOp_eval(CAR(args), env);
         if (FALSEP(ScmOp_numberp(scm_num)))
             SigScm_ErrorObj("min : number required but got ", scm_num);