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

Fix and/or functions

Browse Source
This commit is contained in:
Scott Richmond 2023-07-04 12:39:18 -04:00
parent 98dfe5c503
commit 3854116f33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ludus/prelude.clj
View File

@ -15,11 +15,11 @@
(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))})
(def or- {:name "or" (def or- {:name "or"
::data/type ::data/clj ::data/type ::data/clj
:body (fn [&args] (some id &args))}) :body (fn [& args] (some id args))})
(def add {:name "add" (def add {:name "add"
::data/type ::data/clj ::data/type ::data/clj