dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Run is now include

Browse Source
This commit is contained in:
Devine Lu Linvega 2019-07-16 14:19:16 +09:00
parent 5f766f7270
commit 7a8e25b51b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/sources/scripts/lisp.js
View File

@ -19,7 +19,7 @@ function Lisp (input, lib) {
} }
const special = { const special = {
run: (input, context) => { include: (input, context) => {
const p = input[1].value const p = input[1].value
if (!fs.existsSync(p)) { console.warn('Source', p); return [] } if (!fs.existsSync(p)) { console.warn('Source', p); return [] }
const file = fs.readFileSync(p, { encoding: 'utf-8' }) const file = fs.readFileSync(p, { encoding: 'utf-8' })

3
examples/recursive.lisp
View File

@ -2,13 +2,14 @@
( (
(clear) (clear)
(def line-color "red")
(defn rec (defn rec
(v) (v)
(if (gt v 0) (if (gt v 0)
((stroke (circle ((stroke (circle
(mul 5 v) (mul 5 v)
(mul 5 v) (mul 5 v)
(mul 5 v)) 1 "red") (mul 5 v)) 1 line-color)
(rec (sub v 5)))) (rec (sub v 5))))
) )

5
examples/run.lisp
View File

@ -1,5 +1,4 @@
( (
(run "../examples/recursive.lisp") (include "../examples/recursive.lisp")
(echo value) (echo line-color)
(echo (addOne value))
) )