*** empty log message ***

[m17n/m17n-lib-cs.git] / eval.txt

diff --git a/eval.txt b/eval.txt
index dbb567b..a224999 100644 (file)
--- 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))
@@ -13,7 +14,8 @@
      (set Y "abc")
      (+= Y "def"))
   (while (> X 7)
-    (/= X 2))
-  (set Y "ABC")
-  (set Z (+ Y "def")))
+    (/= X 2) (+= X 1))
+  (cond ((> X 1)
+        (set Y "ABC")
+        (set Z (+ Y "def")))))
 (insert "kkk")