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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-03 01:42:51 -0700 (Mon, 03 Oct 2005)
New Revision: 1758

Modified:
   branches/r5rs/sigscheme/operations-srfi34.c
Log:
* sigscheme/operations-srfi34.c
  - (ScmExp_SRFI34_guard): simplify loop


Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 08:19:10 UTC (rev 1757)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 08:42:51 UTC (rev 1758)
@@ -135,9 +135,10 @@
     }
 
     PUSH_EXCEPTION_CONTINUATION(cont);
-    while (expr = POP_ARG(body), !NO_MORE_ARG(body))
-        EVAL(expr, env);
-    expr = EVAL(expr, env);
+    while (!NO_MORE_ARG(body)) {
+        expr = POP_ARG(body);
+        expr = EVAL(expr, env);
+    }
     POP_EXCEPTION_CONTINUATION();
 
     return expr;