yogsototh/lish
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

require

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2017-04-20 00:27:01 +02:00
parent efe548cfa5
commit 89079016c2
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lish/core.lsh
View file

@ -1,6 +1,7 @@
(do
;; This is lish core ;; This is lish core
(def require (fn [x] (eval (str "(do " (cat x) ")"))))
;; increment ;; increment
(def inc (fn [x] (+ x 1))) (def inc (fn [x] (+ x 1)))
@ -9,5 +10,4 @@
(if (empty? lst) (if (empty? lst)
[] []
(cons (f (first lst)) (cons (f (first lst))
(map f (rest lst)))))) (map f (rest lst))))))
)