r5rs: min バグ (Anthy-dev 2340) - Anthy

[Anthy-dev 2337] への返信を打ってるときに uim が落ちました。ScmOp_min()
が引数を評価していません。

-- 
Jun Inoue
jun.l****@gmail*****
-------------- next part --------------

--- sigscheme/operations.c	2005-08-31 20:35:59.000000000 -0700
+++ ../.r5rs/sigscheme/operations.c	2005-09-01 20:08:38.000000000 -0700
@@ -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);
 


Anthy