refactored return-err function to use 'constantly'

This commit is contained in:
Richard Harrington 2013-07-16 12:13:45 -04:00
parent 31ff2272e2
commit 6b609f1f94

View File

@ -56,9 +56,7 @@
[s]
(re-matches #"^[A-Z][A-Z\d]*" s))
(defn ignoring-args-thunk [x] (fn [& _] x))
(def return-err (ignoring-args-thunk "Invalid word or symbol"))
(def return-err (constantly "Invalid word or symbol"))
(def parser-priority
[[registers :register]