This commit is contained in:
Scott Richmond 2022-05-24 17:30:38 -04:00
parent 372103a3ee
commit 6cced0dd8a

View File

@ -3,12 +3,14 @@
[ludus.data :as data] [ludus.data :as data]
[ludus.show])) [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" (def eq {:name "eq"
::data/type ::data/clj ::data/type ::data/clj
:body =}) :body =})
(defn- id [x] x)
(def and- {:name "and" (def and- {:name "and"
::data/type ::data/clj ::data/type ::data/clj
:body (fn [&args] (every? id &args))}) :body (fn [&args] (every? id &args))})