Skip to content

Instantly share code, notes, and snippets.

@darwin
Last active January 26, 2019 15:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save darwin/8dda48153fcbd3bc3e2d700f3e0eea00 to your computer and use it in GitHub Desktop.
Save darwin/8dda48153fcbd3bc3e2d700f3e0eea00 to your computer and use it in GitHub Desktop.
fat cond
#!/usr/bin/env bash
clj -Srepro -m cljs.main -co @compiler-opts.edn -c repro
{:source-paths ["."]
:warnings {:single-segment-namespace false}}
{:paths ["."]
:deps {org.clojure/clojure {:mvn/version "1.10.0"}
org.clojure/clojurescript {:mvn/version "1.10.439"}}}
(ns repro)
(defmacro fat-cond [n]
(let [clauses (repeat n [`false `(cljs.core/do)])]
`(cond
~@(flatten clauses))))
(ns repro
(:require-macros [repro :refer [fat-cond]]))
(fat-cond 10000)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment