twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Tidy up

Browse Source
This commit is contained in:
Scott Richmond 2022-05-24 17:30:38 -04:00
parent 372103a3ee
commit 6cced0dd8a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ludus/prelude.clj
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))})