Tidy up
This commit is contained in:
parent
372103a3ee
commit
6cced0dd8a
|
@ -3,12 +3,14 @@
|
|||
[ludus.data :as data]
|
||||
[ludus.show]))
|
||||
|
||||
(defn- id [x] x)
|
||||
|
||||
;; TODO: make eq, and, or special forms that short-circuit
|
||||
;; Right now, they evaluate all their args
|
||||
(def eq {:name "eq"
|
||||
::data/type ::data/clj
|
||||
:body =})
|
||||
|
||||
(defn- id [x] x)
|
||||
|
||||
(def and- {:name "and"
|
||||
::data/type ::data/clj
|
||||
:body (fn [&args] (every? id &args))})
|
||||
|
|
Loading…
Reference in New Issue
Block a user