Run is now include

2019-07-16 14:19:16 +09:00
parent 5f766f7270
commit 7a8e25b51b
3 changed files with 5 additions and 5 deletions
--- a/examples/recursive.lisp
+++ b/examples/recursive.lisp
@@ -2,13 +2,14 @@

 (
  (clear)
+  (def line-color "red")
  (defn rec 
    (v)
      (if (gt v 0)
        ((stroke (circle
                  (mul 5 v)
                  (mul 5 v)
-                  (mul 5 v)) 1 "red")
+                  (mul 5 v)) 1 line-color)
        (rec (sub v 5))))
  )
        
--- a/examples/run.lisp
+++ b/examples/run.lisp
@@ -1,5 +1,4 @@
 (
-    (run "../examples/recursive.lisp")
-    (echo value)
-    (echo (addOne value))
+    (include "../examples/recursive.lisp")
+    (echo line-color)
 )