X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=eval.txt;h=a224999d800faa29ada30f343017156af61b2b55;hb=eb0187dbcc041b1b793158b5d9626c8492ffaa7c;hp=d1517ed65021e2294be34343f7e956e4c141f8a3;hpb=0f6fd905d8745bc38a6e814f28f227b22de95fa0;p=m17n%2Fm17n-lib-cs.git

diff --git a/eval.txt b/eval.txt
index d1517ed..a224999 100644
--- a/eval.txt
+++ b/eval.txt
@@ -1,8 +1,9 @@
 ;; -*- lisp -*-
 
 (defun temp (a b c)
-  (+= a 1)
-  (+ a b c))
+  (cond ((> a 0)
+	 (+= a 1)
+	 (+ a b c))))
 
 (cond
  (0 (+ X 2 (* 3 4) (- 3 4)) (set X 4))
@@ -14,6 +15,7 @@
      (+= Y "def"))
   (while (> X 7)
     (/= X 2) (+= X 1))
-  (set Y "ABC")
-  (set Z (+ Y "def")))
+  (cond ((> X 1)
+	 (set Y "ABC")
+	 (set Z (+ Y "def")))))
 (insert "kkk")