kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 13:55:55 +03:00
Code Issues Projects Releases Wiki Activity

mal impl: (style) replace (list) with ()

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-07-30 17:47:02 +02:00 committed by Joel Martin
parent 85153c6f68
commit e4109e6795
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
impls/mal/step7_quote.mal
View File

@ -17,7 +17,7 @@
(list 'cons (QUASIQUOTE elt) acc)))) (list 'cons (QUASIQUOTE elt) acc))))
(def! qq-foldr (fn* [xs] (def! qq-foldr (fn* [xs]
(if (empty? xs) (if (empty? xs)
(list) ()
(qq-loop (first xs) (qq-foldr (rest xs)))))) (qq-loop (first xs) (qq-foldr (rest xs))))))
(def! QUASIQUOTE (fn* [ast] (def! QUASIQUOTE (fn* [ast]
(cond (cond

2
impls/mal/step8_macros.mal
View File

@ -17,7 +17,7 @@
(list 'cons (QUASIQUOTE elt) acc)))) (list 'cons (QUASIQUOTE elt) acc))))
(def! qq-foldr (fn* [xs] (def! qq-foldr (fn* [xs]
(if (empty? xs) (if (empty? xs)
(list) ()
(qq-loop (first xs) (qq-foldr (rest xs)))))) (qq-loop (first xs) (qq-foldr (rest xs))))))
(def! QUASIQUOTE (fn* [ast] (def! QUASIQUOTE (fn* [ast]
(cond (cond

2
impls/mal/step9_try.mal
View File

@ -17,7 +17,7 @@
(list 'cons (QUASIQUOTE elt) acc)))) (list 'cons (QUASIQUOTE elt) acc))))
(def! qq-foldr (fn* [xs] (def! qq-foldr (fn* [xs]
(if (empty? xs) (if (empty? xs)
(list) ()
(qq-loop (first xs) (qq-foldr (rest xs)))))) (qq-loop (first xs) (qq-foldr (rest xs))))))
(def! QUASIQUOTE (fn* [ast] (def! QUASIQUOTE (fn* [ast]
(cond (cond

2
impls/mal/stepA_mal.mal
View File

@ -17,7 +17,7 @@
(list 'cons (QUASIQUOTE elt) acc)))) (list 'cons (QUASIQUOTE elt) acc))))
(def! qq-foldr (fn* [xs] (def! qq-foldr (fn* [xs]
(if (empty? xs) (if (empty? xs)
(list) ()
(qq-loop (first xs) (qq-foldr (rest xs)))))) (qq-loop (first xs) (qq-foldr (rest xs))))))
(def! QUASIQUOTE (fn* [ast] (def! QUASIQUOTE (fn* [ast]
(cond (cond