cljs.support.cljc Maven / Gradle / Ivy

Go to download
;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;   which can be found in the file epl-v10.html at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

(ns cljs.support)

(defmacro assert-args
  "Internal - do not use!"
  [fnname & pairs]
  `(do (when-not ~(first pairs)
         (throw (ex-info ~(str fnname " requires " (second pairs)) {})))
       ~(let [more (nnext pairs)]
          (when more
            (list* `assert-args fnname more)))))