kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-08-16 17:20:23 +03:00
Code Issues Projects Releases Wiki Activity

mal: fix vector? sequential? and PRINT for new macro implementation

Browse Source
This commit is contained in:
Nicolas Boulenguez 2019-07-09 03:21:34 +02:00
parent 41a6f77a9b
commit cb9b0654fe
4 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mal/core.mal
View File

@ -14,6 +14,14 @@
true
false)))
(def! false_on_macro (fn* [f]
(fn* [x]
(if (_macro_unwrap x)
false
(f x)))))
(def! _sequential? (false_on_macro sequential?))
(def! _vector? (false_on_macro vector?))
(def! core_ns
[['= =]
['throw throw]
@ -49,7 +57,7 @@
['list list]
['list? list?]
['vector vector]
['vector? vector?]
['vector? _vector?]
['hash-map hash-map]
['map? map?]
['assoc assoc]
@ -59,7 +67,7 @@
['keys keys]
['vals vals]
['sequential? sequential?]
['sequential? _sequential?]
['cons cons]
['concat concat]
['nth nth]

5
mal/step8_macros.mal
View File

@ -44,7 +44,7 @@
(list? ast) (map (fn* [exp] (EVAL exp env)) ast)
(vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(_vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(map? ast) (apply hash-map
(apply concat
@ -109,7 +109,8 @@
;; print
(def! PRINT pr-str)
(def! PRINT (fn* [x]
(pr-str (let* [m (_macro_unwrap x)] (if m m x)))))
;; repl
(def! repl-env (new-env))

5
mal/step9_try.mal
View File

@ -44,7 +44,7 @@
(list? ast) (map (fn* [exp] (EVAL exp env)) ast)
(vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(_vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(map? ast) (apply hash-map
(apply concat
@ -118,7 +118,8 @@
;; print
(def! PRINT pr-str)
(def! PRINT (fn* [x]
(pr-str (let* [m (_macro_unwrap x)] (if m m x)))))
;; repl
(def! repl-env (new-env))

5
mal/stepA_mal.mal
View File

@ -44,7 +44,7 @@
(list? ast) (map (fn* [exp] (EVAL exp env)) ast)
(vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(_vector? ast) (apply vector (map (fn* [exp] (EVAL exp env)) ast))
(map? ast) (apply hash-map
(apply concat
@ -118,7 +118,8 @@
;; print
(def! PRINT pr-str)
(def! PRINT (fn* [x]
(pr-str (let* [m (_macro_unwrap x)] (if m m x)))))
;; repl
(def! repl-env (new-env))