notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace throw with an assert

Browse Source
This commit is contained in:
oakes
2014-08-23 23:11:38 -04:00
parent a72df8b0ad
commit 97a3938039
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/play_clj/core_graphics.clj
View File

@@ -64,10 +64,8 @@ complicated shapes. If you use `assoc` to set the overall :x and :y of the
:y 10 :y 10
:angle 45)" :angle 45)"
[type & options] [type & options]
(when (seq (clojure.set/intersection #{:begin :end} (set options))) (assert (empty? (clojure.set/intersection #{:begin :end} (set options)))
(-> "No need to call :begin or :end, because it's done for you." "No need to call :begin or :end, because it's done for you.")
Throwable.
throw))
`(let [entity# ~(if (keyword? type) `(let [entity# ~(if (keyword? type)
`(assoc (shape*) :type (shape-type ~type)) `(assoc (shape*) :type (shape-type ~type))
type) type)