*** empty log message ***

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

diff --git a/eval.txt b/eval.txt
index 6e4ca98..beec40f 100644 (file)
--- a/eval.txt
+++ b/eval.txt
@@ -1,2 +1,16 @@
-(+ 1 2 (* 3 4) (- 3 4))
+;; -*- lisp -*-
 
+(progn
+  (cond
+   (0 (+ X 2 (* 3 4) (- 3 4)))
+   (1 (+= X 10)))
+  (if (> 20 X 10)
+      (progn
+       (<<= X 2)
+       (set Y "abc")
+       (+= Y "def"))
+    (while (> X 7)
+      (/= X 2))
+    (set Y "ABC")
+    (set Z (+ Y "def")))
+  (insert "kkk"))