0.4.0 permalink Arrow_down_16x16

expand-and-quote

net.licenser.sandbox

  • (expand-and-quote form)

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.clj:96 top

(defn expand-and-quote [form]
  (let [f (macroexpand form)]
    (if (= (first f) '.)
      (let [[_ obj m & args] f]
	(if (and (seq? m) (empty? args))
	  (concat (list '. obj (str (first m))) (rest m))
	  (concat (list '. obj (str m)) args)))
      f)))
Vars in net.licenser.sandbox/expand-and-quote: = and concat defn empty? first let list rest seq? str
Used in 0 other vars

Comments top

No comments for expand-and-quote. Log in to add a comment.