mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 09:40:21 +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))))
|
||||
(def! qq-foldr (fn* [xs]
|
||||
(if (empty? xs)
|
||||
(list)
|
||||
()
|
||||
(qq-loop (first xs) (qq-foldr (rest xs))))))
|
||||
(def! QUASIQUOTE (fn* [ast]
|
||||
(cond
|
||||
|
@ -17,7 +17,7 @@
|
||||
(list 'cons (QUASIQUOTE elt) acc))))
|
||||
(def! qq-foldr (fn* [xs]
|
||||
(if (empty? xs)
|
||||
(list)
|
||||
()
|
||||
(qq-loop (first xs) (qq-foldr (rest xs))))))
|
||||
(def! QUASIQUOTE (fn* [ast]
|
||||
(cond
|
||||
|
@ -17,7 +17,7 @@
|
||||
(list 'cons (QUASIQUOTE elt) acc))))
|
||||
(def! qq-foldr (fn* [xs]
|
||||
(if (empty? xs)
|
||||
(list)
|
||||
()
|
||||
(qq-loop (first xs) (qq-foldr (rest xs))))))
|
||||
(def! QUASIQUOTE (fn* [ast]
|
||||
(cond
|
||||
|
@ -17,7 +17,7 @@
|
||||
(list 'cons (QUASIQUOTE elt) acc))))
|
||||
(def! qq-foldr (fn* [xs]
|
||||
(if (empty? xs)
|
||||
(list)
|
||||
()
|
||||
(qq-loop (first xs) (qq-foldr (rest xs))))))
|
||||
(def! QUASIQUOTE (fn* [ast]
|
||||
(cond
|
||||
|
Loading…
Reference in New Issue
Block a user