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

Make test for keyword more robust

Browse Source
This commit is contained in:
Scott Richmond 2022-04-11 13:08:40 -04:00
parent 2f6e81edb1
commit ceb8a2aa63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/interpreter.clj
View File

@ -171,7 +171,7 @@
(throw (ex-info "Match Error: No match found" {:fn-name (:name lfn)}))))) (throw (ex-info "Match Error: No match found" {:fn-name (:name lfn)})))))
(= clojure.lang.Keyword (type lfn)) (keyword? lfn)
(if (= 2 (count tuple)) (if (= 2 (count tuple))
(let [target (second tuple) kw lfn] (let [target (second tuple) kw lfn]
(if (::data/struct target) (if (::data/struct target)