mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
mal impl: (style) replace (list)
with ()
This commit is contained in:
parent
85153c6f68
commit
e4109e6795
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user