0.4.0 permalink Arrow_down_16x16
  • (i-want & forms)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source net/licenser/sandbox/tester.clj:109 top

(defn i-want
  [& forms]
  (let [[good bad] (split-with (partial not= :but-not) forms)
	good (flatten (map fn-seq good))
	bad (set/difference (set good) (set (flatten (map fn-seq good))))]
    (new-tester (whitelist (apply function-matcher (map #(:name (meta %)) good))) (blacklist (apply function-matcher (map #(:name (meta %)) bad))))))
Vars in net.licenser.sandbox.tester/i-want: apply defn let map meta
Used in 0 other vars

Comments top

No comments for i-want. Log in to add a comment.