simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
jolt/host/chez/seed/prelude.ss
Yogthos 403c3f302f Clojure 1.13 parity: req!, checked-keys destructuring, keyword array maps 
Bring the language up to the 1.13.0-alpha1 changes that apply off the JVM:

- req! (CLJ-2949): a get-variant that throws "Expected key: k" on a missing
  key, without nil-punning. The primitive behind checked destructuring.
- Checked-keys destructuring (CLJ-2961): :keys!/:syms!/:strs! bind and throw
  when a key is absent; keys after & are declared-only (required for the !
  variants, accepted otherwise) and create no binding.
- & is no longer a legal local binding in let/loop (CLJ-2954).
- Keyword-only array maps grow to 64 entries before going hash (was 8),
  across the literal, assoc, and transient paths, so the common keyword map
  keeps insertion order up to 64.

Skipped CLJ-2891 (JVM __init bytecode, JVM-only). 1.13 is still alpha, so
this tracks alpha1 and may shift. Regression tests in test/chez/unit.edn
(ahead of the JVM 1.12.5 the corpus certifies against). Seed re-minted.
2026-07-04 10:18:51 -04:00

1514 lines
No EOL
603 KiB
Scheme
Raw Permalink Blame History

(guard (e (#t #f))
(def-var! "clojure.core" "zero?" (letrec ((zero? (lambda (x) (let fnrec5041 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") x)) (jolt= x 0) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "zero? requires a number, got: " x))))))) zero?)))
(guard (e (#t #f))
(def-var! "clojure.core" "pos?" (letrec ((pos? (lambda (x) (let fnrec5042 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") x)) (jolt-n> x 0) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "pos? requires a number, got: " x))))))) pos?)))
(guard (e (#t #f))
(def-var! "clojure.core" "every?" (letrec ((every? (lambda (pred coll) (let fnrec5043 ((pred pred) (coll coll)) (if (jolt-nil? (jolt-seq coll)) #t (if (jolt-truthy? (jolt-invoke pred (jolt-first coll))) (fnrec5043 pred (jolt-next coll)) #f)))))) every?)))
(guard (e (#t #f))
(def-var! "clojure.core" "empty?" (letrec ((empty? (lambda (coll) (let fnrec5044 ((coll coll)) (if (jolt-nil? coll) #t (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (jolt-zero? (jolt-count coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") coll)) (jolt-zero? (jolt-count coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "set?") coll)) (jolt-zero? (jolt-count coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") coll)) (jolt-zero? (jolt-count coll)) (jolt-nil? (jolt-seq coll))))))))))) empty?)))
(guard (e (#t #f))
(def-var! "clojure.core" "keys" (letrec ((keys (lambda (m) (let fnrec5045 ((m m)) (let* ((s (jolt-seq m))) (if (jolt-truthy? s) (jolt-map (lambda (e) (let fnrec5046 ((e e)) (jolt-nth e 0))) s) jolt-nil)))))) keys)))
(guard (e (#t #f))
(def-var! "clojure.core" "vals" (letrec ((vals (lambda (m) (let fnrec5047 ((m m)) (let* ((s (jolt-seq m))) (if (jolt-truthy? s) (jolt-map (lambda (e) (let fnrec5048 ((e e)) (jolt-nth e 1))) s) jolt-nil)))))) vals)))
(guard (e (#t #f))
(def-var! "clojure.core" "when"
(lambda (test . body) (let fnrec5049 ((test test) (body (list->cseq body))) (let* ((_a$5050 (var-deref "clojure.core" "__sqcat")) (_a$5051 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5052 (jolt-invoke (var-deref "clojure.core" "__sq1") test)) (_a$5053 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) body)))) (jolt-invoke _a$5050 _a$5051 _a$5052 _a$5053)))))
(mark-macro! "clojure.core" "when"))
(guard (e (#t #f))
(def-var! "clojure.core" "when-not"
(lambda (test . body) (let fnrec5054 ((test test) (body (list->cseq body))) (let* ((_a$5058 (var-deref "clojure.core" "__sqcat")) (_a$5059 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5060 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5055 (var-deref "clojure.core" "__sqcat")) (_a$5056 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "not"))) (_a$5057 (jolt-invoke (var-deref "clojure.core" "__sq1") test))) (jolt-invoke _a$5055 _a$5056 _a$5057)))) (_a$5061 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) body)))) (jolt-invoke _a$5058 _a$5059 _a$5060 _a$5061)))))
(mark-macro! "clojure.core" "when-not"))
(guard (e (#t #f))
(def-var! "clojure.core" "and"
(lambda exprs (let fnrec5062 ((exprs (list->cseq exprs))) (if (jolt-empty? exprs) #t (if (jolt-empty? (jolt-rest exprs)) (jolt-first exprs) (let* ((_a$5074 (var-deref "clojure.core" "__sqcat")) (_a$5075 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5076 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5063 (var-deref "clojure.core" "__sqvec")) (_a$5064 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "and__25__auto"))) (_a$5065 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first exprs)))) (jolt-invoke _a$5063 _a$5064 _a$5065)))) (_a$5077 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5069 (var-deref "clojure.core" "__sqcat")) (_a$5070 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5071 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "and__25__auto"))) (_a$5072 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5066 (var-deref "clojure.core" "__sqcat")) (_a$5067 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "and"))) (_a$5068 (jolt-rest exprs))) (jolt-invoke _a$5066 _a$5067 _a$5068)))) (_a$5073 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "and__25__auto")))) (jolt-invoke _a$5069 _a$5070 _a$5071 _a$5072 _a$5073))))) (jolt-invoke _a$5074 _a$5075 _a$5076 _a$5077)))))))
(mark-macro! "clojure.core" "and"))
(guard (e (#t #f))
(def-var! "clojure.core" "or"
(lambda exprs (let fnrec5078 ((exprs (list->cseq exprs))) (if (jolt-empty? exprs) jolt-nil (if (jolt-empty? (jolt-rest exprs)) (jolt-first exprs) (let* ((_a$5090 (var-deref "clojure.core" "__sqcat")) (_a$5091 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5092 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5079 (var-deref "clojure.core" "__sqvec")) (_a$5080 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "or__26__auto"))) (_a$5081 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first exprs)))) (jolt-invoke _a$5079 _a$5080 _a$5081)))) (_a$5093 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5085 (var-deref "clojure.core" "__sqcat")) (_a$5086 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5087 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "or__26__auto"))) (_a$5088 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "or__26__auto"))) (_a$5089 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5082 (var-deref "clojure.core" "__sqcat")) (_a$5083 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "or"))) (_a$5084 (jolt-rest exprs))) (jolt-invoke _a$5082 _a$5083 _a$5084))))) (jolt-invoke _a$5085 _a$5086 _a$5087 _a$5088 _a$5089))))) (jolt-invoke _a$5090 _a$5091 _a$5092 _a$5093)))))))
(mark-macro! "clojure.core" "or"))
(guard (e (#t #f))
(def-var! "clojure.core" "cond"
(lambda clauses (let fnrec5094 ((clauses (list->cseq clauses))) (if (jolt-empty? clauses) jolt-nil (let* ((_a$5098 (var-deref "clojure.core" "__sqcat")) (_a$5099 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5100 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first clauses))) (_a$5101 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth clauses 1))) (_a$5102 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5095 (var-deref "clojure.core" "__sqcat")) (_a$5096 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "cond"))) (_a$5097 (jolt-drop 2 clauses))) (jolt-invoke _a$5095 _a$5096 _a$5097))))) (jolt-invoke _a$5098 _a$5099 _a$5100 _a$5101 _a$5102))))))
(mark-macro! "clojure.core" "cond"))
(guard (e (#t #f))
(def-var! "clojure.core" "ns"
(lambda (nm . clauses) (let fnrec5103 ((nm nm) (clauses (list->cseq clauses))) (let* ((nm (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "seq?") nm))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-symbol #f "with-meta") (jolt-first nm)) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "second") nm) nm)) (calls (let* ((_a$5133 (lambda (acc clause) (let fnrec5104 ((acc acc) (clause clause)) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "seq?") clause))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") clause)))) (let* ((head (jolt-first clause)) (args (jolt-rest clause))) (if (jolt= head (keyword #f "require")) (jolt-conj acc (let* ((_a$5109 (var-deref "clojure.core" "__sqcat")) (_a$5110 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "require"))) (_a$5111 (jolt-map (lambda (s) (let fnrec5105 ((s s)) (let* ((_a$5106 (var-deref "clojure.core" "__sqcat")) (_a$5107 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5108 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$5106 _a$5107 _a$5108)))) args))) (jolt-invoke _a$5109 _a$5110 _a$5111))) (if (jolt= head (keyword #f "use")) (jolt-conj acc (let* ((_a$5116 (var-deref "clojure.core" "__sqcat")) (_a$5117 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "use"))) (_a$5118 (jolt-map (lambda (s) (let fnrec5112 ((s s)) (let* ((_a$5113 (var-deref "clojure.core" "__sqcat")) (_a$5114 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5115 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$5113 _a$5114 _a$5115)))) args))) (jolt-invoke _a$5116 _a$5117 _a$5118))) (if (jolt= head (keyword #f "import")) (jolt-conj acc (let* ((_a$5123 (var-deref "clojure.core" "__sqcat")) (_a$5124 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "import"))) (_a$5125 (jolt-map (lambda (s) (let fnrec5119 ((s s)) (let* ((_a$5120 (var-deref "clojure.core" "__sqcat")) (_a$5121 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5122 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$5120 _a$5121 _a$5122)))) args))) (jolt-invoke _a$5123 _a$5124 _a$5125))) (if (jolt= head (keyword #f "refer-clojure")) (jolt-conj acc (let* ((_a$5130 (var-deref "clojure.core" "__sqcat")) (_a$5131 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "refer-clojure"))) (_a$5132 (jolt-map (lambda (s) (let fnrec5126 ((s s)) (let* ((_a$5127 (var-deref "clojure.core" "__sqcat")) (_a$5128 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5129 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$5127 _a$5128 _a$5129)))) args))) (jolt-invoke _a$5130 _a$5131 _a$5132))) (if (jolt-truthy? (keyword #f "else")) acc jolt-nil)))))) acc)))) (_a$5134 (jolt-vector)) (_a$5135 clauses)) (jolt-reduce _a$5133 _a$5134 _a$5135)))) (let* ((_a$5142 (var-deref "clojure.core" "__sqcat")) (_a$5143 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$5144 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5139 (var-deref "clojure.core" "__sqcat")) (_a$5140 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "in-ns"))) (_a$5141 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5136 (var-deref "clojure.core" "__sqcat")) (_a$5137 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5138 (jolt-invoke (var-deref "clojure.core" "__sq1") nm))) (jolt-invoke _a$5136 _a$5137 _a$5138))))) (jolt-invoke _a$5139 _a$5140 _a$5141)))) (_a$5145 calls)) (jolt-invoke _a$5142 _a$5143 _a$5144 _a$5145))))))
(mark-macro! "clojure.core" "ns"))
(guard (e (#t #f))
(def-var! "clojure.core" "->"
(lambda (x . forms) (let fnrec5146 ((x x) (forms (list->cseq forms))) (if (jolt-empty? forms) x (let* ((form (jolt-first forms)) (threaded (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (let* ((_a$5147 (var-deref "clojure.core" "__sqcat")) (_a$5148 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first form))) (_a$5149 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$5150 (jolt-rest form))) (jolt-invoke _a$5147 _a$5148 _a$5149 _a$5150)) (let* ((_a$5151 (var-deref "clojure.core" "__sqcat")) (_a$5152 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$5153 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$5151 _a$5152 _a$5153))))) (let* ((_a$5154 (var-deref "clojure.core" "__sqcat")) (_a$5155 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "->"))) (_a$5156 (jolt-invoke (var-deref "clojure.core" "__sq1") threaded)) (_a$5157 (jolt-rest forms))) (jolt-invoke _a$5154 _a$5155 _a$5156 _a$5157)))))))
(mark-macro! "clojure.core" "->"))
(guard (e (#t #f))
(def-var! "clojure.core" "->>"
(lambda (x . forms) (let fnrec5158 ((x x) (forms (list->cseq forms))) (if (jolt-empty? forms) x (let* ((form (jolt-first forms)) (threaded (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (let* ((_a$5159 (var-deref "clojure.core" "__sqcat")) (_a$5160 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first form))) (_a$5161 (jolt-rest form)) (_a$5162 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$5159 _a$5160 _a$5161 _a$5162)) (let* ((_a$5163 (var-deref "clojure.core" "__sqcat")) (_a$5164 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$5165 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$5163 _a$5164 _a$5165))))) (let* ((_a$5166 (var-deref "clojure.core" "__sqcat")) (_a$5167 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "->>"))) (_a$5168 (jolt-invoke (var-deref "clojure.core" "__sq1") threaded)) (_a$5169 (jolt-rest forms))) (jolt-invoke _a$5166 _a$5167 _a$5168 _a$5169)))))))
(mark-macro! "clojure.core" "->>"))
(guard (e (#t #f))
(def-var! "clojure.core" "declare"
(lambda syms (let fnrec5170 ((syms (list->cseq syms))) (let* ((_a$5175 (var-deref "clojure.core" "__sqcat")) (_a$5176 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$5177 (jolt-map (lambda (s) (let fnrec5171 ((s s)) (let* ((_a$5172 (var-deref "clojure.core" "__sqcat")) (_a$5173 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$5174 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$5172 _a$5173 _a$5174)))) syms))) (jolt-invoke _a$5175 _a$5176 _a$5177)))))
(mark-macro! "clojure.core" "declare"))
(guard (e (#t #f))
(def-var! "clojure.core" "letfn"
(lambda (fnspecs . body) (let fnrec5178 ((fnspecs fnspecs) (body (list->cseq body))) (jolt-cons (jolt-symbol #f "letfn*") (jolt-cons (let* ((_a$5182 (lambda (acc s) (let fnrec5179 ((acc acc) (s s)) (let* ((_a$5180 (jolt-conj acc (jolt-first s))) (_a$5181 (jolt-cons (jolt-symbol #f "fn") s))) (jolt-conj _a$5180 _a$5181))))) (_a$5183 (jolt-vector)) (_a$5184 fnspecs)) (jolt-reduce _a$5182 _a$5183 _a$5184)) body)))))
(mark-macro! "clojure.core" "letfn"))
(guard (e (#t #f))
(def-var! "clojure.core" "destructure" (letrec ((destructure (lambda (bindings) (let fnrec5185 ((bindings bindings)) (let* ((find-or (lambda (or-map nm) (let fnrec5186 ((or-map or-map) (nm nm)) (let* ((_a$5192 (lambda (acc k) (let fnrec5187 ((acc acc) (k k)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") k))) (if (jolt-truthy? and__25__auto) (jolt= nm (jolt-invoke (var-deref "clojure.core" "name") k)) and__25__auto))) (let* ((_o$5188 #t) (_o$5189 (jolt-get or-map k))) (jolt-vector _o$5188 _o$5189)) acc)))) (_a$5193 (let* ((_o$5190 #f) (_o$5191 jolt-nil)) (jolt-vector _o$5190 _o$5191))) (_a$5194 (if (jolt-truthy? or-map) (jolt-keys or-map) (jolt-vector)))) (jolt-reduce _a$5192 _a$5193 _a$5194))))) (amp? (lambda (x) (let fnrec5195 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))) (if (jolt-truthy? and__25__auto) (jolt= "&" (jolt-invoke (var-deref "clojure.core" "name") x)) and__25__auto))))) (classify (lambda (names) (let fnrec5196 ((names names)) (jolt-nth (let* ((_a$5208 (lambda (st x) (let fnrec5197 ((st st) (x x)) (if (jolt-truthy? (jolt-invoke amp? x)) (let* ((_o$5198 (jolt-nth st 0)) (_o$5199 #f)) (jolt-vector _o$5198 _o$5199)) (let* ((_o$5204 (let* ((_a$5202 (jolt-nth st 0)) (_a$5203 (let* ((_o$5200 x) (_o$5201 (jolt-nth st 1))) (jolt-vector _o$5200 _o$5201)))) (jolt-conj _a$5202 _a$5203))) (_o$5205 (jolt-nth st 1))) (jolt-vector _o$5204 _o$5205)))))) (_a$5209 (let* ((_o$5206 (jolt-vector)) (_o$5207 #t)) (jolt-vector _o$5206 _o$5207))) (_a$5210 names)) (jolt-reduce _a$5208 _a$5209 _a$5210)) 0)))) (proc (letrec ((proc (lambda (pat init acc) (let fnrec5211 ((pat pat) (init init) (acc acc)) (if (jolt-truthy? (jolt-invoke amp? pat)) (jolt-throw (host-new "IllegalArgumentException" "Can't use & as a local binding")) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") pat)) (jolt-conj (jolt-conj acc pat) init) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") pat)) (let* ((g (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym"))))) (n (jolt-count pat)) (vloop (letrec ((vloop (lambda (i idx a) (let fnrec5212 ((i i) (idx idx) (a a)) (if (jolt-n< i n) (let* ((elem (jolt-nth pat i))) (if (jolt-truthy? (jolt-invoke amp? elem)) (let* ((_a$5220 (jolt-n+ i 2)) (_a$5221 idx) (_a$5222 (let* ((_a$5217 (jolt-nth pat (jolt-inc i))) (_a$5218 (let* ((_a$5213 (var-deref "clojure.core" "__sqcat")) (_a$5214 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "nthnext"))) (_a$5215 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$5216 (jolt-invoke (var-deref "clojure.core" "__sq1") idx))) (jolt-invoke _a$5213 _a$5214 _a$5215 _a$5216))) (_a$5219 a)) (proc _a$5217 _a$5218 _a$5219)))) (vloop _a$5220 _a$5221 _a$5222)) (if (jolt= elem (keyword #f "as")) (let* ((_a$5223 (jolt-n+ i 2)) (_a$5224 idx) (_a$5225 (proc (jolt-nth pat (jolt-inc i)) g a))) (vloop _a$5223 _a$5224 _a$5225)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$5231 (jolt-inc i)) (_a$5232 (jolt-inc idx)) (_a$5233 (proc elem (let* ((_a$5226 (var-deref "clojure.core" "__sqcat")) (_a$5227 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "nth"))) (_a$5228 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$5229 (jolt-invoke (var-deref "clojure.core" "__sq1") idx)) (_a$5230 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$5226 _a$5227 _a$5228 _a$5229 _a$5230)) a))) (vloop _a$5231 _a$5232 _a$5233)) jolt-nil)))) a))))) vloop))) (jolt-invoke vloop 0 0 (jolt-conj (jolt-conj acc g) init))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") pat)) (let* ((g (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym"))))) (gm (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym"))))) (coerce (let* ((_a$5266 (var-deref "clojure.core" "__sqcat")) (_a$5267 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5268 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5234 (var-deref "clojure.core" "__sqcat")) (_a$5235 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "sequential?"))) (_a$5236 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5234 _a$5235 _a$5236)))) (_a$5269 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5261 (var-deref "clojure.core" "__sqcat")) (_a$5262 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5263 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5240 (var-deref "clojure.core" "__sqcat")) (_a$5241 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "odd?"))) (_a$5242 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5237 (var-deref "clojure.core" "__sqcat")) (_a$5238 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "count"))) (_a$5239 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5237 _a$5238 _a$5239))))) (jolt-invoke _a$5240 _a$5241 _a$5242)))) (_a$5264 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5253 (var-deref "clojure.core" "__sqcat")) (_a$5254 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "merge"))) (_a$5255 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5246 (var-deref "clojure.core" "__sqcat")) (_a$5247 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "apply"))) (_a$5248 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "hash-map"))) (_a$5249 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5243 (var-deref "clojure.core" "__sqcat")) (_a$5244 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "butlast"))) (_a$5245 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5243 _a$5244 _a$5245))))) (jolt-invoke _a$5246 _a$5247 _a$5248 _a$5249)))) (_a$5256 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5250 (var-deref "clojure.core" "__sqcat")) (_a$5251 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "last"))) (_a$5252 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5250 _a$5251 _a$5252))))) (jolt-invoke _a$5253 _a$5254 _a$5255 _a$5256)))) (_a$5265 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5257 (var-deref "clojure.core" "__sqcat")) (_a$5258 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "apply"))) (_a$5259 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "hash-map"))) (_a$5260 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5257 _a$5258 _a$5259 _a$5260))))) (jolt-invoke _a$5261 _a$5262 _a$5263 _a$5264 _a$5265)))) (_a$5270 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5266 _a$5267 _a$5268 _a$5269 _a$5270))) (or-map (jolt-get pat (keyword #f "or"))) (as-sym (jolt-get pat (keyword #f "as"))) (bound (jolt-conj (jolt-conj (jolt-conj (jolt-conj acc g) init) gm) coerce)) (base (if (jolt-truthy? as-sym) (jolt-conj (jolt-conj bound as-sym) gm) bound)) (group (letrec ((group (lambda (a names kind dnsp checked?) (let fnrec5271 ((a a) (names names) (kind kind) (dnsp dnsp) (checked? checked?)) (if (jolt-truthy? names) (let* ((_a$5289 (lambda (aa pair) (let fnrec5272 ((aa aa) (pair pair)) (let* ((s (jolt-nth pair 0)) (bind? (jolt-nth pair 1)) (local (jolt-invoke (var-deref "clojure.core" "name") s)) (nsp (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "namespace") s))) (if (jolt-truthy? or__26__auto) or__26__auto dnsp))) (keyform (if (jolt= kind (keyword #f "kw")) (jolt-invoke (var-deref "clojure.core" "keyword") (if (jolt-truthy? nsp) (jolt-invoke (var-deref "clojure.core" "str") nsp "/" local) local)) (if (jolt= kind (keyword #f "str")) local (if (jolt-truthy? (keyword #f "else")) (let* ((_a$5273 (var-deref "clojure.core" "__sqcat")) (_a$5274 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5275 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "symbol") nsp local)))) (jolt-invoke _a$5273 _a$5274 _a$5275)) jolt-nil)))) (fo (jolt-invoke find-or or-map local)) (lookup (if (jolt-truthy? checked?) (let* ((_a$5276 (var-deref "clojure.core" "__sqcat")) (_a$5277 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "req!"))) (_a$5278 (jolt-invoke (var-deref "clojure.core" "__sq1") gm)) (_a$5279 (jolt-invoke (var-deref "clojure.core" "__sq1") keyform))) (jolt-invoke _a$5276 _a$5277 _a$5278 _a$5279)) (if (jolt-truthy? (jolt-nth fo 0)) (let* ((_a$5280 (var-deref "clojure.core" "__sqcat")) (_a$5281 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$5282 (jolt-invoke (var-deref "clojure.core" "__sq1") gm)) (_a$5283 (jolt-invoke (var-deref "clojure.core" "__sq1") keyform)) (_a$5284 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth fo 1)))) (jolt-invoke _a$5280 _a$5281 _a$5282 _a$5283 _a$5284)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$5285 (var-deref "clojure.core" "__sqcat")) (_a$5286 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$5287 (jolt-invoke (var-deref "clojure.core" "__sq1") gm)) (_a$5288 (jolt-invoke (var-deref "clojure.core" "__sq1") keyform))) (jolt-invoke _a$5285 _a$5286 _a$5287 _a$5288)) jolt-nil))))) (if (jolt-truthy? bind?) (jolt-conj (jolt-conj aa (jolt-invoke (var-deref "clojure.core" "symbol") local)) lookup) (if (jolt-truthy? checked?) (jolt-conj (jolt-conj aa (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym"))))) lookup) (if (jolt-truthy? (keyword #f "else")) aa jolt-nil))))))) (_a$5290 a) (_a$5291 (jolt-invoke classify names))) (jolt-reduce _a$5289 _a$5290 _a$5291)) a))))) group)) (g1 (jolt-invoke group base (jolt-get pat (keyword #f "keys")) (keyword #f "kw") jolt-nil #f)) (g2 (jolt-invoke group g1 (jolt-get pat (keyword #f "strs")) (keyword #f "str") jolt-nil #f)) (g3 (jolt-invoke group g2 (jolt-get pat (keyword #f "syms")) (keyword #f "sym") jolt-nil #f)) (g4 (jolt-invoke group g3 (jolt-get pat (keyword #f "keys!")) (keyword #f "kw") jolt-nil #t)) (g5 (jolt-invoke group g4 (jolt-get pat (keyword #f "strs!")) (keyword #f "str") jolt-nil #t)) (g6 (jolt-invoke group g5 (jolt-get pat (keyword #f "syms!")) (keyword #f "sym") jolt-nil #t))) (let* ((_a$5304 (lambda (a k) (let fnrec5292 ((a a) (k k)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") k)) (let* ((kn (jolt-invoke (var-deref "clojure.core" "name") k)) (kns (jolt-invoke (var-deref "clojure.core" "namespace") k))) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "keys") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "kw") kns #f) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "strs") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "str") kns #f) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "syms") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "sym") kns #f) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "keys!") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "kw") kns #t) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "strs!") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "str") kns #t) (if (jolt-truthy? (let* ((and__25__auto kns)) (if (jolt-truthy? and__25__auto) (jolt= kn "syms!") and__25__auto))) (jolt-invoke group a (jolt-get pat k) (keyword #f "sym") kns #t) (if (jolt-truthy? (keyword #f "else")) a jolt-nil)))))))) (let* ((fo (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") k)) (jolt-invoke find-or or-map (jolt-invoke (var-deref "clojure.core" "name") k)) (let* ((_o$5293 #f) (_o$5294 jolt-nil)) (jolt-vector _o$5293 _o$5294))))) (proc k (if (jolt-truthy? (jolt-nth fo 0)) (let* ((_a$5295 (var-deref "clojure.core" "__sqcat")) (_a$5296 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$5297 (jolt-invoke (var-deref "clojure.core" "__sq1") gm)) (_a$5298 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-get pat k))) (_a$5299 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth fo 1)))) (jolt-invoke _a$5295 _a$5296 _a$5297 _a$5298 _a$5299)) (let* ((_a$5300 (var-deref "clojure.core" "__sqcat")) (_a$5301 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$5302 (jolt-invoke (var-deref "clojure.core" "__sq1") gm)) (_a$5303 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-get pat k)))) (jolt-invoke _a$5300 _a$5301 _a$5302 _a$5303))) a)))))) (_a$5305 g6) (_a$5306 (jolt-keys pat))) (jolt-reduce _a$5304 _a$5305 _a$5306))) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "unsupported destructuring pattern: " (jolt-invoke (var-deref "clojure.core" "pr-str") pat))) jolt-nil))))))))) proc)) (ploop (letrec ((ploop (lambda (i acc) (let fnrec5307 ((i i) (acc acc)) (if (jolt-n< i (jolt-count bindings)) (let* ((_a$5312 (jolt-n+ i 2)) (_a$5313 (let* ((_a$5308 proc) (_a$5309 (jolt-nth bindings i)) (_a$5310 (jolt-nth bindings (jolt-inc i))) (_a$5311 acc)) (jolt-invoke _a$5308 _a$5309 _a$5310 _a$5311)))) (ploop _a$5312 _a$5313)) acc))))) ploop))) (jolt-invoke ploop 0 (jolt-vector))))))) destructure)))
(guard (e (#t #f))
(def-var! "clojure.core" "let"
(lambda (bindings . body) (let fnrec5314 ((bindings bindings) (body (list->cseq body))) (let* ((_a$5315 (var-deref "clojure.core" "__sqcat")) (_a$5316 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5317 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "destructure") bindings)))) (_a$5318 body)) (jolt-invoke _a$5315 _a$5316 _a$5317 _a$5318)))))
(mark-macro! "clojure.core" "let"))
(guard (e (#t #f))
(def-var! "clojure.core" "loop"
(lambda (bindings . body) (let fnrec5319 ((bindings bindings) (body (list->cseq body))) (let* ((d (jolt-invoke (var-deref "clojure.core" "destructure") bindings))) (if (jolt= d bindings) (let* ((_a$5320 (var-deref "clojure.core" "__sqcat")) (_a$5321 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "loop*"))) (_a$5322 (jolt-invoke (var-deref "clojure.core" "__sq1") bindings)) (_a$5323 body)) (jolt-invoke _a$5320 _a$5321 _a$5322 _a$5323)) (let* ((bs (jolt-invoke (var-deref "clojure.core" "take-nth") 2 bindings)) (vs (jolt-invoke (var-deref "clojure.core" "take-nth") 2 (jolt-drop 1 bindings))) (gs (jolt-map (lambda (b) (let fnrec5324 ((b b)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") b)) b (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym"))))))) bs)) (outer (let* ((_a$5326 (lambda (acc t) (let fnrec5325 ((acc acc) (t t)) (let* ((b (jolt-nth t 0)) (v (jolt-nth t 1)) (g (jolt-nth t 2))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") b)) (jolt-conj (jolt-conj acc g) v) (jolt-conj (jolt-conj (jolt-conj (jolt-conj acc g) v) b) g)))))) (_a$5327 (jolt-vector)) (_a$5328 (jolt-map jolt-vector bs vs gs))) (jolt-reduce _a$5326 _a$5327 _a$5328))) (inner (let* ((_a$5332 (lambda (acc t) (let fnrec5329 ((acc acc) (t t)) (let* ((_a$5330 (jolt-conj acc (jolt-nth t 0))) (_a$5331 (jolt-nth t 1))) (jolt-conj _a$5330 _a$5331))))) (_a$5333 (jolt-vector)) (_a$5334 (jolt-map jolt-vector bs gs))) (jolt-reduce _a$5332 _a$5333 _a$5334))) (loopv (let* ((_a$5336 (lambda (acc g) (let fnrec5335 ((acc acc) (g g)) (jolt-conj (jolt-conj acc g) g)))) (_a$5337 (jolt-vector)) (_a$5338 gs)) (jolt-reduce _a$5336 _a$5337 _a$5338)))) (let* ((_a$5347 (var-deref "clojure.core" "__sqcat")) (_a$5348 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5349 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") outer))) (_a$5350 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5343 (var-deref "clojure.core" "__sqcat")) (_a$5344 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "loop*"))) (_a$5345 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") loopv))) (_a$5346 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5339 (var-deref "clojure.core" "__sqcat")) (_a$5340 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5341 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") inner))) (_a$5342 body)) (jolt-invoke _a$5339 _a$5340 _a$5341 _a$5342))))) (jolt-invoke _a$5343 _a$5344 _a$5345 _a$5346))))) (jolt-invoke _a$5347 _a$5348 _a$5349 _a$5350))))))))
(mark-macro! "clojure.core" "loop"))
(guard (e (#t #f))
(def-var! "clojure.core" "fn"
(lambda raw (let fnrec5351 ((raw (list->cseq raw))) (let* ((nm (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first raw))) (jolt-first raw) jolt-nil)) (aftn (if (jolt-truthy? nm) (jolt-next raw) raw)) (unhint (lambda (x) (let fnrec5352 ((x x)) (if (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") x)) (jolt= (jolt-symbol #f "with-meta") (jolt-first x)) #f) (jolt-nth x 1) x)))) (wrap-conds (lambda (body) (let fnrec5353 ((body body)) (if (jolt-truthy? (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") (jolt-first body))) (jolt-next body) #f)) (let* ((conds (jolt-first body)) (real (jolt-next body)) (mka (lambda (cs) (let fnrec5354 ((cs cs)) (jolt-map (lambda (c) (let fnrec5355 ((c c)) (let* ((_a$5356 (var-deref "clojure.core" "__sqcat")) (_a$5357 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "assert"))) (_a$5358 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$5356 _a$5357 _a$5358)))) cs))))) (let* ((_a$5367 (var-deref "clojure.core" "__sqcat")) (_a$5368 (jolt-invoke mka (jolt-get conds (keyword #f "pre")))) (_a$5369 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5362 (var-deref "clojure.core" "__sqcat")) (_a$5363 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5364 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5359 (var-deref "clojure.core" "__sqvec")) (_a$5360 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%"))) (_a$5361 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) real)))) (jolt-invoke _a$5359 _a$5360 _a$5361)))) (_a$5365 (jolt-invoke mka (jolt-get conds (keyword #f "post")))) (_a$5366 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%")))) (jolt-invoke _a$5362 _a$5363 _a$5364 _a$5365 _a$5366))))) (jolt-invoke _a$5367 _a$5368 _a$5369))) body)))) (md (letrec ((go (lambda (ps nps lets) (let fnrec5370 ((ps ps) (nps nps) (lets lets)) (if (jolt-truthy? (jolt-seq ps)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first ps))) (let* ((_a$5371 (jolt-next ps)) (_a$5372 (jolt-conj nps (jolt-first ps))) (_a$5373 lets)) (go _a$5371 _a$5372 _a$5373)) (let* ((g (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym")))))) (let* ((_a$5374 (jolt-next ps)) (_a$5375 (jolt-conj nps g)) (_a$5376 (jolt-conj (jolt-conj lets (jolt-first ps)) g))) (go _a$5374 _a$5375 _a$5376)))) (let* ((_o$5377 nps) (_o$5378 lets)) (jolt-vector _o$5377 _o$5378))))))) go)) (mk (lambda (sig) (let fnrec5379 ((sig sig)) (let* ((ps (jolt-invoke unhint (jolt-first sig))) (hinted (jolt-not (jolt= ps (jolt-first sig)))) (r (let* ((_a$5380 md) (_a$5381 (jolt-seq ps)) (_a$5382 (jolt-vector)) (_a$5383 (jolt-vector))) (jolt-invoke _a$5380 _a$5381 _a$5382 _a$5383))) (raw-body (jolt-rest sig)) (body (jolt-invoke wrap-conds raw-body)) (conds? (jolt-not (jolt= body raw-body)))) (if (if (jolt-empty? (jolt-nth r 1)) (if (jolt-not hinted) (jolt-not conds?) #f) #f) sig (let* ((pv (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-nth r 0))) (lv (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-nth r 1)))) (if (jolt-empty? (jolt-nth r 1)) (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") pv) body) (let* ((_a$5388 (var-deref "clojure.core" "__sqcat")) (_a$5389 (jolt-invoke (var-deref "clojure.core" "__sq1") pv)) (_a$5390 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5384 (var-deref "clojure.core" "__sqcat")) (_a$5385 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5386 (jolt-invoke (var-deref "clojure.core" "__sq1") lv)) (_a$5387 body)) (jolt-invoke _a$5384 _a$5385 _a$5386 _a$5387))))) (jolt-invoke _a$5388 _a$5389 _a$5390)))))))))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") (jolt-invoke unhint (jolt-first aftn)))) (let* ((a (jolt-invoke mk aftn))) (if (jolt-truthy? nm) (let* ((_a$5391 (var-deref "clojure.core" "__sqcat")) (_a$5392 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$5393 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$5394 a)) (jolt-invoke _a$5391 _a$5392 _a$5393 _a$5394)) (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*")) a))) (let* ((as (jolt-invoke (var-deref "clojure.core" "vec") (jolt-map mk aftn)))) (if (jolt-truthy? nm) (let* ((_a$5395 (var-deref "clojure.core" "__sqcat")) (_a$5396 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$5397 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$5398 as)) (jolt-invoke _a$5395 _a$5396 _a$5397 _a$5398)) (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*")) as))))))))
(mark-macro! "clojure.core" "fn"))
(guard (e (#t #f))
(def-var! "clojure.core" "defn"
(lambda (fn-name . body) (let fnrec5399 ((fn-name fn-name) (body (list->cseq body))) (let* ((docstring (if (jolt-truthy? (let* ((and__25__auto (jolt-seq body))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "string?") (jolt-first body)) and__25__auto))) (jolt-first body) jolt-nil)) (body (if (jolt-truthy? docstring) (jolt-rest body) body)) (attr-map (if (jolt-truthy? (let* ((and__25__auto (jolt-seq body))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-next body))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "map?") (jolt-first body)))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first body))) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-first body) jolt-nil)) (body (if (jolt-truthy? attr-map) (jolt-rest body) body)) (fn-only-name (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") fn-name)) fn-name (jolt-first (jolt-rest fn-name)))) (name-meta (jolt-invoke (var-deref "clojure.core" "meta") fn-only-name)) (m1 (if (jolt-truthy? attr-map) (if (jolt-truthy? name-meta) (jolt-conj name-meta attr-map) attr-map) name-meta)) (meta-map (if (jolt-truthy? docstring) (jolt-assoc (if (jolt-truthy? m1) m1 (jolt-hash-map)) (keyword #f "doc") docstring) m1))) (if (jolt-truthy? meta-map) (let* ((_a$5404 (var-deref "clojure.core" "__sqcat")) (_a$5405 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$5406 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "with-meta") fn-only-name meta-map))) (_a$5407 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5400 (var-deref "clojure.core" "__sqcat")) (_a$5401 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$5402 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "with-meta") fn-only-name jolt-nil))) (_a$5403 body)) (jolt-invoke _a$5400 _a$5401 _a$5402 _a$5403))))) (jolt-invoke _a$5404 _a$5405 _a$5406 _a$5407)) (let* ((_a$5412 (var-deref "clojure.core" "__sqcat")) (_a$5413 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$5414 (jolt-invoke (var-deref "clojure.core" "__sq1") fn-only-name)) (_a$5415 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5408 (var-deref "clojure.core" "__sqcat")) (_a$5409 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$5410 (jolt-invoke (var-deref "clojure.core" "__sq1") fn-only-name)) (_a$5411 body)) (jolt-invoke _a$5408 _a$5409 _a$5410 _a$5411))))) (jolt-invoke _a$5412 _a$5413 _a$5414 _a$5415)))))))
(mark-macro! "clojure.core" "defn"))
(guard (e (#t #f))
(def-var! "clojure.core" "defn-"
(lambda (fn-name . body) (let fnrec5416 ((fn-name fn-name) (body (list->cseq body))) (let* ((_a$5417 (var-deref "clojure.core" "__sqcat")) (_a$5418 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defn"))) (_a$5419 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "with-meta") fn-name (jolt-assoc (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "meta") fn-name)) (jolt-invoke (var-deref "clojure.core" "meta") fn-name) (jolt-hash-map)) (keyword #f "private") #t)))) (_a$5420 body)) (jolt-invoke _a$5417 _a$5418 _a$5419 _a$5420)))))
(mark-macro! "clojure.core" "defn-"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "fresh-sym" (letrec ((fresh-sym (lambda () (let fnrec5421 () (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "gensym")))))))) fresh-sym) (let* ((_o$5422 (keyword #f "private")) (_o$5423 #t)) (jolt-hash-map _o$5422 _o$5423))))
(guard (e (#t #f))
(def-var! "clojure.core" "cond->"
(lambda (expr . clauses) (let fnrec5424 ((expr expr) (clauses (list->cseq clauses))) (let* ((step (letrec ((step (lambda (prev cls) (let fnrec5425 ((prev prev) (cls cls)) (if (jolt-empty? cls) prev (let* ((t (jolt-first cls)) (f (jolt-nth cls 1)) (gn (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (call (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") f)) (let* ((_a$5426 (var-deref "clojure.core" "__sqcat")) (_a$5427 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first f))) (_a$5428 (jolt-invoke (var-deref "clojure.core" "__sq1") prev)) (_a$5429 (jolt-rest f))) (jolt-invoke _a$5426 _a$5427 _a$5428 _a$5429)) (let* ((_a$5430 (var-deref "clojure.core" "__sqcat")) (_a$5431 (jolt-invoke (var-deref "clojure.core" "__sq1") f)) (_a$5432 (jolt-invoke (var-deref "clojure.core" "__sq1") prev))) (jolt-invoke _a$5430 _a$5431 _a$5432))))) (let* ((_a$5441 (var-deref "clojure.core" "__sqcat")) (_a$5442 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5443 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5438 (var-deref "clojure.core" "__sqvec")) (_a$5439 (jolt-invoke (var-deref "clojure.core" "__sq1") gn)) (_a$5440 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5433 (var-deref "clojure.core" "__sqcat")) (_a$5434 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5435 (jolt-invoke (var-deref "clojure.core" "__sq1") t)) (_a$5436 (jolt-invoke (var-deref "clojure.core" "__sq1") call)) (_a$5437 (jolt-invoke (var-deref "clojure.core" "__sq1") prev))) (jolt-invoke _a$5433 _a$5434 _a$5435 _a$5436 _a$5437))))) (jolt-invoke _a$5438 _a$5439 _a$5440)))) (_a$5444 (jolt-invoke (var-deref "clojure.core" "__sq1") (step gn (jolt-drop 2 cls))))) (jolt-invoke _a$5441 _a$5442 _a$5443 _a$5444)))))))) step)) (g0 (jolt-invoke (var-deref "clojure.core" "fresh-sym")))) (let* ((_a$5448 (var-deref "clojure.core" "__sqcat")) (_a$5449 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5450 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5445 (var-deref "clojure.core" "__sqvec")) (_a$5446 (jolt-invoke (var-deref "clojure.core" "__sq1") g0)) (_a$5447 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$5445 _a$5446 _a$5447)))) (_a$5451 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke step g0 clauses)))) (jolt-invoke _a$5448 _a$5449 _a$5450 _a$5451))))))
(mark-macro! "clojure.core" "cond->"))
(guard (e (#t #f))
(def-var! "clojure.core" "case"
(lambda (expr . clauses) (let fnrec5452 ((expr expr) (clauses (list->cseq clauses))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (mk-const (lambda (c) (let fnrec5453 ((c c)) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") c))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "seq?") c)))) (let* ((_a$5454 (var-deref "clojure.core" "__sqcat")) (_a$5455 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$5456 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$5454 _a$5455 _a$5456)) c)))) (mk-test (lambda (c) (let fnrec5457 ((c c)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") c)) (let* ((_a$5463 (var-deref "clojure.core" "__sqcat")) (_a$5464 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "or"))) (_a$5465 (jolt-map (lambda (v) (let fnrec5458 ((v v)) (let* ((_a$5459 (var-deref "clojure.core" "__sqcat")) (_a$5460 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$5461 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$5462 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const v)))) (jolt-invoke _a$5459 _a$5460 _a$5461 _a$5462)))) c))) (jolt-invoke _a$5463 _a$5464 _a$5465)) (let* ((_a$5466 (var-deref "clojure.core" "__sqcat")) (_a$5467 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$5468 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$5469 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const c)))) (jolt-invoke _a$5466 _a$5467 _a$5468 _a$5469)))))) (collect (letrec ((collect (lambda (cls acc) (let fnrec5470 ((cls cls) (acc acc)) (if (let* ((or__26__auto (jolt-empty? cls))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-empty? (jolt-rest cls)))) acc (let* ((t (jolt-first cls)) (acc (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") t)) (jolt-reduce jolt-conj acc t) (jolt-conj acc t)))) (collect (jolt-drop 2 cls) acc))))))) collect)) (first-dup (letrec ((fd (lambda (items seen) (let fnrec5471 ((items items) (seen seen)) (if (jolt-empty? items) jolt-nil (let* ((x (jolt-first items))) (if (jolt-truthy? (jolt-reduce (lambda (f s) (let fnrec5472 ((f f) (s s)) (let* ((or__26__auto f)) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= s x))))) #f seen)) (jolt-vector x) (let* ((_a$5473 (jolt-rest items)) (_a$5474 (jolt-conj seen x))) (fd _a$5473 _a$5474))))))))) fd)) (dup (let* ((_a$5475 first-dup) (_a$5476 (jolt-invoke collect clauses (jolt-vector))) (_a$5477 (jolt-vector))) (jolt-invoke _a$5475 _a$5476 _a$5477))) (build (letrec ((build (lambda (cls) (let fnrec5478 ((cls cls)) (if (jolt-empty? cls) (let* ((_a$5487 (var-deref "clojure.core" "__sqcat")) (_a$5488 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "throw"))) (_a$5489 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5483 (var-deref "clojure.core" "__sqcat")) (_a$5484 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "ex-info"))) (_a$5485 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5479 (var-deref "clojure.core" "__sqcat")) (_a$5480 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "str"))) (_a$5481 (jolt-invoke (var-deref "clojure.core" "__sq1") "No matching clause: ")) (_a$5482 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$5479 _a$5480 _a$5481 _a$5482)))) (_a$5486 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap"))))) (jolt-invoke _a$5483 _a$5484 _a$5485 _a$5486))))) (jolt-invoke _a$5487 _a$5488 _a$5489)) (if (jolt-empty? (jolt-rest cls)) (jolt-first cls) (let* ((_a$5490 (var-deref "clojure.core" "__sqcat")) (_a$5491 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5492 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-test (jolt-first cls)))) (_a$5493 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth cls 1))) (_a$5494 (jolt-invoke (var-deref "clojure.core" "__sq1") (build (jolt-drop 2 cls))))) (jolt-invoke _a$5490 _a$5491 _a$5492 _a$5493 _a$5494)))))))) build))) (if (jolt-truthy? dup) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Duplicate case test constant: " (jolt-first dup))) (let* ((_a$5498 (var-deref "clojure.core" "__sqcat")) (_a$5499 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$5500 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5495 (var-deref "clojure.core" "__sqvec")) (_a$5496 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$5497 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$5495 _a$5496 _a$5497)))) (_a$5501 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke build clauses)))) (jolt-invoke _a$5498 _a$5499 _a$5500 _a$5501)))))))
(mark-macro! "clojure.core" "case"))
(guard (e (#t #f))
(def-var! "clojure.core" "for"
(lambda (bindings body) (let fnrec5502 ((bindings bindings) (body body)) (let* ((scan (letrec ((scan (lambda (bvec i bind coll mods) (let fnrec5503 ((bvec bvec) (i i) (bind bind) (coll coll) (mods mods)) (if (jolt-truthy? (let* ((and__25__auto (jolt-n< i (jolt-count bvec)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-nth bvec i)) and__25__auto))) (let* ((k (jolt-nth bvec i)) (v (jolt-nth bvec (jolt-inc i)))) (if (jolt= k (keyword #f "when")) (let* ((_a$5506 bvec) (_a$5507 (jolt-n+ i 2)) (_a$5508 bind) (_a$5509 coll) (_a$5510 (jolt-conj mods (let* ((_o$5504 (keyword #f "when")) (_o$5505 v)) (jolt-vector _o$5504 _o$5505))))) (scan _a$5506 _a$5507 _a$5508 _a$5509 _a$5510)) (if (jolt= k (keyword #f "let")) (let* ((_a$5513 bvec) (_a$5514 (jolt-n+ i 2)) (_a$5515 bind) (_a$5516 coll) (_a$5517 (jolt-conj mods (let* ((_o$5511 (keyword #f "let")) (_o$5512 v)) (jolt-vector _o$5511 _o$5512))))) (scan _a$5513 _a$5514 _a$5515 _a$5516 _a$5517)) (if (jolt= k (keyword #f "while")) (let* ((_a$5526 bvec) (_a$5527 (jolt-n+ i 2)) (_a$5528 bind) (_a$5529 (let* ((_a$5522 (var-deref "clojure.core" "__sqcat")) (_a$5523 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "take-while"))) (_a$5524 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5518 (var-deref "clojure.core" "__sqcat")) (_a$5519 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$5520 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") bind)))) (_a$5521 (jolt-invoke (var-deref "clojure.core" "__sq1") v))) (jolt-invoke _a$5518 _a$5519 _a$5520 _a$5521)))) (_a$5525 (jolt-invoke (var-deref "clojure.core" "__sq1") coll))) (jolt-invoke _a$5522 _a$5523 _a$5524 _a$5525))) (_a$5530 mods)) (scan _a$5526 _a$5527 _a$5528 _a$5529 _a$5530)) (if (jolt-truthy? (keyword #f "else")) (scan bvec (jolt-inc i) bind coll mods) jolt-nil))))) (let* ((_o$5531 i) (_o$5532 bind) (_o$5533 coll) (_o$5534 mods)) (jolt-vector _o$5531 _o$5532 _o$5533 _o$5534))))))) scan)) (parse-groups (letrec ((parse-groups (lambda (bvec i groups) (let fnrec5535 ((bvec bvec) (i i) (groups groups)) (if (jolt-n>= i (jolt-count bvec)) groups (let* ((r (let* ((_a$5536 scan) (_a$5537 bvec) (_a$5538 (jolt-n+ i 2)) (_a$5539 (jolt-nth bvec i)) (_a$5540 (jolt-nth bvec (jolt-inc i))) (_a$5541 (jolt-vector))) (jolt-invoke _a$5536 _a$5537 _a$5538 _a$5539 _a$5540 _a$5541)))) (let* ((_a$5545 bvec) (_a$5546 (jolt-nth r 0)) (_a$5547 (jolt-conj groups (let* ((_o$5542 (jolt-nth r 1)) (_o$5543 (jolt-nth r 2)) (_o$5544 (jolt-nth r 3))) (jolt-vector _o$5542 _o$5543 _o$5544))))) (parse-groups _a$5545 _a$5546 _a$5547)))))))) parse-groups)) (wrap-mods (letrec ((wrap-mods (lambda (mods inner) (let fnrec5548 ((mods mods) (inner inner)) (if (jolt-empty? mods) inner (let* ((m (jolt-first mods)) (sub (wrap-mods (jolt-rest mods) inner))) (if (jolt= (jolt-first m) (keyword #f "when")) (let* ((_a$5549 (var-deref "clojure.core" "__sqcat")) (_a$5550 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5551 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth m 1))) (_a$5552 (jolt-invoke (var-deref "clojure.core" "__sq1") sub)) (_a$5553 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec"))))) (jolt-invoke _a$5549 _a$5550 _a$5551 _a$5552 _a$5553)) (let* ((_a$5554 (var-deref "clojure.core" "__sqcat")) (_a$5555 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5556 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth m 1))) (_a$5557 (jolt-invoke (var-deref "clojure.core" "__sq1") sub))) (jolt-invoke _a$5554 _a$5555 _a$5556 _a$5557))))))))) wrap-mods)) (build (letrec ((build (lambda (idx groups) (let fnrec5558 ((idx idx) (groups groups)) (let* ((g (jolt-nth groups idx)) (my-bind (jolt-nth g 0)) (my-coll (jolt-nth g 1)) (my-mods (jolt-nth g 2)) (is-last (jolt= idx (jolt-dec (jolt-count groups))))) (if (jolt-truthy? (let* ((and__25__auto is-last)) (if (jolt-truthy? and__25__auto) (jolt-empty? my-mods) and__25__auto))) (let* ((_a$5563 (var-deref "clojure.core" "__sqcat")) (_a$5564 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "map"))) (_a$5565 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5559 (var-deref "clojure.core" "__sqcat")) (_a$5560 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$5561 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") my-bind)))) (_a$5562 (jolt-invoke (var-deref "clojure.core" "__sq1") body))) (jolt-invoke _a$5559 _a$5560 _a$5561 _a$5562)))) (_a$5566 (jolt-invoke (var-deref "clojure.core" "__sq1") my-coll))) (jolt-invoke _a$5563 _a$5564 _a$5565 _a$5566)) (let* ((base (if (jolt-truthy? is-last) (let* ((_a$5567 (var-deref "clojure.core" "__sqcat")) (_a$5568 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "list"))) (_a$5569 (jolt-invoke (var-deref "clojure.core" "__sq1") body))) (jolt-invoke _a$5567 _a$5568 _a$5569)) (build (jolt-inc idx) groups)))) (let* ((_a$5574 (var-deref "clojure.core" "__sqcat")) (_a$5575 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "mapcat"))) (_a$5576 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5570 (var-deref "clojure.core" "__sqcat")) (_a$5571 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$5572 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") my-bind)))) (_a$5573 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke wrap-mods my-mods base)))) (jolt-invoke _a$5570 _a$5571 _a$5572 _a$5573)))) (_a$5577 (jolt-invoke (var-deref "clojure.core" "__sq1") my-coll))) (jolt-invoke _a$5574 _a$5575 _a$5576 _a$5577))))))))) build))) (if (jolt-n>= (jolt-count bindings) 2) (jolt-invoke build 0 (jolt-invoke parse-groups bindings 0 (jolt-vector))) body)))))
(mark-macro! "clojure.core" "for"))
(guard (e (#t #f))
(def-var! "clojure.core" "doseq"
(lambda (bindings . body) (let fnrec5578 ((bindings bindings) (body (list->cseq body))) (let* ((_a$5590 (var-deref "clojure.core" "__sqcat")) (_a$5591 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$5592 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5587 (var-deref "clojure.core" "__sqcat")) (_a$5588 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "count"))) (_a$5589 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5583 (var-deref "clojure.core" "__sqcat")) (_a$5584 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "for"))) (_a$5585 (jolt-invoke (var-deref "clojure.core" "__sq1") bindings)) (_a$5586 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5579 (var-deref "clojure.core" "__sqcat")) (_a$5580 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$5581 body) (_a$5582 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$5579 _a$5580 _a$5581 _a$5582))))) (jolt-invoke _a$5583 _a$5584 _a$5585 _a$5586))))) (jolt-invoke _a$5587 _a$5588 _a$5589)))) (_a$5593 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$5590 _a$5591 _a$5592 _a$5593)))))
(mark-macro! "clojure.core" "doseq"))
(guard (e (#t #f))
(def-var! "clojure.core" "when-let"
(lambda (bindings . body) (let fnrec5594 ((bindings bindings) (body (list->cseq body))) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "not=") 2 (jolt-count bindings))) (jolt-throw (host-new "IllegalArgumentException" "when-let requires exactly 2 forms in binding vector")) jolt-nil) (let* ((form (jolt-invoke bindings 0)) (tst (jolt-invoke bindings 1))) (let* ((_a$5610 (var-deref "clojure.core" "__sqcat")) (_a$5611 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5612 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5595 (var-deref "clojure.core" "__sqvec")) (_a$5596 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__27__auto"))) (_a$5597 (jolt-invoke (var-deref "clojure.core" "__sq1") tst))) (jolt-invoke _a$5595 _a$5596 _a$5597)))) (_a$5613 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5605 (var-deref "clojure.core" "__sqcat")) (_a$5606 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$5607 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__27__auto"))) (_a$5608 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5601 (var-deref "clojure.core" "__sqcat")) (_a$5602 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$5603 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5598 (var-deref "clojure.core" "__sqvec")) (_a$5599 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$5600 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__27__auto")))) (jolt-invoke _a$5598 _a$5599 _a$5600)))) (_a$5604 body)) (jolt-invoke _a$5601 _a$5602 _a$5603 _a$5604)))) (_a$5609 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$5605 _a$5606 _a$5607 _a$5608 _a$5609))))) (jolt-invoke _a$5610 _a$5611 _a$5612 _a$5613)))))))
(mark-macro! "clojure.core" "when-let"))
(guard (e (#t #f))
(def-var! "clojure.core" "lazy-seq"
(lambda body (let fnrec5614 ((body (list->cseq body))) (let* ((_a$5622 (var-deref "clojure.core" "__sqcat")) (_a$5623 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "make-lazy-seq"))) (_a$5624 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5618 (var-deref "clojure.core" "__sqcat")) (_a$5619 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$5620 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$5621 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$5615 (var-deref "clojure.core" "__sqcat")) (_a$5616 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "coll->cells"))) (_a$5617 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) body)))) (jolt-invoke _a$5615 _a$5616 _a$5617))))) (jolt-invoke _a$5618 _a$5619 _a$5620 _a$5621))))) (jolt-invoke _a$5622 _a$5623 _a$5624)))))
(mark-macro! "clojure.core" "lazy-seq"))
(guard (e (#t #f))
(def-var! "clojure.core" "lazy-cat"
(lambda colls (let fnrec5625 ((colls (list->cseq colls))) (let* ((_a$5630 (var-deref "clojure.core" "__sqcat")) (_a$5631 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "concat"))) (_a$5632 (jolt-map (lambda (c) (let fnrec5626 ((c c)) (let* ((_a$5627 (var-deref "clojure.core" "__sqcat")) (_a$5628 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "lazy-seq"))) (_a$5629 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$5627 _a$5628 _a$5629)))) colls))) (jolt-invoke _a$5630 _a$5631 _a$5632)))))
(mark-macro! "clojure.core" "lazy-cat"))
(guard (e (#t #f))
(def-var! "clojure.core" "not=" (letrec ((not= (case-lambda ((x) (let fnrec5633 ((x x)) #f)) ((x y) (let fnrec5634 ((x x) (y y)) (jolt-not (jolt= x y)))) ((x y . more) (let fnrec5635 ((x x) (y y) (more (list->cseq more))) (jolt-not (jolt-apply jolt= x y more))))))) not=)))
(guard (e (#t #f))
(def-var! "clojure.core" "unreduced" (letrec ((unreduced (lambda (x) (let fnrec5636 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "reduced?") x)) (jolt-invoke (var-deref "clojure.core" "deref") x) x))))) unreduced)))
(guard (e (#t #f))
(def-var! "clojure.core" "second" (letrec ((second (lambda (coll) (let fnrec5637 ((coll coll)) (jolt-first (jolt-next coll)))))) second)))
(guard (e (#t #f))
(def-var! "clojure.core" "peek" (letrec ((peek (lambda (coll) (let fnrec5638 ((coll coll)) (if (jolt-nil? coll) jolt-nil (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (if (jolt-zero? (jolt-count coll)) jolt-nil (jolt-nth coll (jolt-dec (jolt-count coll)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") coll)) (jolt-first coll) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "peek not supported on: " coll)) jolt-nil)))))))) peek)))
(guard (e (#t #f))
(def-var! "clojure.core" "subvec" (letrec ((subvec (case-lambda ((v start) (let fnrec5639 ((v v) (start start)) (subvec v start (jolt-count v)))) ((v start end) (let fnrec5640 ((v v) (start start) (end end)) (begin (if (jolt-not (jolt-invoke (var-deref "clojure.core" "vector?") v)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "subvec requires a vector")) jolt-nil) (let* ((coerce (lambda (x) (let fnrec5641 ((x x)) (if (jolt-not (jolt-invoke (var-deref "clojure.core" "number?") x)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "subvec index must be a number")) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "not=") x x)) 0 (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "long") x) jolt-nil)))))) (s (jolt-invoke coerce start)) (e (jolt-invoke coerce end))) (begin (if (let* ((or__26__auto (jolt-n< s 0))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-n< e s))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n< (jolt-count v) e))))) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "subvec index out of range: " s " " e)) jolt-nil) (let* ((i s) (acc (jolt-vector))) (let loop5642 ((i i) (acc acc)) (if (jolt-n< i e) (let* ((_a$5643 (jolt-inc i)) (_a$5644 (jolt-conj acc (jolt-nth v i)))) (loop5642 _a$5643 _a$5644)) acc))))))))))) subvec)))
(guard (e (#t #f))
(def-var! "clojure.core" "mapv" (letrec ((mapv (lambda (f . colls) (let fnrec5645 ((f f) (colls (list->cseq colls))) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-apply jolt-map f colls)))))) mapv)))
(guard (e (#t #f))
(def-var! "clojure.core" "update" (letrec ((update (lambda (m k f . args) (let fnrec5646 ((m m) (k k) (f f) (args (list->cseq args))) (jolt-assoc m k (jolt-apply f (jolt-get m k) args)))))) update)))
(guard (e (#t #f))
(def-var! "clojure.core" "set" (letrec ((set (lambda (coll) (let fnrec5647 ((coll coll)) (if (jolt-nil? coll) (jolt-hash-set) (jolt-apply jolt-hash-set (jolt-seq coll))))))) set)))
(guard (e (#t #f))
(def-var! "clojure.core" "vreset!" (letrec ((vreset! (lambda (vol newval) (let fnrec4727 ((vol vol) (newval newval)) (begin (jolt-invoke (var-deref "jolt.host" "ref-put!") vol (keyword #f "val") newval) newval))))) vreset!)))
(guard (e (#t #f))
(def-var! "clojure.core" "vswap!" (letrec ((vswap! (lambda (vol f . args) (let fnrec4728 ((vol vol) (f f) (args (list->cseq args))) (jolt-invoke (var-deref "clojure.core" "vreset!") vol (jolt-apply f (jolt-get vol (keyword #f "val")) args)))))) vswap!)))
(guard (e (#t #f))
(def-var! "clojure.core" "ffirst" (letrec ((ffirst (lambda (coll) (let fnrec4729 ((coll coll)) (jolt-first (jolt-first coll)))))) ffirst)))
(guard (e (#t #f))
(def-var! "clojure.core" "nfirst" (letrec ((nfirst (lambda (coll) (let fnrec4730 ((coll coll)) (jolt-next (jolt-first coll)))))) nfirst)))
(guard (e (#t #f))
(def-var! "clojure.core" "fnext" (letrec ((fnext (lambda (coll) (let fnrec4731 ((coll coll)) (jolt-first (jolt-next coll)))))) fnext)))
(guard (e (#t #f))
(def-var! "clojure.core" "nnext" (letrec ((nnext (lambda (coll) (let fnrec4732 ((coll coll)) (jolt-next (jolt-next coll)))))) nnext)))
(guard (e (#t #f))
(def-var! "clojure.core" "last" (letrec ((last (lambda (s) (let fnrec4733 ((s s)) (if (jolt-truthy? (jolt-next s)) (fnrec4733 (jolt-next s)) (jolt-first s)))))) last)))
(guard (e (#t #f))
(def-var! "clojure.core" "butlast" (letrec ((butlast (lambda (s) (let fnrec4734 ((s s)) (let* ((ret (jolt-vector)) (s s)) (let loop4735 ((ret ret) (s s)) (if (jolt-truthy? (jolt-next s)) (let* ((_a$4736 (jolt-conj ret (jolt-first s))) (_a$4737 (jolt-next s))) (loop4735 _a$4736 _a$4737)) (jolt-seq ret)))))))) butlast)))
(guard (e (#t #f))
(def-var! "clojure.core" "partition-by" (letrec ((partition-by (case-lambda ((f) (let fnrec4738 ((f f)) (lambda (rf) (let fnrec4739 ((rf rf)) (let* ((buf (jolt-invoke (var-deref "clojure.core" "volatile!") (jolt-vector))) (pv (jolt-invoke (var-deref "clojure.core" "volatile!") jolt-nil)) (started (jolt-invoke (var-deref "clojure.core" "volatile!") #f))) (case-lambda (() (let fnrec4740 () (jolt-invoke rf))) ((result) (let fnrec4741 ((result result)) (let* ((b (jolt-invoke (var-deref "clojure.core" "deref") buf)) (result (if (jolt-zero? (jolt-count b)) result (begin (jolt-invoke (var-deref "clojure.core" "vreset!") buf (jolt-vector)) (jolt-invoke (var-deref "clojure.core" "unreduced") (jolt-invoke rf result b)))))) (jolt-invoke rf result)))) ((result input) (let fnrec4742 ((result result) (input input)) (let* ((val (jolt-invoke f input))) (if (let* ((or__26__auto (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") started)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= val (jolt-invoke (var-deref "clojure.core" "deref") pv)))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") started #t) (jolt-invoke (var-deref "clojure.core" "vreset!") pv val) (jolt-invoke (var-deref "clojure.core" "vswap!") buf jolt-conj input) result) (let* ((b (jolt-invoke (var-deref "clojure.core" "deref") buf))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") buf (jolt-vector)) (jolt-invoke (var-deref "clojure.core" "vreset!") pv val) (let* ((ret (jolt-invoke rf result b))) (begin (if (jolt-not (jolt-invoke (var-deref "clojure.core" "reduced?") ret)) (jolt-invoke (var-deref "clojure.core" "vswap!") buf jolt-conj input) jolt-nil) ret)))))))))))))) ((f coll) (let fnrec4743 ((f f) (coll coll)) (let* ((step (letrec ((step (lambda (s) (let fnrec4744 ((s s)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4745 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((s (jolt-seq s))) (if (jolt-truthy? s) (let* ((fst (jolt-first s)) (fv (jolt-invoke f fst)) (run (jolt-cons fst (let* ((_a$4747 (var-deref "clojure.core" "take-while")) (_a$4748 (lambda (x) (let fnrec4746 ((x x)) (jolt= fv (jolt-invoke f x))))) (_a$4749 (jolt-rest s))) (jolt-invoke _a$4747 _a$4748 _a$4749))))) (jolt-cons run (step (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4750 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-drop (jolt-count run) s)))))))) jolt-nil)))))))))) step))) (jolt-invoke step coll))))))) partition-by)))
(guard (e (#t #f))
(def-var! "clojure.core" "some?" (letrec ((some? (lambda (x) (let fnrec4751 ((x x)) (jolt-not (jolt-nil? x)))))) some?)))
(guard (e (#t #f))
(def-var! "clojure.core" "identity" (letrec ((identity (lambda (x) (let fnrec4752 ((x x)) x)))) identity)))
(guard (e (#t #f))
(def-var! "clojure.core" "constantly" (letrec ((constantly (lambda (x) (let fnrec4753 ((x x)) (lambda args (let fnrec4754 ((args (list->cseq args))) x)))))) constantly)))
(guard (e (#t #f))
(def-var! "clojure.core" "neg?" (letrec ((neg? (lambda (x) (let fnrec4755 ((x x)) (jolt-n< x 0))))) neg?)))
(guard (e (#t #f))
(def-var! "clojure.core" "bit-and" (letrec ((bit-and (case-lambda ((x y) (let fnrec4756 ((x x) (y y)) (jolt-invoke (var-deref "clojure.core" "__bit-and") x y))) ((x y . more) (let fnrec4757 ((x x) (y y) (more (list->cseq more))) (jolt-reduce (var-deref "clojure.core" "__bit-and") (jolt-invoke (var-deref "clojure.core" "__bit-and") x y) more)))))) bit-and)))
(guard (e (#t #f))
(def-var! "clojure.core" "bit-or" (letrec ((bit-or (case-lambda ((x y) (let fnrec4758 ((x x) (y y)) (jolt-invoke (var-deref "clojure.core" "__bit-or") x y))) ((x y . more) (let fnrec4759 ((x x) (y y) (more (list->cseq more))) (jolt-reduce (var-deref "clojure.core" "__bit-or") (jolt-invoke (var-deref "clojure.core" "__bit-or") x y) more)))))) bit-or)))
(guard (e (#t #f))
(def-var! "clojure.core" "bit-xor" (letrec ((bit-xor (case-lambda ((x y) (let fnrec4760 ((x x) (y y)) (jolt-invoke (var-deref "clojure.core" "__bit-xor") x y))) ((x y . more) (let fnrec4761 ((x x) (y y) (more (list->cseq more))) (jolt-reduce (var-deref "clojure.core" "__bit-xor") (jolt-invoke (var-deref "clojure.core" "__bit-xor") x y) more)))))) bit-xor)))
(guard (e (#t #f))
(def-var! "clojure.core" "bit-and-not" (letrec ((bit-and-not (case-lambda ((x y) (let fnrec4762 ((x x) (y y)) (jolt-invoke (var-deref "clojure.core" "__bit-and-not") x y))) ((x y . more) (let fnrec4763 ((x x) (y y) (more (list->cseq more))) (jolt-reduce (var-deref "clojure.core" "__bit-and-not") (jolt-invoke (var-deref "clojure.core" "__bit-and-not") x y) more)))))) bit-and-not)))
(guard (e (#t #f))
(def-var! "clojure.core" "pr-str" (letrec ((pr-str (lambda xs (let fnrec4764 ((xs (list->cseq xs))) (let* ((out "") (s (jolt-seq xs)) (first? #t)) (let loop4765 ((out out) (s s) (first? first?)) (if (jolt-truthy? s) (let* ((_a$4770 (let* ((_a$4766 (var-deref "clojure.core" "str")) (_a$4767 out) (_a$4768 (if (jolt-truthy? first?) "" " ")) (_a$4769 (jolt-invoke (var-deref "clojure.core" "__pr-str1") (jolt-first s)))) (jolt-invoke _a$4766 _a$4767 _a$4768 _a$4769))) (_a$4771 (jolt-next s)) (_a$4772 #f)) (loop4765 _a$4770 _a$4771 _a$4772)) out))))))) pr-str)))
(guard (e (#t #f))
(def-var! "clojure.core" "pr" (letrec ((pr (lambda xs (let fnrec4773 ((xs (list->cseq xs))) (begin (jolt-invoke (var-deref "clojure.core" "__write") (jolt-apply (var-deref "clojure.core" "pr-str") xs)) jolt-nil))))) pr)))
(guard (e (#t #f))
(def-var! "clojure.core" "prn" (letrec ((prn (lambda xs (let fnrec4774 ((xs (list->cseq xs))) (begin (jolt-apply (var-deref "clojure.core" "pr") xs) (jolt-invoke (var-deref "clojure.core" "__write") "\n") jolt-nil))))) prn)))
(guard (e (#t #f))
(def-var! "clojure.core" "print" (letrec ((print (lambda xs (let fnrec4775 ((xs (list->cseq xs))) (begin (jolt-invoke (var-deref "clojure.core" "__write") (let* ((out "") (s (jolt-seq xs)) (first? #t)) (let loop4776 ((out out) (s s) (first? first?)) (if (jolt-truthy? s) (let* ((x (jolt-first s)) (r (jolt-invoke (var-deref "clojure.core" "__print1") x))) (let* ((_a$4777 (jolt-invoke (var-deref "clojure.core" "str") out (if (jolt-truthy? first?) "" " ") r)) (_a$4778 (jolt-next s)) (_a$4779 #f)) (loop4776 _a$4777 _a$4778 _a$4779))) out)))) jolt-nil))))) print)))
(guard (e (#t #f))
(def-var! "clojure.core" "println" (letrec ((println (lambda xs (let fnrec4780 ((xs (list->cseq xs))) (begin (jolt-apply (var-deref "clojure.core" "print") xs) (jolt-invoke (var-deref "clojure.core" "__write") "\n") jolt-nil))))) println)))
(guard (e (#t #f))
(def-var! "clojure.core" "frequencies" (letrec ((frequencies (lambda (coll) (let fnrec4781 ((coll coll)) (jolt-invoke (var-deref "clojure.core" "persistent!") (let* ((_a$4783 (lambda (counts x) (let fnrec4782 ((counts counts) (x x)) (jolt-invoke (var-deref "clojure.core" "assoc!") counts x (jolt-inc (jolt-get counts x 0)))))) (_a$4784 (jolt-invoke (var-deref "clojure.core" "transient") (jolt-hash-map))) (_a$4785 coll)) (jolt-reduce _a$4783 _a$4784 _a$4785))))))) frequencies)))
(guard (e (#t #f))
(def-var! "clojure.core" "group-by" (letrec ((group-by (lambda (f coll) (let fnrec4786 ((f f) (coll coll)) (let* ((tm (jolt-invoke (var-deref "clojure.core" "transient") (jolt-hash-map))) (ks (let* ((_a$4788 (lambda (ks x) (let fnrec4787 ((ks ks) (x x)) (let* ((k (jolt-invoke f x)) (b (jolt-get tm k))) (if (jolt-nil? b) (begin (jolt-invoke (var-deref "clojure.core" "assoc!") tm k (jolt-vector x)) (jolt-invoke (var-deref "clojure.core" "conj!") ks k)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") b)) (begin (jolt-invoke (var-deref "clojure.core" "assoc!") tm k (jolt-invoke (var-deref "clojure.core" "conj!") (jolt-invoke (var-deref "clojure.core" "transient") b) x)) ks) (begin (jolt-invoke (var-deref "clojure.core" "conj!") b x) ks))))))) (_a$4789 (jolt-invoke (var-deref "clojure.core" "transient") (jolt-vector))) (_a$4790 coll)) (jolt-reduce _a$4788 _a$4789 _a$4790)))) (begin (let* ((_a$4792 (lambda (_ k) (let fnrec4791 ((_ _) (k k)) (let* ((b (jolt-get tm k))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") b)) jolt-nil (jolt-invoke (var-deref "clojure.core" "assoc!") tm k (jolt-invoke (var-deref "clojure.core" "persistent!") b))))))) (_a$4793 jolt-nil) (_a$4794 (jolt-invoke (var-deref "clojure.core" "persistent!") ks))) (jolt-reduce _a$4792 _a$4793 _a$4794)) (jolt-invoke (var-deref "clojure.core" "persistent!") tm))))))) group-by)))
(guard (e (#t #f))
(def-var! "clojure.core" "not-empty" (letrec ((not-empty (lambda (coll) (let fnrec4795 ((coll coll)) (if (let* ((or__26__auto (jolt-nil? coll))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-zero? (jolt-count coll)))) jolt-nil coll))))) not-empty)))
(guard (e (#t #f))
(def-var! "clojure.core" "filterv" (letrec ((filterv (lambda (pred coll) (let fnrec4796 ((pred pred) (coll coll)) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-filter pred coll)))))) filterv)))
(guard (e (#t #f))
(def-var! "clojure.core" "max-key" (letrec ((max-key (case-lambda ((k x) (let fnrec4797 ((k k) (x x)) x)) ((k x y) (let fnrec4798 ((k k) (x x) (y y)) (if (let* ((_a$4799 (jolt-invoke k x)) (_a$4800 (jolt-invoke k y))) (jolt-n> _a$4799 _a$4800)) x y))) ((k x y . more) (let fnrec4801 ((k k) (x x) (y y) (more (list->cseq more))) (let* ((kx (jolt-invoke k x)) (ky (jolt-invoke k y)) (v (if (jolt-n> kx ky) x y)) (kv (if (jolt-n> kx ky) kx ky))) (let* ((v v) (kv kv) (more more)) (let loop4802 ((v v) (kv kv) (more more)) (if (jolt-truthy? (jolt-seq more)) (let* ((w (jolt-first more)) (kw (jolt-invoke k w))) (if (jolt-n>= kw kv) (loop4802 w kw (jolt-next more)) (loop4802 v kv (jolt-next more)))) v))))))))) max-key)))
(guard (e (#t #f))
(def-var! "clojure.core" "min-key" (letrec ((min-key (case-lambda ((k x) (let fnrec4803 ((k k) (x x)) x)) ((k x y) (let fnrec4804 ((k k) (x x) (y y)) (if (let* ((_a$4805 (jolt-invoke k x)) (_a$4806 (jolt-invoke k y))) (jolt-n< _a$4805 _a$4806)) x y))) ((k x y . more) (let fnrec4807 ((k k) (x x) (y y) (more (list->cseq more))) (let* ((kx (jolt-invoke k x)) (ky (jolt-invoke k y)) (v (if (jolt-n< kx ky) x y)) (kv (if (jolt-n< kx ky) kx ky))) (let* ((v v) (kv kv) (more more)) (let loop4808 ((v v) (kv kv) (more more)) (if (jolt-truthy? (jolt-seq more)) (let* ((w (jolt-first more)) (kw (jolt-invoke k w))) (if (jolt-n<= kw kv) (loop4808 w kw (jolt-next more)) (loop4808 v kv (jolt-next more)))) v))))))))) min-key)))
(guard (e (#t #f))
(def-var! "clojure.core" "juxt" (letrec ((juxt (lambda fs (let fnrec4809 ((fs (list->cseq fs))) (lambda args (let fnrec4810 ((args (list->cseq args))) (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (f) (let fnrec4811 ((f f)) (jolt-apply f args))) fs))))))) juxt)))
(guard (e (#t #f))
(def-var! "clojure.core" "every-pred" (letrec ((every-pred (lambda preds (let fnrec4812 ((preds (list->cseq preds))) (lambda xs (let fnrec4813 ((xs (list->cseq xs))) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (p) (let fnrec4814 ((p p)) (jolt-invoke (var-deref "clojure.core" "every?") p xs))) preds))))))) every-pred)))
(guard (e (#t #f))
(def-var! "clojure.core" "some" (letrec ((some (lambda (pred coll) (let fnrec4815 ((pred pred) (coll coll)) (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((or__26__auto (jolt-invoke pred (jolt-first s)))) (if (jolt-truthy? or__26__auto) or__26__auto (fnrec4815 pred (jolt-next s))))) jolt-nil)))))) some)))
(guard (e (#t #f))
(def-var! "clojure.core" "some-fn" (letrec ((some-fn (case-lambda ((p) (let fnrec4816 ((p p)) (letrec ((sp1 (case-lambda (() (let fnrec4817 () jolt-nil)) ((x) (let fnrec4818 ((x x)) (jolt-invoke p x))) ((x y) (let fnrec4819 ((x x) (y y)) (let* ((or__26__auto (jolt-invoke p x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p y))))) ((x y z) (let fnrec4820 ((x x) (y y) (z z)) (let* ((or__26__auto (jolt-invoke p x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p y))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p z))))))) ((x y z . args) (let fnrec4821 ((x x) (y y) (z z) (args (list->cseq args))) (let* ((or__26__auto (sp1 x y z))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "some") p args)))))))) sp1))) ((p1 p2) (let fnrec4822 ((p1 p1) (p2 p2)) (letrec ((sp2 (case-lambda (() (let fnrec4823 () jolt-nil)) ((x) (let fnrec4824 ((x x)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p2 x))))) ((x y) (let fnrec4825 ((x x) (y y)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p2 y))))))))) ((x y z) (let fnrec4826 ((x x) (y y) (z z)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 z))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 y))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p2 z))))))))))))) ((x y z . args) (let fnrec4827 ((x x) (y y) (z z) (args (list->cseq args))) (let* ((or__26__auto (sp2 x y z))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "some") (lambda (q) (let fnrec4828 ((q q)) (let* ((or__26__auto (jolt-invoke p1 q))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p2 q))))) args)))))))) sp2))) ((p1 p2 p3) (let fnrec4829 ((p1 p1) (p2 p2) (p3 p3)) (letrec ((sp3 (case-lambda (() (let fnrec4830 () jolt-nil)) ((x) (let fnrec4831 ((x x)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p3 x))))))) ((x y) (let fnrec4832 ((x x) (y y)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p3 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 y))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p3 y))))))))))))) ((x y z) (let fnrec4833 ((x x) (y y) (z z)) (let* ((or__26__auto (jolt-invoke p1 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p3 x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p3 y))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p1 z))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 z))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p3 z))))))))))))))))))) ((x y z . args) (let fnrec4834 ((x x) (y y) (z z) (args (list->cseq args))) (let* ((or__26__auto (sp3 x y z))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "some") (lambda (q) (let fnrec4835 ((q q)) (let* ((or__26__auto (jolt-invoke p1 q))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke p2 q))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke p3 q))))))) args)))))))) sp3))) ((p1 p2 p3 . ps) (let fnrec4836 ((p1 p1) (p2 p2) (p3 p3) (ps (list->cseq ps))) (let* ((ps (jolt-cons p1 (jolt-cons p2 (jolt-cons p3 ps))))) (letrec ((spn (case-lambda (() (let fnrec4837 () jolt-nil)) ((x) (let fnrec4838 ((x x)) (jolt-invoke (var-deref "clojure.core" "some") (lambda (p) (let fnrec4839 ((p p)) (jolt-invoke p x))) ps))) ((x y) (let fnrec4840 ((x x) (y y)) (let* ((or__26__auto (spn x))) (if (jolt-truthy? or__26__auto) or__26__auto (spn y))))) ((x y z) (let fnrec4841 ((x x) (y y) (z z)) (let* ((or__26__auto (spn x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (spn y))) (if (jolt-truthy? or__26__auto) or__26__auto (spn z))))))) ((x y z . args) (let fnrec4842 ((x x) (y y) (z z) (args (list->cseq args))) (let* ((or__26__auto (spn x y z))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "some") (lambda (p) (let fnrec4843 ((p p)) (jolt-invoke (var-deref "clojure.core" "some") p args))) ps)))))))) spn))))))) some-fn)))
(guard (e (#t #f))
(def-var! "clojure.core" "not-any?" (letrec ((not-any? (lambda (pred coll) (let fnrec4844 ((pred pred) (coll coll)) (jolt-not (jolt-invoke (var-deref "clojure.core" "some") pred coll)))))) not-any?)))
(guard (e (#t #f))
(def-var! "clojure.core" "not-every?" (letrec ((not-every? (lambda (pred coll) (let fnrec4845 ((pred pred) (coll coll)) (jolt-not (jolt-invoke (var-deref "clojure.core" "every?") pred coll)))))) not-every?)))
(guard (e (#t #f))
(def-var! "clojure.core" "split-at" (letrec ((split-at (lambda (n coll) (let fnrec4846 ((n n) (coll coll)) (let* ((_o$4847 (jolt-take n coll)) (_o$4848 (jolt-drop n coll))) (jolt-vector _o$4847 _o$4848)))))) split-at)))
(guard (e (#t #f))
(def-var! "clojure.core" "split-with" (letrec ((split-with (lambda (pred coll) (let fnrec4849 ((pred pred) (coll coll)) (let* ((_o$4850 (jolt-invoke (var-deref "clojure.core" "take-while") pred coll)) (_o$4851 (jolt-invoke (var-deref "clojure.core" "drop-while") pred coll))) (jolt-vector _o$4850 _o$4851)))))) split-with)))
(guard (e (#t #f))
(def-var! "clojure.core" "qualified-keyword?" (letrec ((qualified-keyword? (lambda (x) (let fnrec4852 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "keyword?") x))) (if (jolt-truthy? and__25__auto) (jolt-some? (jolt-invoke (var-deref "clojure.core" "namespace") x)) and__25__auto)))))) qualified-keyword?)))
(guard (e (#t #f))
(def-var! "clojure.core" "simple-keyword?" (letrec ((simple-keyword? (lambda (x) (let fnrec4853 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "keyword?") x))) (if (jolt-truthy? and__25__auto) (jolt-nil? (jolt-invoke (var-deref "clojure.core" "namespace") x)) and__25__auto)))))) simple-keyword?)))
(guard (e (#t #f))
(def-var! "clojure.core" "qualified-symbol?" (letrec ((qualified-symbol? (lambda (x) (let fnrec4854 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))) (if (jolt-truthy? and__25__auto) (jolt-some? (jolt-invoke (var-deref "clojure.core" "namespace") x)) and__25__auto)))))) qualified-symbol?)))
(guard (e (#t #f))
(def-var! "clojure.core" "simple-symbol?" (letrec ((simple-symbol? (lambda (x) (let fnrec4855 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))) (if (jolt-truthy? and__25__auto) (jolt-nil? (jolt-invoke (var-deref "clojure.core" "namespace") x)) and__25__auto)))))) simple-symbol?)))
(guard (e (#t #f))
(def-var! "clojure.core" "ident?" (letrec ((ident? (lambda (x) (let fnrec4856 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))))))) ident?)))
(guard (e (#t #f))
(def-var! "clojure.core" "qualified-ident?" (letrec ((qualified-ident? (lambda (x) (let fnrec4857 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "qualified-symbol?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "qualified-keyword?") x))))))) qualified-ident?)))
(guard (e (#t #f))
(def-var! "clojure.core" "simple-ident?" (letrec ((simple-ident? (lambda (x) (let fnrec4858 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "simple-symbol?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "simple-keyword?") x))))))) simple-ident?)))
(guard (e (#t #f))
(def-var! "clojure.core" "ratio?" (letrec ((ratio? (lambda (x) (let fnrec4859 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") x))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "exact?") x))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "rational-type?") x))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "integer?") x)) and__25__auto)) and__25__auto)) and__25__auto)))))) ratio?)))
(guard (e (#t #f))
(def-var! "clojure.core" "rational?" (letrec ((rational? (lambda (x) (let fnrec4860 ((x x)) (let* ((or__26__auto (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") x))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "exact?") x) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "decimal?") x))))))) rational?)))
(guard (e (#t #f))
(def-var! "clojure.core" "class?" (letrec ((class? (lambda (x) (let fnrec4861 ((x x)) #f)))) class?)))
(guard (e (#t #f))
(def-var! "clojure.core" "list?" (letrec ((list? (lambda (x) (let fnrec4862 ((x x)) (let* ((or__26__auto (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "cseq?") x))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "cseq-list?") x) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "jolt.host" "empty-list?") x))))))) list?)))
(guard (e (#t #f))
(def-var! "clojure.core" "nat-int?" (letrec ((nat-int? (lambda (x) (let fnrec4863 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "int?") x))) (if (jolt-truthy? and__25__auto) (jolt-n>= x 0) and__25__auto)))))) nat-int?)))
(guard (e (#t #f))
(def-var! "clojure.core" "neg-int?" (letrec ((neg-int? (lambda (x) (let fnrec4864 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "int?") x))) (if (jolt-truthy? and__25__auto) (jolt-neg? x) and__25__auto)))))) neg-int?)))
(guard (e (#t #f))
(def-var! "clojure.core" "pos-int?" (letrec ((pos-int? (lambda (x) (let fnrec4865 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "int?") x))) (if (jolt-truthy? and__25__auto) (jolt-pos? x) and__25__auto)))))) pos-int?)))
(guard (e (#t #f))
(def-var! "clojure.core" "replicate" (letrec ((replicate (lambda (n x) (let fnrec4866 ((n n) (x x)) (let* ((_a$4868 (lambda (_) (let fnrec4867 ((_ _)) x))) (_a$4869 (jolt-range n))) (jolt-map _a$4868 _a$4869)))))) replicate)))
(guard (e (#t #f))
(def-var! "clojure.core" "take-last" (letrec ((take-last (lambda (n coll) (let fnrec4870 ((n n) (coll coll)) (let* ((c (jolt-invoke (var-deref "clojure.core" "vec") coll)) (len (jolt-count c))) (if (jolt-pos? len) (jolt-seq (jolt-invoke (var-deref "clojure.core" "subvec") c (jolt-n-max 0 (jolt-n- len n)))) jolt-nil)))))) take-last)))
(guard (e (#t #f))
(def-var! "clojure.core" "drop-last" (letrec ((drop-last (case-lambda ((coll) (let fnrec4871 ((coll coll)) (drop-last 1 coll))) ((n coll) (let fnrec4872 ((n n) (coll coll)) (let* ((_a$4874 (lambda (x _) (let fnrec4873 ((x x) (_ _)) x))) (_a$4875 coll) (_a$4876 (jolt-drop n coll))) (jolt-map _a$4874 _a$4875 _a$4876))))))) drop-last)))
(guard (e (#t #f))
(def-var! "clojure.core" "distinct?" (letrec ((distinct? (case-lambda ((x) (let fnrec4877 ((x x)) #t)) ((x y) (let fnrec4878 ((x x) (y y)) (jolt-not (jolt= x y)))) ((x y . more) (let fnrec4879 ((x x) (y y) (more (list->cseq more))) (if (jolt-not (jolt= x y)) (let* ((s (let* ((_o$4881 x) (_o$4882 y)) (jolt-hash-set _o$4881 _o$4882))) (xs more)) (let loop4880 ((s s) (xs xs)) (if (jolt-truthy? xs) (let* ((x (jolt-first xs))) (if (jolt-contains? s x) #f (let* ((_a$4883 (jolt-conj s x)) (_a$4884 (jolt-next xs))) (loop4880 _a$4883 _a$4884)))) #t))) #f)))))) distinct?)))
(guard (e (#t #f))
(def-var! "clojure.core" "replace" (letrec ((replace (lambda (smap coll) (let fnrec4885 ((smap smap) (coll coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (x) (let fnrec4886 ((x x)) (jolt-get smap x x))) coll) (jolt-map (lambda (x) (let fnrec4887 ((x x)) (jolt-get smap x x))) coll)))))) replace)))
(guard (e (#t #f))
(def-var! "clojure.core" "nthnext" (letrec ((nthnext (lambda (coll n) (let fnrec4888 ((coll coll) (n n)) (let* ((n n) (xs (jolt-seq coll))) (let loop4889 ((n n) (xs xs)) (if (jolt-truthy? (let* ((and__25__auto xs)) (if (jolt-truthy? and__25__auto) (jolt-pos? n) and__25__auto))) (let* ((_a$4890 (jolt-dec n)) (_a$4891 (jolt-next xs))) (loop4889 _a$4890 _a$4891)) xs))))))) nthnext)))
(guard (e (#t #f))
(def-var! "clojure.core" "bounded-count" (letrec ((bounded-count (lambda (n coll) (let fnrec4892 ((n n) (coll coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "counted?") coll)) (jolt-count coll) (let* ((i 0) (s (jolt-seq coll))) (let loop4893 ((i i) (s s)) (if (jolt-truthy? (let* ((and__25__auto s)) (if (jolt-truthy? and__25__auto) (jolt-n< i n) and__25__auto))) (let* ((_a$4894 (jolt-inc i)) (_a$4895 (jolt-next s))) (loop4893 _a$4894 _a$4895)) i)))))))) bounded-count)))
(guard (e (#t #f))
(def-var! "clojure.core" "run!" (letrec ((run! (lambda (proc coll) (let fnrec4896 ((proc proc) (coll coll)) (begin (jolt-reduce (lambda (_ x) (let fnrec4897 ((_ _) (x x)) (jolt-invoke proc x))) jolt-nil coll) jolt-nil))))) run!)))
(guard (e (#t #f))
(def-var! "clojure.core" "completing" (letrec ((completing (case-lambda ((f) (let fnrec4898 ((f f)) (completing f jolt-identity))) ((f cf) (let fnrec4899 ((f f) (cf cf)) (case-lambda (() (let fnrec4900 () (jolt-invoke f))) ((x) (let fnrec4901 ((x x)) (jolt-invoke cf x))) ((x y) (let fnrec4902 ((x x) (y y)) (jolt-invoke f x y))))))))) completing)))
(guard (e (#t #f))
(def-var! "clojure.core" "nthrest" (letrec ((nthrest (lambda (coll n) (let fnrec4903 ((coll coll) (n n)) (if (jolt-pos? n) (let* ((or__26__auto (let* ((n n) (xs coll)) (let loop4904 ((n n) (xs xs)) (let* ((s (let* ((and__25__auto (jolt-pos? n))) (if (jolt-truthy? and__25__auto) (jolt-seq xs) and__25__auto)))) (if (jolt-truthy? s) (let* ((_a$4905 (jolt-dec n)) (_a$4906 (jolt-rest s))) (loop4904 _a$4905 _a$4906)) (jolt-seq xs))))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-list ))) coll))))) nthrest)))
(guard (e (#t #f))
(def-var! "clojure.core" "abs" (letrec ((abs (lambda (x) (let fnrec4907 ((x x)) (if (jolt-neg? x) (jolt-n- 0 x) x))))) abs)))
(guard (e (#t #f))
(def-var! "clojure.core" "NaN?" (letrec ((NaN? (lambda (x) (let fnrec4908 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") x)) (jolt-not (jolt= x x)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "NaN? requires a number"))))))) NaN?)))
(guard (e (#t #f))
(def-var! "clojure.core" "object?" (letrec ((object? (lambda (x) (let fnrec4909 ((x x)) #f)))) object?)))
(guard (e (#t #f))
(def-var! "clojure.core" "undefined?" (letrec ((undefined? (lambda (x) (let fnrec4910 ((x x)) #f)))) undefined?)))
(guard (e (#t #f))
(def-var! "clojure.core" "keyword-identical?" (letrec ((keyword-identical? (lambda (a b) (let fnrec4911 ((a a) (b b)) (jolt= a b))))) keyword-identical?)))
(guard (e (#t #f))
(def-var! "clojure.core" "any?" (letrec ((any? (lambda (x) (let fnrec4912 ((x x)) #t)))) any?)))
(guard (e (#t #f))
(def-var! "clojure.core" "printf" (letrec ((printf (lambda (fmt . args) (let fnrec4913 ((fmt fmt) (args (list->cseq args))) (jolt-invoke (var-deref "clojure.core" "print") (jolt-apply (var-deref "clojure.core" "format") fmt args)))))) printf)))
(guard (e (#t #f))
(def-var! "clojure.core" "bound?" (letrec ((bound? (lambda vars (let fnrec4914 ((vars (list->cseq vars))) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (v) (let fnrec4915 ((v v)) (jolt-some? (jolt-get v (keyword #f "root"))))) vars))))) bound?)))
(guard (e (#t #f))
(def-var! "clojure.core" "with-bindings*" (letrec ((with-bindings* (lambda (binding-map f . args) (let fnrec4916 ((binding-map binding-map) (f f) (args (list->cseq args))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") binding-map) (dynamic-wind (lambda () #f) (lambda () (jolt-apply f args)) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))))) with-bindings*)))
(guard (e (#t #f))
(def-var! "clojure.core" "bound-fn*" (letrec ((bound-fn* (lambda (f) (let fnrec4917 ((f f)) (let* ((bs (jolt-invoke (var-deref "clojure.core" "get-thread-bindings")))) (lambda args (let fnrec4918 ((args (list->cseq args))) (jolt-apply (var-deref "clojure.core" "with-bindings*") bs f args)))))))) bound-fn*)))
(guard (e (#t #f))
(def-var! "clojure.core" "thread-bound?" (letrec ((thread-bound? (lambda vars (let fnrec4919 ((vars (list->cseq vars))) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (v) (let fnrec4920 ((v v)) (jolt-invoke (var-deref "clojure.core" "__thread-bound?") v))) vars))))) thread-bound?)))
(guard (e (#t #f))
(def-var! "clojure.core" "key" (letrec ((key (lambda (e) (let fnrec4921 ((e e)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map-entry?") e)) (jolt-nth e 0) (jolt-throw (jolt-ex-info "key requires a map entry" (jolt-hash-map)))))))) key)))
(guard (e (#t #f))
(def-var! "clojure.core" "val" (letrec ((val (lambda (e) (let fnrec4922 ((e e)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map-entry?") e)) (jolt-nth e 1) (jolt-throw (jolt-ex-info "val requires a map entry" (jolt-hash-map)))))))) val)))
(guard (e (#t #f))
(def-var! "clojure.core" "make-hierarchy" (letrec ((make-hierarchy (lambda () (let fnrec4923 () (let* ((_o$4924 (keyword #f "parents")) (_o$4925 (jolt-hash-map)) (_o$4926 (keyword #f "descendants")) (_o$4927 (jolt-hash-map)) (_o$4928 (keyword #f "ancestors")) (_o$4929 (jolt-hash-map))) (jolt-hash-map _o$4924 _o$4925 _o$4926 _o$4927 _o$4928 _o$4929)))))) make-hierarchy)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "global-hierarchy" (jolt-invoke (var-deref "clojure.core" "atom") (jolt-invoke (var-deref "clojure.core" "make-hierarchy"))) (let* ((_o$4930 (keyword #f "private")) (_o$4931 #t)) (jolt-hash-map _o$4930 _o$4931))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "hier-assert" (letrec ((hier-assert (lambda (ok form) (let fnrec4932 ((ok ok) (form form)) (if (jolt-not ok) (jolt-throw (host-new "AssertionError" (jolt-invoke (var-deref "clojure.core" "str") "Assert failed: " form))) jolt-nil))))) hier-assert) (let* ((_o$4933 (keyword #f "private")) (_o$4934 #t)) (jolt-hash-map _o$4933 _o$4934))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "class-tag?" (letrec ((class-tag? (lambda (tag) (let fnrec4935 ((tag tag)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "class-value?") tag)) #t #f))))) class-tag?) (let* ((_o$4936 (keyword #f "private")) (_o$4937 #t)) (jolt-hash-map _o$4936 _o$4937))))
(guard (e (#t #f))
(def-var! "clojure.core" "isa?" (letrec ((isa? (case-lambda ((child parent) (let fnrec4938 ((child child) (parent parent)) (isa? (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) child parent))) ((h child parent) (let fnrec4939 ((h h) (child child) (parent parent)) (let* ((or__26__auto (jolt= child parent))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "jolt.host" "class-isa?") child parent))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-contains? (let* ((_a$4940 (jolt-get h (keyword #f "ancestors"))) (_a$4941 child) (_a$4942 (jolt-hash-set))) (jolt-get _a$4940 _a$4941 _a$4942)) parent))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "class-tag?") child))) (if (jolt-truthy? and__25__auto) (let* ((_a$4947 (var-deref "clojure.core" "some")) (_a$4948 (lambda (s) (let fnrec4943 ((s s)) (jolt-contains? (let* ((_a$4944 (jolt-get h (keyword #f "ancestors"))) (_a$4945 s) (_a$4946 (jolt-hash-set))) (jolt-get _a$4944 _a$4945 _a$4946)) parent)))) (_a$4949 (jolt-invoke (var-deref "jolt.host" "class-supers") child))) (jolt-invoke _a$4947 _a$4948 _a$4949)) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "vector?") parent))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "vector?") child))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (let* ((_a$4950 (jolt-count parent)) (_a$4951 (jolt-count child))) (jolt= _a$4950 _a$4951)))) (if (jolt-truthy? and__25__auto) (let* ((ret #t) (i 0)) (let loop4952 ((ret ret) (i i)) (if (let* ((or__26__auto (jolt-not ret))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= i (jolt-count parent)))) ret (let* ((_a$4956 (let* ((_a$4953 h) (_a$4954 (jolt-nth child i)) (_a$4955 (jolt-nth parent i))) (isa? _a$4953 _a$4954 _a$4955))) (_a$4957 (jolt-inc i))) (loop4952 _a$4956 _a$4957))))) and__25__auto)) and__25__auto)) and__25__auto))))))))))))))) isa?)))
(guard (e (#t #f))
(def-var! "clojure.core" "parents" (letrec ((parents (case-lambda ((tag) (let fnrec4958 ((tag tag)) (parents (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) tag))) ((h tag) (let fnrec4959 ((h h) (tag tag)) (jolt-invoke (var-deref "clojure.core" "not-empty") (let* ((tp (jolt-get (jolt-get h (keyword #f "parents")) tag))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "class-tag?") tag)) (jolt-into (jolt-invoke (var-deref "clojure.core" "set") (jolt-invoke (var-deref "jolt.host" "class-bases") tag)) tp) tp)))))))) parents)))
(guard (e (#t #f))
(def-var! "clojure.core" "ancestors" (letrec ((ancestors (case-lambda ((tag) (let fnrec4960 ((tag tag)) (ancestors (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) tag))) ((h tag) (let fnrec4961 ((h h) (tag tag)) (jolt-invoke (var-deref "clojure.core" "not-empty") (let* ((ta (jolt-get (jolt-get h (keyword #f "ancestors")) tag))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "class-tag?") tag)) (let* ((superclasses (jolt-invoke (var-deref "clojure.core" "set") (jolt-invoke (var-deref "jolt.host" "class-supers") tag)))) (jolt-reduce jolt-into superclasses (jolt-cons ta (jolt-map (lambda (s) (let fnrec4962 ((s s)) (jolt-get (jolt-get h (keyword #f "ancestors")) s))) superclasses)))) ta)))))))) ancestors)))
(guard (e (#t #f))
(def-var! "clojure.core" "descendants" (letrec ((descendants (case-lambda ((tag) (let fnrec4963 ((tag tag)) (descendants (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) tag))) ((h tag) (let fnrec4964 ((h h) (tag tag)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "class-tag?") tag)) (jolt-throw (host-new "UnsupportedOperationException" "Can't get descendants of classes")) (jolt-invoke (var-deref "clojure.core" "not-empty") (jolt-get (jolt-get h (keyword #f "descendants")) tag)))))))) descendants)))
(guard (e (#t #f))
(def-var! "clojure.core" "derive" (letrec ((derive (case-lambda ((tag parent) (let fnrec4965 ((tag tag) (parent parent)) (begin (jolt-invoke (var-deref "clojure.core" "hier-assert") (jolt-invoke (var-deref "clojure.core" "namespace") parent) "(namespace parent)") (jolt-invoke (var-deref "clojure.core" "hier-assert") (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "class-tag?") tag))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") tag))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") tag))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "namespace") tag) and__25__auto)))) "(or (class? tag) (and (instance? clojure.lang.Named tag) (namespace tag)))") (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "clojure.core" "global-hierarchy") derive tag parent) jolt-nil))) ((h tag parent) (let fnrec4966 ((h h) (tag tag) (parent parent)) (begin (jolt-invoke (var-deref "clojure.core" "hier-assert") (jolt-invoke (var-deref "clojure.core" "not=") tag parent) "(not= tag parent)") (jolt-invoke (var-deref "clojure.core" "hier-assert") (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "class-tag?") tag))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") tag))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") tag))))) "(or (class? tag) (instance? clojure.lang.Named tag))") (jolt-invoke (var-deref "clojure.core" "hier-assert") (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") parent))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") parent))) "(instance? clojure.lang.Named parent)") (let* ((tp (jolt-get h (keyword #f "parents"))) (td (jolt-get h (keyword #f "descendants"))) (ta (jolt-get h (keyword #f "ancestors"))) (tf (lambda (m source sources target targets) (let fnrec4967 ((m m) (source source) (sources sources) (target target) (targets targets)) (let* ((_a$4972 (lambda (ret k) (let fnrec4968 ((ret ret) (k k)) (jolt-assoc ret k (let* ((_a$4969 jolt-conj) (_a$4970 (jolt-get targets k (jolt-hash-set))) (_a$4971 (jolt-cons target (jolt-invoke targets target)))) (jolt-reduce _a$4969 _a$4970 _a$4971)))))) (_a$4973 m) (_a$4974 (jolt-cons source (jolt-invoke sources source)))) (jolt-reduce _a$4972 _a$4973 _a$4974)))))) (let* ((or__26__auto (if (jolt-not (jolt-contains? (jolt-invoke tp tag) parent)) (begin (if (jolt-contains? (jolt-invoke ta tag) parent) (jolt-throw (host-new "Exception" (jolt-invoke (var-deref "clojure.core" "str") tag " already has " parent " as ancestor"))) jolt-nil) (if (jolt-contains? (jolt-invoke ta parent) tag) (jolt-throw (host-new "Exception" (jolt-invoke (var-deref "clojure.core" "str") "Cyclic derivation: " parent " has " tag " as ancestor"))) jolt-nil) (let* ((_o$4975 (keyword #f "parents")) (_o$4976 (jolt-assoc tp tag (jolt-conj (jolt-get tp tag (jolt-hash-set)) parent))) (_o$4977 (keyword #f "ancestors")) (_o$4978 (jolt-invoke tf ta tag td parent ta)) (_o$4979 (keyword #f "descendants")) (_o$4980 (jolt-invoke tf td parent ta tag td))) (jolt-hash-map _o$4975 _o$4976 _o$4977 _o$4978 _o$4979 _o$4980))) jolt-nil))) (if (jolt-truthy? or__26__auto) or__26__auto h))))))))) derive)))
(guard (e (#t #f))
(def-var! "clojure.core" "underive" (letrec ((underive (case-lambda ((tag parent) (let fnrec4981 ((tag tag) (parent parent)) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "clojure.core" "global-hierarchy") underive tag parent) jolt-nil))) ((h tag parent) (let fnrec4982 ((h h) (tag tag) (parent parent)) (let* ((parent-map (jolt-get h (keyword #f "parents"))) (childs-parents (if (jolt-truthy? (jolt-invoke parent-map tag)) (jolt-invoke (var-deref "clojure.core" "disj") (jolt-invoke parent-map tag) parent) (jolt-hash-set))) (new-parents (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "not-empty") childs-parents)) (jolt-assoc parent-map tag childs-parents) (jolt-dissoc parent-map tag))) (deriv-seq (let* ((_a$4989 (var-deref "clojure.core" "mapcat")) (_a$4990 (lambda (e) (let fnrec4983 ((e e)) (let* ((_a$4987 (jolt-invoke (var-deref "clojure.core" "key") e)) (_a$4988 (let* ((_a$4984 (var-deref "clojure.core" "interpose")) (_a$4985 (jolt-invoke (var-deref "clojure.core" "key") e)) (_a$4986 (jolt-invoke (var-deref "clojure.core" "val") e))) (jolt-invoke _a$4984 _a$4985 _a$4986)))) (jolt-cons _a$4987 _a$4988))))) (_a$4991 (jolt-seq new-parents))) (jolt-invoke _a$4989 _a$4990 _a$4991)))) (if (jolt-contains? (jolt-invoke parent-map tag) parent) (let* ((_a$4993 (lambda (p G__136) (let fnrec4992 ((p p) (G__136 G__136)) (let* ((G__137 G__136) (t (jolt-nth G__137 0 jolt-nil)) (pr (jolt-nth G__137 1 jolt-nil))) (jolt-invoke (var-deref "clojure.core" "derive") p t pr))))) (_a$4994 (jolt-invoke (var-deref "clojure.core" "make-hierarchy"))) (_a$4995 (jolt-invoke (var-deref "clojure.core" "partition") 2 deriv-seq))) (jolt-reduce _a$4993 _a$4994 _a$4995)) h))))))) underive)))
(guard (e (#t #f))
(def-var! "clojure.core" "sequential?" (letrec ((sequential? (lambda (x) (let fnrec4996 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "seq?") x))))))) sequential?)))
(guard (e (#t #f))
(def-var! "clojure.core" "associative?" (letrec ((associative? (lambda (x) (let fnrec4997 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "map?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))))))) associative?)))
(guard (e (#t #f))
(def-var! "clojure.core" "counted?" (letrec ((counted? (lambda (x) (let fnrec4998 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "map?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "set?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "list?") x))))))))))) counted?)))
(guard (e (#t #f))
(def-var! "clojure.core" "indexed?" (letrec ((indexed? (lambda (x) (let fnrec4999 ((x x)) (jolt-invoke (var-deref "clojure.core" "vector?") x))))) indexed?)))
(guard (e (#t #f))
(declare-var! "clojure.core" "sorted?"))
(guard (e (#t #f))
(def-var! "clojure.core" "reversible?" (letrec ((reversible? (lambda (x) (let fnrec5000 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "sorted?") x))))))) reversible?)))
(guard (e (#t #f))
(def-var! "clojure.core" "seqable?" (letrec ((seqable? (lambda (x) (let fnrec5001 ((x x)) (if (jolt-truthy? (let* ((or__26__auto (jolt-nil? x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "coll?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "string?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "jolt.host" "array-value?") x)))))))) #t #f))))) seqable?)))
(guard (e (#t #f))
(def-var! "clojure.core" "boolean?" (letrec ((boolean? (lambda (x) (let fnrec5002 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "true?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "false?") x))))))) boolean?)))
(guard (e (#t #f))
(def-var! "clojure.core" "double?" (letrec ((double? (lambda (x) (let fnrec5003 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") x))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "integer?") x)) and__25__auto)))))) double?)))
(guard (e (#t #f))
(def-var! "clojure.core" "float?" (letrec ((float? (lambda (x) (let fnrec5004 ((x x)) (jolt-invoke (var-deref "clojure.core" "double?") x))))) float?)))
(guard (e (#t #f))
(def-var! "clojure.core" "infinite?" (letrec ((infinite? (lambda (x) (let fnrec5005 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") x))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= x +inf.0))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= x -inf.0))) and__25__auto)))))) infinite?)))
(guard (e (#t #f))
(def-var! "clojure.core" "atom?" (letrec ((atom? (lambda (x) (let fnrec5006 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "atom")))))) atom?)))
(guard (e (#t #f))
(def-var! "clojure.core" "volatile?" (letrec ((volatile? (lambda (x) (let fnrec5007 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "volatile")))))) volatile?)))
(guard (e (#t #f))
(def-var! "clojure.core" "reader-conditional?" (letrec ((reader-conditional? (lambda (x) (let fnrec5008 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "reader-conditional")))))) reader-conditional?)))
(guard (e (#t #f))
(def-var! "clojure.core" "tagged-literal?" (letrec ((tagged-literal? (lambda (x) (let fnrec5009 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "tagged-literal")))))) tagged-literal?)))
(guard (e (#t #f))
(def-var! "clojure.core" "record?" (letrec ((record? (lambda (x) (let fnrec5010 ((x x)) (jolt-some? (jolt-get x (keyword "jolt" "deftype"))))))) record?)))
(guard (e (#t #f))
(def-var! "clojure.core" "uuid?" (letrec ((uuid? (lambda (x) (let fnrec5011 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "uuid")))))) uuid?)))
(guard (e (#t #f))
(def-var! "clojure.core" "inst?" (letrec ((inst? (lambda (x) (let fnrec5012 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "inst")))))) inst?)))
(guard (e (#t #f))
(def-var! "clojure.core" "char?" (letrec ((char? (lambda (x) (let fnrec5013 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "char")))))) char?)))
(guard (e (#t #f))
(def-var! "clojure.core" "realized?" (letrec ((realized? (lambda (x) (let fnrec5014 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "delay?") x)) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-get x (keyword #f "realized"))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "future?") x)) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-get x (keyword #f "cached"))) (if (jolt= (keyword "jolt" "lazy-seq") (jolt-get x (keyword "jolt" "type"))) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-get x (keyword #f "realized"))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "atom?") x)) #t (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "realized? not supported on: " (jolt-invoke (var-deref "clojure.core" "class") x))) jolt-nil))))))))) realized?)))
(guard (e (#t #f))
(def-var! "clojure.core" "force" (letrec ((force (lambda (x) (let fnrec5015 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "delay?") x)) (jolt-invoke (var-deref "clojure.core" "deref") x) x))))) force)))
(guard (e (#t #f))
(def-var! "clojure.core" "pop" (letrec ((pop (lambda (coll) (let fnrec5016 ((coll coll)) (if (jolt-nil? coll) jolt-nil (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (if (jolt-zero? (jolt-count coll)) (jolt-throw "Can't pop empty vector") (jolt-invoke (var-deref "clojure.core" "subvec") coll 0 (jolt-dec (jolt-count coll)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") coll)) (if (jolt-nil? (jolt-seq coll)) (jolt-throw "Can't pop empty list") (jolt-rest coll)) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "pop not supported on: " coll)) jolt-nil)))))))) pop)))
(guard (e (#t #f))
(def-var! "clojure.core" "dorun" (letrec ((dorun (case-lambda ((coll) (let fnrec5017 ((coll coll)) (let* ((s (jolt-seq coll))) (let loop5018 ((s s)) (if (jolt-truthy? s) (loop5018 (jolt-next s)) jolt-nil))))) ((n coll) (let fnrec5019 ((n n) (coll coll)) (let* ((n n) (s (jolt-seq coll))) (let loop5020 ((n n) (s s)) (if (jolt-truthy? (let* ((and__25__auto s)) (if (jolt-truthy? and__25__auto) (jolt-pos? n) and__25__auto))) (let* ((_a$5021 (jolt-dec n)) (_a$5022 (jolt-next s))) (loop5020 _a$5021 _a$5022)) jolt-nil)))))))) dorun)))
(guard (e (#t #f))
(def-var! "clojure.core" "doall" (letrec ((doall (case-lambda ((coll) (let fnrec5023 ((coll coll)) (begin (jolt-invoke (var-deref "clojure.core" "dorun") coll) coll))) ((n coll) (let fnrec5024 ((n n) (coll coll)) (begin (jolt-invoke (var-deref "clojure.core" "dorun") n coll) coll)))))) doall)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "spread" (letrec ((spread (lambda (arglist) (let fnrec5025 ((arglist arglist)) (if (jolt-nil? arglist) jolt-nil (if (jolt-nil? (jolt-next arglist)) (jolt-seq (jolt-first arglist)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$5026 (jolt-first arglist)) (_a$5027 (spread (jolt-next arglist)))) (jolt-cons _a$5026 _a$5027)) jolt-nil))))))) spread) (let* ((_o$5028 (keyword #f "private")) (_o$5029 #t)) (jolt-hash-map _o$5028 _o$5029))))
(guard (e (#t #f))
(def-var! "clojure.core" "list*" (letrec ((list* (case-lambda ((args) (let fnrec5030 ((args args)) (jolt-seq args))) ((a args) (let fnrec5031 ((a a) (args args)) (jolt-cons a args))) ((a b args) (let fnrec5032 ((a a) (b b) (args args)) (jolt-cons a (jolt-cons b args)))) ((a b c args) (let fnrec5033 ((a a) (b b) (c c) (args args)) (jolt-cons a (jolt-cons b (jolt-cons c args))))) ((a b c d . more) (let fnrec5034 ((a a) (b b) (c c) (d d) (more (list->cseq more))) (jolt-cons a (jolt-cons b (jolt-cons c (jolt-cons d (jolt-invoke (var-deref "clojure.core" "spread") more)))))))))) list*)))
(guard (e (#t #f))
(def-var! "clojure.core" "print-str" (letrec ((print-str (lambda xs (let fnrec5035 ((xs (list->cseq xs))) (jolt-invoke (var-deref "clojure.core" "__with-out-str") (lambda () (let fnrec5036 () (jolt-apply (var-deref "clojure.core" "print") xs)))))))) print-str)))
(guard (e (#t #f))
(def-var! "clojure.core" "println-str" (letrec ((println-str (lambda xs (let fnrec5037 ((xs (list->cseq xs))) (jolt-invoke (var-deref "clojure.core" "__with-out-str") (lambda () (let fnrec5038 () (jolt-apply (var-deref "clojure.core" "println") xs)))))))) println-str)))
(guard (e (#t #f))
(def-var! "clojure.core" "prn-str" (letrec ((prn-str (lambda xs (let fnrec5039 ((xs (list->cseq xs))) (jolt-invoke (var-deref "clojure.core" "__with-out-str") (lambda () (let fnrec5040 () (jolt-apply (var-deref "clojure.core" "prn") xs)))))))) prn-str)))
(guard (e (#t #f))
(def-var! "clojure.core" "rand-int" (letrec ((rand-int (lambda (n) (let fnrec4319 ((n n)) (jolt-invoke (var-deref "clojure.core" "int") (jolt-invoke (var-deref "clojure.core" "rand") n)))))) rand-int)))
(guard (e (#t #f))
(def-var! "clojure.core" "shuffle" (letrec ((shuffle (lambda (coll) (let fnrec4320 ((coll coll)) (begin (if (jolt-truthy? (let* ((or__26__auto (jolt-not (jolt-invoke (var-deref "clojure.core" "coll?") coll)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "map?") coll)))) (jolt-throw (let* ((_a$4321 (jolt-invoke (var-deref "clojure.core" "str") "shuffle requires a collection, got: " coll)) (_a$4322 (jolt-hash-map))) (jolt-ex-info _a$4321 _a$4322))) jolt-nil) (let* ((v (jolt-invoke (var-deref "clojure.core" "vec") coll)) (i (jolt-dec (jolt-count v)))) (let loop4323 ((v v) (i i)) (if (jolt-pos? i) (let* ((j (jolt-invoke (var-deref "clojure.core" "rand-int") (jolt-inc i))) (t (jolt-nth v i))) (let* ((_a$4324 (jolt-assoc (jolt-assoc v i (jolt-nth v j)) j t)) (_a$4325 (jolt-dec i))) (loop4323 _a$4324 _a$4325))) v)))))))) shuffle)))
(guard (e (#t #f))
(def-var! "clojure.core" "sort-by" (letrec ((sort-by (case-lambda ((keyfn coll) (let fnrec4326 ((keyfn keyfn) (coll coll)) (sort-by keyfn (var-deref "clojure.core" "compare") coll))) ((keyfn comp coll) (let fnrec4327 ((keyfn keyfn) (comp comp) (coll coll)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "coll?") comp)) (jolt-throw (host-new "ClassCastException" (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "class") comp) " cannot be cast to java.util.Comparator"))) jolt-nil) (jolt-invoke (var-deref "clojure.core" "sort") (lambda (x y) (let fnrec4328 ((x x) (y y)) (let* ((_a$4329 comp) (_a$4330 (jolt-invoke keyfn x)) (_a$4331 (jolt-invoke keyfn y))) (jolt-invoke _a$4329 _a$4330 _a$4331)))) coll))))))) sort-by)))
(guard (e (#t #f))
(def-var! "clojure.core" "parse-uuid" (letrec ((parse-uuid (lambda (s) (let fnrec4332 ((s s)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") s)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "re-matches") (jolt-regex "[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}") s)) (jolt-invoke (var-deref "clojure.core" "__make-uuid") s) jolt-nil) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "parse-uuid requires a string, got: " s))))))) parse-uuid)))
(guard (e (#t #f))
(def-var! "clojure.core" "random-uuid" (letrec ((random-uuid (lambda () (let fnrec4333 () (let* ((hx4 (lambda () (let fnrec4334 () (jolt-invoke (var-deref "clojure.core" "format") "%04x" (jolt-invoke (var-deref "clojure.core" "rand-int") 65536))))) (hx3 (lambda () (let fnrec4335 () (jolt-invoke (var-deref "clojure.core" "format") "%03x" (jolt-invoke (var-deref "clojure.core" "rand-int") 4096)))))) (jolt-invoke (var-deref "clojure.core" "parse-uuid") (let* ((_a$4336 (var-deref "clojure.core" "str")) (_a$4337 (jolt-invoke hx4)) (_a$4338 (jolt-invoke hx4)) (_a$4339 "-") (_a$4340 (jolt-invoke hx4)) (_a$4341 "-4") (_a$4342 (jolt-invoke hx3)) (_a$4343 "-") (_a$4344 (jolt-invoke (var-deref "clojure.core" "format") "%x" (jolt-n+ 8 (jolt-invoke (var-deref "clojure.core" "rand-int") 4)))) (_a$4345 (jolt-invoke hx3)) (_a$4346 "-") (_a$4347 (jolt-invoke hx4)) (_a$4348 (jolt-invoke hx4)) (_a$4349 (jolt-invoke hx4))) (jolt-invoke _a$4336 _a$4337 _a$4338 _a$4339 _a$4340 _a$4341 _a$4342 _a$4343 _a$4344 _a$4345 _a$4346 _a$4347 _a$4348 _a$4349)))))))) random-uuid)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "char-escape-strings" (let* ((_o$4350 (integer->char 10)) (_o$4351 "\\n") (_o$4352 (integer->char 9)) (_o$4353 "\\t") (_o$4354 (integer->char 13)) (_o$4355 "\\r") (_o$4356 (integer->char 12)) (_o$4357 "\\f") (_o$4358 (integer->char 8)) (_o$4359 "\\b") (_o$4360 (integer->char 34)) (_o$4361 "\\\"") (_o$4362 (integer->char 92)) (_o$4363 "\\\\")) (jolt-hash-map _o$4350 _o$4351 _o$4352 _o$4353 _o$4354 _o$4355 _o$4356 _o$4357 _o$4358 _o$4359 _o$4360 _o$4361 _o$4362 _o$4363)) (let* ((_o$4364 (keyword #f "private")) (_o$4365 #t)) (jolt-hash-map _o$4364 _o$4365))))
(guard (e (#t #f))
(def-var! "clojure.core" "char-escape-string" (letrec ((char-escape-string (lambda (c) (let fnrec4366 ((c c)) (jolt-get (var-deref "clojure.core" "char-escape-strings") c))))) char-escape-string)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "char-name-strings" (let* ((_o$4367 (integer->char 10)) (_o$4368 "newline") (_o$4369 (integer->char 9)) (_o$4370 "tab") (_o$4371 (integer->char 13)) (_o$4372 "return") (_o$4373 (integer->char 12)) (_o$4374 "formfeed") (_o$4375 (integer->char 8)) (_o$4376 "backspace") (_o$4377 (integer->char 32)) (_o$4378 "space")) (jolt-hash-map _o$4367 _o$4368 _o$4369 _o$4370 _o$4371 _o$4372 _o$4373 _o$4374 _o$4375 _o$4376 _o$4377 _o$4378)) (let* ((_o$4379 (keyword #f "private")) (_o$4380 #t)) (jolt-hash-map _o$4379 _o$4380))))
(guard (e (#t #f))
(def-var! "clojure.core" "char-name-string" (letrec ((char-name-string (lambda (c) (let fnrec4381 ((c c)) (jolt-get (var-deref "clojure.core" "char-name-strings") c))))) char-name-string)))
(guard (e (#t #f))
(def-var! "clojure.core" "rand-nth" (letrec ((rand-nth (lambda (coll) (let fnrec4382 ((coll coll)) (jolt-nth coll (jolt-invoke (var-deref "clojure.core" "rand-int") (jolt-count coll))))))) rand-nth)))
(guard (e (#t #f))
(def-var! "clojure.core" "random-sample" (letrec ((random-sample (case-lambda ((prob) (let fnrec4383 ((prob prob)) (jolt-invoke jolt-filter (lambda (_) (let fnrec4384 ((_ _)) (jolt-n< (jolt-invoke (var-deref "clojure.core" "rand")) prob)))))) ((prob coll) (let fnrec4385 ((prob prob) (coll coll)) (jolt-filter (lambda (_) (let fnrec4386 ((_ _)) (jolt-n< (jolt-invoke (var-deref "clojure.core" "rand")) prob))) coll)))))) random-sample)))
(guard (e (#t #f))
(def-var! "clojure.core" "comparator" (letrec ((comparator (lambda (pred) (let fnrec4387 ((pred pred)) (lambda (a b) (let fnrec4388 ((a a) (b b)) (if (jolt-truthy? (jolt-invoke pred a b)) -1 (if (jolt-truthy? (jolt-invoke pred b a)) 1 (if (jolt-truthy? (keyword #f "else")) 0 jolt-nil))))))))) comparator)))
(guard (e (#t #f))
(def-var! "clojure.core" "reductions" (letrec ((reductions (case-lambda ((f coll) (let fnrec4389 ((f f) (coll coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4390 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((s (jolt-seq coll))) (if (jolt-truthy? s) (let* ((_a$4391 f) (_a$4392 (jolt-first s)) (_a$4393 (jolt-rest s))) (reductions _a$4391 _a$4392 _a$4393)) (jolt-list (jolt-invoke f)))))))))) ((f init coll) (let fnrec4394 ((f f) (init init) (coll coll)) (jolt-cons init (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4395 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((_a$4396 f) (_a$4397 (jolt-invoke f init (jolt-first s))) (_a$4398 (jolt-rest s))) (reductions _a$4396 _a$4397 _a$4398))) jolt-nil)))))))))))) reductions)))
(guard (e (#t #f))
(def-var! "clojure.core" "tree-seq" (letrec ((tree-seq (lambda (branch? children root) (let fnrec4399 ((branch? branch?) (children children) (root root)) (let* ((walk (letrec ((walk (lambda (node) (let fnrec4400 ((node node)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4401 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-cons node (if (jolt-truthy? (jolt-invoke branch? node)) (jolt-invoke (var-deref "clojure.core" "mapcat") walk (jolt-invoke children node)) jolt-nil)))))))))) walk))) (jolt-invoke walk root)))))) tree-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "file-seq" (letrec ((file-seq (lambda (root) (let fnrec4402 ((root root)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "__file?") root)) (let* ((_a$4405 (var-deref "clojure.core" "tree-seq")) (_a$4406 (lambda (f) (let fnrec4403 ((f f)) (jolt-host-call "isDirectory" f)))) (_a$4407 (lambda (f) (let fnrec4404 ((f f)) (jolt-seq (jolt-host-call "listFiles" f))))) (_a$4408 root)) (jolt-invoke _a$4405 _a$4406 _a$4407 _a$4408)) (jolt-invoke (var-deref "clojure.core" "tree-seq") (var-deref "clojure.core" "__dir?") (var-deref "clojure.core" "__list-dir") root)))))) file-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "flatten" (letrec ((flatten (lambda (coll) (let fnrec4409 ((coll coll)) (let* ((_a$4410 (jolt-invoke (var-deref "clojure.core" "complement") (var-deref "clojure.core" "sequential?"))) (_a$4411 (jolt-rest (jolt-invoke (var-deref "clojure.core" "tree-seq") (var-deref "clojure.core" "sequential?") jolt-seq coll)))) (jolt-filter _a$4410 _a$4411)))))) flatten)))
(guard (e (#t #f))
(def-var! "clojure.core" "xml-seq" (letrec ((xml-seq (lambda (root) (let fnrec4412 ((root root)) (let* ((_a$4413 (var-deref "clojure.core" "tree-seq")) (_a$4414 (jolt-invoke (var-deref "clojure.core" "complement") (var-deref "clojure.core" "string?"))) (_a$4415 (jolt-invoke (var-deref "clojure.core" "comp") jolt-seq (keyword #f "content"))) (_a$4416 root)) (jolt-invoke _a$4413 _a$4414 _a$4415 _a$4416)))))) xml-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "interleave" (letrec ((interleave (case-lambda (() (let fnrec4417 () (jolt-list ))) ((c1) (let fnrec4418 ((c1 c1)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4419 () (jolt-invoke (var-deref "clojure.core" "coll->cells") c1)))))) ((c1 c2) (let fnrec4420 ((c1 c1) (c2 c2)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4421 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((s1 (jolt-seq c1)) (s2 (jolt-seq c2))) (if (jolt-truthy? (let* ((and__25__auto s1)) (if (jolt-truthy? and__25__auto) s2 and__25__auto))) (let* ((_a$4426 (jolt-first s1)) (_a$4427 (let* ((_a$4424 (jolt-first s2)) (_a$4425 (let* ((_a$4422 (jolt-rest s1)) (_a$4423 (jolt-rest s2))) (interleave _a$4422 _a$4423)))) (jolt-cons _a$4424 _a$4425)))) (jolt-cons _a$4426 _a$4427)) jolt-nil)))))))) ((c1 c2 . cs) (let fnrec4428 ((c1 c1) (c2 c2) (cs (list->cseq cs))) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4429 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((ss (jolt-map jolt-seq (jolt-invoke (var-deref "clojure.core" "list*") c1 c2 cs)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "every?") jolt-identity ss)) (let* ((_a$4430 (jolt-map jolt-first ss)) (_a$4431 (jolt-apply interleave (jolt-map jolt-rest ss)))) (jolt-concat _a$4430 _a$4431)) jolt-nil))))))))))) interleave)))
(guard (e (#t #f))
(def-var! "clojure.core" "dedupe" (letrec ((dedupe (case-lambda (() (let fnrec4432 () (lambda (rf) (let fnrec4433 ((rf rf)) (let* ((pv (jolt-invoke (var-deref "clojure.core" "volatile!") (let* ((_o$4434 #f) (_o$4435 jolt-nil)) (jolt-vector _o$4434 _o$4435))))) (case-lambda (() (let fnrec4436 () (jolt-invoke rf))) ((result) (let fnrec4437 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec4438 ((result result) (input input)) (let* ((G__132 (jolt-invoke (var-deref "clojure.core" "deref") pv)) (seen (jolt-nth G__132 0 jolt-nil)) (prior (jolt-nth G__132 1 jolt-nil))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") pv (let* ((_o$4439 #t) (_o$4440 input)) (jolt-vector _o$4439 _o$4440))) (if (jolt-truthy? (let* ((and__25__auto seen)) (if (jolt-truthy? and__25__auto) (jolt= prior input) and__25__auto))) result (jolt-invoke rf result input)))))))))))) ((coll) (let fnrec4441 ((coll coll)) (let* ((step (letrec ((step (lambda (s prev) (let fnrec4442 ((s s) (prev prev)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4443 () (let* ((s (jolt-seq s))) (if (jolt-truthy? s) (let* ((x (jolt-first s))) (if (jolt= x prev) (jolt-invoke (var-deref "clojure.core" "coll->cells") (step (jolt-rest s) prev)) (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-cons x (step (jolt-rest s) x))))) jolt-nil))))))))) step))) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4444 () (let* ((s (jolt-seq coll))) (if (jolt-truthy? s) (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((_a$4448 (jolt-first s)) (_a$4449 (let* ((_a$4445 step) (_a$4446 (jolt-rest s)) (_a$4447 (jolt-first s))) (jolt-invoke _a$4445 _a$4446 _a$4447)))) (jolt-cons _a$4448 _a$4449))) jolt-nil))))))))))) dedupe)))
(guard (e (#t #f))
(def-var! "clojure.core" "seq-to-map-for-destructuring" (letrec ((seq-to-map-for-destructuring (lambda (s) (let fnrec4450 ((s s)) (if (jolt-truthy? (jolt-next s)) (let* ((m (jolt-hash-map)) (xs (jolt-seq s))) (let loop4451 ((m m) (xs xs)) (if (jolt-truthy? xs) (if (jolt-truthy? (jolt-next xs)) (let* ((_a$4455 (let* ((_a$4452 m) (_a$4453 (jolt-first xs)) (_a$4454 (jolt-invoke (var-deref "clojure.core" "second") xs))) (jolt-assoc _a$4452 _a$4453 _a$4454))) (_a$4456 (jolt-invoke (var-deref "clojure.core" "nnext") xs))) (loop4451 _a$4455 _a$4456)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "No value supplied for key: " (jolt-first xs)))) m))) (if (jolt-truthy? (jolt-seq s)) (jolt-first s) (jolt-hash-map))))))) seq-to-map-for-destructuring)))
(guard (e (#t #f))
(def-var! "clojure.core" "vary-meta" (letrec ((vary-meta (lambda (obj f . args) (let fnrec4457 ((obj obj) (f f) (args (list->cseq args))) (jolt-invoke (var-deref "clojure.core" "with-meta") obj (jolt-apply f (jolt-invoke (var-deref "clojure.core" "meta") obj) args)))))) vary-meta)))
(guard (e (#t #f))
(def-var! "clojure.core" "namespace-munge" (letrec ((namespace-munge (lambda (s) (let fnrec4458 ((s s)) (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$4460 (lambda (c) (let fnrec4459 ((c c)) (if (jolt= c (integer->char 45)) (integer->char 95) c)))) (_a$4461 (jolt-seq (jolt-invoke (var-deref "clojure.core" "str") s)))) (jolt-map _a$4460 _a$4461))))))) namespace-munge)))
(guard (e (#t #f))
(def-var! "clojure.core" "reduce-kv" (letrec ((reduce-kv (lambda (f init coll) (let fnrec4462 ((f f) (init init) (coll coll)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (let* ((_a$4464 (lambda (acc i) (let fnrec4463 ((acc acc) (i i)) (jolt-invoke f acc i (jolt-nth coll i))))) (_a$4465 init) (_a$4466 (jolt-range (jolt-count coll)))) (jolt-reduce _a$4464 _a$4465 _a$4466)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") coll)) (let* ((_a$4468 (lambda (acc k) (let fnrec4467 ((acc acc) (k k)) (jolt-invoke f acc k (jolt-get coll k))))) (_a$4469 init) (_a$4470 (jolt-keys coll))) (jolt-reduce _a$4468 _a$4469 _a$4470)) (if (jolt-nil? coll) init (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "reduce-kv not supported on: " coll)) jolt-nil)))))))) reduce-kv)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ex-info-val?" (letrec ((ex-info-val? (lambda (x) (let fnrec4471 ((x x)) (jolt= (jolt-get x (keyword "jolt" "type")) (keyword "jolt" "ex-info")))))) ex-info-val?) (let* ((_o$4472 (keyword #f "private")) (_o$4473 #t)) (jolt-hash-map _o$4472 _o$4473))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ex-unwrap" (letrec ((ex-unwrap (lambda (e) (let fnrec4474 ((e e)) (if (jolt= (jolt-get e (keyword "jolt" "type")) (keyword "jolt" "exception")) (jolt-get e (keyword #f "value")) e))))) ex-unwrap) (let* ((_o$4475 (keyword #f "private")) (_o$4476 #t)) (jolt-hash-map _o$4475 _o$4476))))
(guard (e (#t #f))
(def-var! "clojure.core" "ex-data" (letrec ((ex-data (lambda (e) (let fnrec4477 ((e e)) (let* ((e (jolt-invoke (var-deref "clojure.core" "ex-unwrap") e))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "ex-info-val?") e)) (jolt-get e (keyword #f "data")) jolt-nil)))))) ex-data)))
(guard (e (#t #f))
(def-var! "clojure.core" "ex-message" (letrec ((ex-message (lambda (e) (let fnrec4478 ((e e)) (let* ((e (jolt-invoke (var-deref "clojure.core" "ex-unwrap") e))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "ex-info-val?") e)) (jolt-get e (keyword #f "message")) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))) ex-message)))
(guard (e (#t #f))
(def-var! "clojure.core" "ex-cause" (letrec ((ex-cause (lambda (e) (let fnrec4479 ((e e)) (let* ((e (jolt-invoke (var-deref "clojure.core" "ex-unwrap") e))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "ex-info-val?") e)) (jolt-get e (keyword #f "cause")) jolt-nil)))))) ex-cause)))
(guard (e (#t #f))
(def-var! "clojure.core" "inst-ms" (letrec ((inst-ms (lambda (x) (let fnrec4480 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "inst?") x)) (jolt-get x (keyword #f "ms")) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "inst-ms requires an inst, got: " x))))))) inst-ms)))
(guard (e (#t #f))
(def-var! "clojure.core" "update-keys" (letrec ((update-keys (lambda (m f) (let fnrec4481 ((m m) (f f)) (let* ((_a$4483 (var-deref "clojure.core" "reduce-kv")) (_a$4484 (lambda (acc k v) (let fnrec4482 ((acc acc) (k k) (v v)) (jolt-assoc acc (jolt-invoke f k) v)))) (_a$4485 (jolt-hash-map)) (_a$4486 m)) (jolt-invoke _a$4483 _a$4484 _a$4485 _a$4486)))))) update-keys)))
(guard (e (#t #f))
(def-var! "clojure.core" "update-vals" (letrec ((update-vals (lambda (m f) (let fnrec4487 ((m m) (f f)) (let* ((_a$4489 (var-deref "clojure.core" "reduce-kv")) (_a$4490 (lambda (acc k v) (let fnrec4488 ((acc acc) (k k) (v v)) (jolt-assoc acc k (jolt-invoke f v))))) (_a$4491 (jolt-hash-map)) (_a$4492 m)) (jolt-invoke _a$4489 _a$4490 _a$4491 _a$4492)))))) update-vals)))
(guard (e (#t #f))
(def-var! "clojure.core" "partitionv" (letrec ((partitionv (case-lambda ((n coll) (let fnrec4493 ((n n) (coll coll)) (jolt-map (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "partition") n coll)))) ((n step coll) (let fnrec4494 ((n n) (step step) (coll coll)) (jolt-map (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "partition") n step coll)))) ((n step pad coll) (let fnrec4495 ((n n) (step step) (pad pad) (coll coll)) (jolt-map (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "partition") n step pad coll))))))) partitionv)))
(guard (e (#t #f))
(declare-var! "clojure.core" "partition-all"))
(guard (e (#t #f))
(def-var! "clojure.core" "partitionv-all" (letrec ((partitionv-all (case-lambda ((n coll) (let fnrec4496 ((n n) (coll coll)) (jolt-map (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "partition-all") n coll)))) ((n step coll) (let fnrec4497 ((n n) (step step) (coll coll)) (jolt-map (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "partition-all") n step coll))))))) partitionv-all)))
(guard (e (#t #f))
(def-var! "clojure.core" "splitv-at" (letrec ((splitv-at (lambda (n coll) (let fnrec4498 ((n n) (coll coll)) (let* ((_o$4499 (jolt-invoke (var-deref "clojure.core" "vec") (jolt-take n coll))) (_o$4500 (jolt-drop n coll))) (jolt-vector _o$4499 _o$4500)))))) splitv-at)))
(guard (e (#t #f))
(def-var! "clojure.core" "with-redefs-fn" (letrec ((with-redefs-fn (lambda (binding-map func) (let fnrec4501 ((binding-map binding-map) (func func)) (let* ((vars (jolt-invoke (var-deref "clojure.core" "vec") (jolt-keys binding-map))) (saved (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "clojure.core" "var-get") vars))) (begin (begin (jolt-count (jolt-map (lambda (v) (let fnrec4502 ((v v)) (begin (jolt-invoke (var-deref "clojure.core" "var-set") v (jolt-get binding-map v)) jolt-nil))) vars)) jolt-nil) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke func)) (lambda () (let* ((i 0)) (let loop4503 ((i i)) (if (jolt-n< i (jolt-count vars)) (begin (let* ((_a$4504 (var-deref "clojure.core" "var-set")) (_a$4505 (jolt-nth vars i)) (_a$4506 (jolt-nth saved i))) (jolt-invoke _a$4504 _a$4505 _a$4506)) (loop4503 (jolt-inc i))) jolt-nil))))))))))) with-redefs-fn)))
(guard (e (#t #f))
(def-var! "clojure.core" "chunked-seq?" (letrec ((chunked-seq? (lambda (x) (let fnrec4507 ((x x)) #f)))) chunked-seq?)))
(guard (e (#t #f))
(def-var! "clojure.core" "swap-vals!" (letrec ((swap-vals! (lambda (a f . args) (let fnrec4508 ((a a) (f f) (args (list->cseq args))) (let* ((old (jolt-invoke (var-deref "clojure.core" "deref") a))) (let* ((_o$4509 old) (_o$4510 (jolt-apply (var-deref "clojure.core" "swap!") a f args))) (jolt-vector _o$4509 _o$4510))))))) swap-vals!)))
(guard (e (#t #f))
(def-var! "clojure.core" "reset-vals!" (letrec ((reset-vals! (lambda (a newval) (let fnrec4511 ((a a) (newval newval)) (let* ((old (jolt-invoke (var-deref "clojure.core" "deref") a))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") a newval) (let* ((_o$4512 old) (_o$4513 newval)) (jolt-vector _o$4512 _o$4513)))))))) reset-vals!)))
(guard (e (#t #f))
(def-var! "clojure.core" "compare-and-set!" (letrec ((compare-and-set! (lambda (a oldval newval) (let fnrec4514 ((a a) (oldval oldval) (newval newval)) (if (jolt= oldval (jolt-invoke (var-deref "clojure.core" "deref") a)) (begin (jolt-invoke (var-deref "clojure.core" "reset!") a newval) #t) #f))))) compare-and-set!)))
(guard (e (#t #f))
(def-var! "clojure.core" "get-validator" (letrec ((get-validator (lambda (a) (let fnrec4515 ((a a)) (jolt-get a (keyword #f "validator")))))) get-validator)))
(guard (e (#t #f))
(def-var! "clojure.core" "add-watch" (letrec ((add-watch (lambda (a key f) (let fnrec4516 ((a a) (key key) (f f)) (begin (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-get a (keyword #f "watches")) key f) a))))) add-watch)))
(guard (e (#t #f))
(def-var! "clojure.core" "remove-watch" (letrec ((remove-watch (lambda (a key) (let fnrec4517 ((a a) (key key)) (begin (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-get a (keyword #f "watches")) key jolt-nil) a))))) remove-watch)))
(guard (e (#t #f))
(def-var! "clojure.core" "set-validator!" (letrec ((set-validator! (lambda (a f) (let fnrec4518 ((a a) (f f)) (begin (jolt-invoke (var-deref "jolt.host" "ref-put!") a (keyword #f "validator") f) jolt-nil))))) set-validator!)))
(guard (e (#t #f))
(def-var! "clojure.core" "future-done?" (letrec ((future-done? (lambda (x) (let fnrec4519 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "future?") x)) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-get x (keyword #f "cached"))) (jolt-throw "future-done? requires a future")))))) future-done?)))
(guard (e (#t #f))
(def-var! "clojure.core" "future-cancelled?" (letrec ((future-cancelled? (lambda (x) (let fnrec4520 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "future?") x))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-get x (keyword #f "cancelled"))) and__25__auto)))))) future-cancelled?)))
(guard (e (#t #f))
(def-var! "clojure.core" "ns-name" (letrec ((ns-name (lambda (ns) (let fnrec4521 ((ns ns)) (let* ((nm (jolt-get ns (keyword #f "name")))) (if (jolt-truthy? nm) (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") nm)) jolt-nil)))))) ns-name)))
(guard (e (#t #f))
(def-var! "clojure.core" "aget" (letrec ((aget (lambda (arr . idxs) (let fnrec4522 ((arr arr) (idxs (list->cseq idxs))) (jolt-reduce (lambda (v i) (let fnrec4523 ((v v) (i i)) (jolt-nth v i))) arr idxs))))) aget)))
(guard (e (#t #f))
(def-var! "clojure.core" "alength" (letrec ((alength (lambda (arr) (let fnrec4524 ((arr arr)) (jolt-count arr))))) alength)))
(guard (e (#t #f))
(def-var! "clojure.core" "aset" (letrec ((aset (lambda (arr . idxs+val) (let fnrec4525 ((arr arr) (idxs+val (list->cseq idxs+val))) (let* ((n (jolt-count idxs+val)) (val (jolt-nth idxs+val (jolt-dec n))) (target (let* ((_a$4527 (lambda (t k) (let fnrec4526 ((t t) (k k)) (jolt-nth t k)))) (_a$4528 arr) (_a$4529 (jolt-take (jolt-n- n 2) idxs+val))) (jolt-reduce _a$4527 _a$4528 _a$4529)))) (begin (jolt-invoke (var-deref "jolt.host" "ref-put!") target (jolt-nth idxs+val (jolt-n- n 2)) val) val)))))) aset)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "complement" (letrec ((complement (lambda (f) (let fnrec4530 ((f f)) (lambda args (let fnrec4531 ((args (list->cseq args))) (jolt-not (jolt-apply f args)))))))) complement) (let* ((_o$4532 (keyword #f "doc")) (_o$4533 "Takes a fn f and returns a fn that takes the same arguments as f, has the\n same effects, if any, and returns the opposite truth value.")) (jolt-hash-map _o$4532 _o$4533))))
(guard (e (#t #f))
(def-var! "clojure.core" "fnil" (letrec ((fnil (case-lambda ((f x) (let fnrec4534 ((f f) (x x)) (lambda (a . args) (let fnrec4535 ((a a) (args (list->cseq args))) (jolt-apply f (if (jolt-nil? a) x a) args))))) ((f x y) (let fnrec4536 ((f f) (x x) (y y)) (lambda (a b . args) (let fnrec4537 ((a a) (b b) (args (list->cseq args))) (let* ((_a$4538 f) (_a$4539 (if (jolt-nil? a) x a)) (_a$4540 (if (jolt-nil? b) y b)) (_a$4541 args)) (jolt-apply _a$4538 _a$4539 _a$4540 _a$4541)))))) ((f x y z) (let fnrec4542 ((f f) (x x) (y y) (z z)) (lambda (a b c . args) (let fnrec4543 ((a a) (b b) (c c) (args (list->cseq args))) (let* ((_a$4544 f) (_a$4545 (if (jolt-nil? a) x a)) (_a$4546 (if (jolt-nil? b) y b)) (_a$4547 (if (jolt-nil? c) z c)) (_a$4548 args)) (jolt-apply _a$4544 _a$4545 _a$4546 _a$4547 _a$4548))))))))) fnil)))
(guard (e (#t #f))
(def-var! "clojure.core" "clojure-version" (letrec ((clojure-version (lambda () (let fnrec4549 () "1.11.0-jolt")))) clojure-version)))
(guard (e (#t #f))
(def-var! "clojure.core" "supers" (letrec ((supers (lambda (x) (let fnrec4550 ((x x)) (let* ((s (jolt-invoke (var-deref "jolt.host" "class-supers") x))) (if (jolt-truthy? s) (jolt-invoke (var-deref "clojure.core" "set") s) (jolt-hash-set))))))) supers)))
(guard (e (#t #f))
(def-var! "clojure.core" "munge" (letrec ((munge (lambda (s) (let fnrec4551 ((s s)) (let* ((m (jolt-invoke (var-deref "clojure.core" "str-replace-all") "-" "_" (jolt-invoke (var-deref "clojure.core" "str") s)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") s)) (jolt-invoke (var-deref "clojure.core" "symbol") m) m)))))) munge)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "test" (letrec ((test (lambda (v) (let fnrec4552 ((v v)) (let* ((t (jolt-get (jolt-invoke (var-deref "clojure.core" "meta") v) (keyword #f "test")))) (if (jolt-truthy? t) (begin (jolt-invoke t) (keyword #f "ok")) (keyword #f "no-test"))))))) test) (let* ((_o$4553 (keyword #f "doc")) (_o$4554 "Calls the :test fn from v's metadata; :ok if it runs, :no-test if absent.")) (jolt-hash-map _o$4553 _o$4554))))
(guard (e (#t #f))
(def-var! "clojure.core" "find" (letrec ((find (lambda (m k) (let fnrec4555 ((m m) (k k)) (if (jolt-contains? m k) (jolt-first (let* ((_o$4556 k) (_o$4557 (jolt-get m k))) (jolt-hash-map _o$4556 _o$4557))) jolt-nil))))) find)))
(guard (e (#t #f))
(def-var! "clojure.core" "true?" (letrec ((true? (lambda (x) (let fnrec4558 ((x x)) (jolt= #t x))))) true?)))
(guard (e (#t #f))
(def-var! "clojure.core" "false?" (letrec ((false? (lambda (x) (let fnrec4559 ((x x)) (jolt= #f x))))) false?)))
(guard (e (#t #f))
(def-var! "clojure.core" "select-keys" (letrec ((select-keys (lambda (map keyseq) (let fnrec4560 ((map map) (keyseq keyseq)) (let* ((_a$4562 (lambda (m k) (let fnrec4561 ((m m) (k k)) (if (jolt-contains? map k) (jolt-assoc m k (jolt-get map k)) m)))) (_a$4563 (jolt-hash-map)) (_a$4564 keyseq)) (jolt-reduce _a$4562 _a$4563 _a$4564)))))) select-keys)))
(guard (e (#t #f))
(def-var! "clojure.core" "zipmap" (letrec ((zipmap (lambda (keys vals) (let fnrec4565 ((keys keys) (vals vals)) (let* ((m (jolt-hash-map)) (ks (jolt-seq keys)) (vs (jolt-seq vals))) (let loop4566 ((m m) (ks ks) (vs vs)) (if (jolt-truthy? (let* ((and__25__auto ks)) (if (jolt-truthy? and__25__auto) vs and__25__auto))) (let* ((_a$4570 (let* ((_a$4567 m) (_a$4568 (jolt-first ks)) (_a$4569 (jolt-first vs))) (jolt-assoc _a$4567 _a$4568 _a$4569))) (_a$4571 (jolt-next ks)) (_a$4572 (jolt-next vs))) (loop4566 _a$4570 _a$4571 _a$4572)) m))))))) zipmap)))
(guard (e (#t #f))
(def-var! "clojure.core" "create-struct" (letrec ((create-struct (lambda keys (let fnrec4573 ((keys (list->cseq keys))) (jolt-invoke (var-deref "clojure.core" "vec") keys))))) create-struct)))
(guard (e (#t #f))
(def-var! "clojure.core" "struct-map" (letrec ((struct-map (lambda (basis . inits) (let fnrec4574 ((basis basis) (inits (list->cseq inits))) (let* ((base (let* ((m (jolt-hash-map)) (ks (jolt-seq basis))) (let loop4575 ((m m) (ks ks)) (if (jolt-truthy? ks) (let* ((_a$4576 (jolt-assoc m (jolt-first ks) jolt-nil)) (_a$4577 (jolt-next ks))) (loop4575 _a$4576 _a$4577)) m))))) (let* ((m base) (kvs (jolt-seq inits))) (let loop4578 ((m m) (kvs kvs)) (if (jolt-truthy? kvs) (let* ((_a$4582 (let* ((_a$4579 m) (_a$4580 (jolt-first kvs)) (_a$4581 (jolt-first (jolt-next kvs)))) (jolt-assoc _a$4579 _a$4580 _a$4581))) (_a$4583 (jolt-next (jolt-next kvs)))) (loop4578 _a$4582 _a$4583)) m)))))))) struct-map)))
(guard (e (#t #f))
(def-var! "clojure.core" "struct" (letrec ((struct (lambda (basis . vals) (let fnrec4584 ((basis basis) (vals (list->cseq vals))) (let* ((m (jolt-invoke (var-deref "clojure.core" "struct-map") basis)) (ks (jolt-seq basis)) (vs (jolt-seq vals))) (let loop4585 ((m m) (ks ks) (vs vs)) (if (jolt-truthy? (let* ((and__25__auto ks)) (if (jolt-truthy? and__25__auto) vs and__25__auto))) (let* ((_a$4589 (let* ((_a$4586 m) (_a$4587 (jolt-first ks)) (_a$4588 (jolt-first vs))) (jolt-assoc _a$4586 _a$4587 _a$4588))) (_a$4590 (jolt-next ks)) (_a$4591 (jolt-next vs))) (loop4585 _a$4589 _a$4590 _a$4591)) m))))))) struct)))
(guard (e (#t #f))
(def-var! "clojure.core" "accessor" (letrec ((accessor (lambda (basis key) (let fnrec4592 ((basis basis) (key key)) (lambda (m) (let fnrec4593 ((m m)) (jolt-get m key))))))) accessor)))
(guard (e (#t #f))
(def-var! "clojure.core" "merge" (letrec ((merge (lambda maps (let fnrec4594 ((maps (list->cseq maps))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "some") jolt-identity maps)) (jolt-reduce (lambda (acc m) (let fnrec4595 ((acc acc) (m m)) (if (jolt-nil? m) acc (jolt-conj (let* ((or__26__auto acc)) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-hash-map))) m)))) maps) jolt-nil))))) merge)))
(guard (e (#t #f))
(def-var! "clojure.core" "merge-with" (letrec ((merge-with (lambda (f . maps) (let fnrec4596 ((f f) (maps (list->cseq maps))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "some") jolt-identity maps)) (let* ((merge-entry (lambda (m e) (let fnrec4597 ((m m) (e e)) (let* ((k (jolt-invoke (var-deref "clojure.core" "key") e)) (v (jolt-invoke (var-deref "clojure.core" "val") e))) (if (jolt-contains? m k) (jolt-assoc m k (jolt-invoke f (jolt-get m k) v)) (jolt-assoc m k v)))))) (merge2 (lambda (m1 m2) (let fnrec4598 ((m1 m1) (m2 m2)) (let* ((_a$4599 merge-entry) (_a$4600 (let* ((or__26__auto m1)) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-hash-map)))) (_a$4601 (jolt-seq m2))) (jolt-reduce _a$4599 _a$4600 _a$4601)))))) (jolt-reduce merge2 maps)) jolt-nil))))) merge-with)))
(guard (e (#t #f))
(def-var! "clojure.core" "get-in" (letrec ((get-in (case-lambda ((m ks) (let fnrec4602 ((m m) (ks ks)) (jolt-reduce jolt-get m ks))) ((m ks not-found) (let fnrec4603 ((m m) (ks ks) (not-found not-found)) (let* ((sentinel (jolt-hash-map-fn ))) (let* ((m m) (ks (jolt-seq ks))) (let loop4604 ((m m) (ks ks)) (if (jolt-truthy? ks) (let* ((nxt (jolt-get m (jolt-first ks) sentinel))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "identical?") sentinel nxt)) not-found (loop4604 nxt (jolt-next ks)))) m))))))))) get-in)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "req!" (letrec ((req! (lambda (m k) (let fnrec4605 ((m m) (k k)) (let* ((sentinel (jolt-hash-map-fn )) (v (jolt-get m k sentinel))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "identical?") sentinel v)) (jolt-throw (host-new "IllegalArgumentException" (jolt-invoke (var-deref "clojure.core" "str") "Expected key: " k))) v)))))) req!) (let* ((_o$4606 (keyword #f "added")) (_o$4607 "1.13") (_o$4608 (keyword #f "doc")) (_o$4609 "Returns the value mapped to key k in map m, like `get`, but throws\n IllegalArgumentException when k is not present. Unlike `get`, does not nil-pun:\n a key present with a nil value returns nil, an absent key throws. The primitive\n behind checked-keys destructuring (:keys! / :syms! / :strs!).")) (jolt-hash-map _o$4606 _o$4607 _o$4608 _o$4609))))
(guard (e (#t #f))
(def-var! "clojure.core" "memoize" (letrec ((memoize (lambda (f) (let fnrec4610 ((f f)) (let* ((mem (jolt-invoke (var-deref "clojure.core" "atom") (jolt-hash-map-fn )))) (lambda args (let fnrec4611 ((args (list->cseq args))) (let* ((e (jolt-invoke (var-deref "clojure.core" "find") (jolt-invoke (var-deref "clojure.core" "deref") mem) args))) (if (jolt-truthy? e) (jolt-invoke (var-deref "clojure.core" "val") e) (let* ((ret (jolt-apply f args))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") mem jolt-assoc args ret) ret))))))))))) memoize)))
(guard (e (#t #f))
(def-var! "clojure.core" "partial" (letrec ((partial (case-lambda ((f) (let fnrec4612 ((f f)) f)) ((f a) (let fnrec4613 ((f f) (a a)) (lambda args (let fnrec4614 ((args (list->cseq args))) (jolt-apply f a args))))) ((f a b) (let fnrec4615 ((f f) (a a) (b b)) (lambda args (let fnrec4616 ((args (list->cseq args))) (jolt-apply f a b args))))) ((f a b c) (let fnrec4617 ((f f) (a a) (b b) (c c)) (lambda args (let fnrec4618 ((args (list->cseq args))) (jolt-apply f a b c args))))) ((f a b c . more) (let fnrec4619 ((f f) (a a) (b b) (c c) (more (list->cseq more))) (lambda args (let fnrec4620 ((args (list->cseq args))) (jolt-apply f a b c (jolt-concat more args))))))))) partial)))
(guard (e (#t #f))
(def-var! "clojure.core" "trampoline" (letrec ((trampoline (case-lambda ((f) (let fnrec4621 ((f f)) (let* ((ret (jolt-invoke f))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "fn?") ret)) (trampoline ret) ret)))) ((f . args) (let fnrec4622 ((f f) (args (list->cseq args))) (trampoline (lambda () (let fnrec4623 () (jolt-apply f args))))))))) trampoline)))
(guard (e (#t #f))
(def-var! "clojure.core" "max" (letrec ((max (case-lambda ((x) (let fnrec4624 ((x x)) x)) ((x y) (let fnrec4625 ((x x) (y y)) (if (jolt-n> x y) x y))) ((x y . more) (let fnrec4626 ((x x) (y y) (more (list->cseq more))) (jolt-reduce max (max x y) more)))))) max)))
(guard (e (#t #f))
(def-var! "clojure.core" "min" (letrec ((min (case-lambda ((x) (let fnrec4627 ((x x)) x)) ((x y) (let fnrec4628 ((x x) (y y)) (if (jolt-n< x y) x y))) ((x y . more) (let fnrec4629 ((x x) (y y) (more (list->cseq more))) (jolt-reduce min (min x y) more)))))) min)))
(guard (e (#t #f))
(def-var! "clojure.core" "reverse" (letrec ((reverse (lambda (coll) (let fnrec4630 ((coll coll)) (jolt-reduce jolt-conj (jolt-list ) coll))))) reverse)))
(guard (e (#t #f))
(def-var! "clojure.core" "empty" (letrec ((empty (lambda (coll) (let fnrec4631 ((coll coll)) (if (jolt-nil? coll) jolt-nil (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "jrec-method?") coll "empty")) (record-method-dispatch coll "empty" (jolt-vector)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "record?") coll)) (jolt-throw (host-new "UnsupportedOperationException" (jolt-invoke (var-deref "clojure.core" "str") "Can't create empty: " (record-method-dispatch (jolt-invoke (var-deref "clojure.core" "class") coll) "getName" (jolt-vector))))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "sorted?") coll)) (jolt-invoke (jolt-get (jolt-invoke (var-deref "jolt.host" "ref-get") coll (keyword #f "ops")) (keyword #f "empty")) coll) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") coll)) (let* ((_a$4632 (var-deref "clojure.core" "with-meta")) (_a$4633 (jolt-hash-map)) (_a$4634 (jolt-invoke (var-deref "clojure.core" "meta") coll))) (jolt-invoke _a$4632 _a$4633 _a$4634)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "set?") coll)) (let* ((_a$4635 (var-deref "clojure.core" "with-meta")) (_a$4636 (jolt-hash-set)) (_a$4637 (jolt-invoke (var-deref "clojure.core" "meta") coll))) (jolt-invoke _a$4635 _a$4636 _a$4637)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") coll)) (let* ((_a$4638 (var-deref "clojure.core" "with-meta")) (_a$4639 (jolt-vector)) (_a$4640 (jolt-invoke (var-deref "clojure.core" "meta") coll))) (jolt-invoke _a$4638 _a$4639 _a$4640)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "coll?") coll)) (jolt-invoke (var-deref "clojure.core" "with-meta") (jolt-list ) (jolt-invoke (var-deref "clojure.core" "meta") coll)) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))))))))) empty)))
(guard (e (#t #f))
(def-var! "clojure.core" "assoc-in" (letrec ((assoc-in (lambda (m G__133 v) (let fnrec4641 ((m m) (G__133 G__133) (v v)) (let* ((G__134 G__133) (k (jolt-nth G__134 0 jolt-nil)) (ks (jolt-invoke (var-deref "clojure.core" "nthnext") G__134 1))) (if (jolt-truthy? ks) (jolt-assoc m k (assoc-in (jolt-get m k) ks v)) (jolt-assoc m k v))))))) assoc-in)))
(guard (e (#t #f))
(def-var! "clojure.core" "update-in" (letrec ((update-in (lambda (m ks f . args) (let fnrec4642 ((m m) (ks ks) (f f) (args (list->cseq args))) (let* ((up (letrec ((up (lambda (m ks f args) (let fnrec4643 ((m m) (ks ks) (f f) (args args)) (let* ((G__135 ks) (k (jolt-nth G__135 0 jolt-nil)) (ks (jolt-invoke (var-deref "clojure.core" "nthnext") G__135 1))) (if (jolt-truthy? ks) (jolt-assoc m k (up (jolt-get m k) ks f args)) (jolt-assoc m k (jolt-apply f (jolt-get m k) args)))))))) up))) (jolt-invoke up m ks f args)))))) update-in)))
(guard (e (#t #f))
(def-var! "clojure.core" "find-keyword" (letrec ((find-keyword (case-lambda ((nm) (let fnrec4644 ((nm nm)) (jolt-invoke (var-deref "clojure.core" "keyword") nm))) ((ns nm) (let fnrec4645 ((ns ns) (nm nm)) (jolt-invoke (var-deref "clojure.core" "keyword") ns nm)))))) find-keyword)))
(guard (e (#t #f))
(def-var! "clojure.core" "inst-ms*" (letrec ((inst-ms* (lambda (i) (let fnrec4646 ((i i)) (jolt-invoke (var-deref "clojure.core" "inst-ms") i))))) inst-ms*)))
(guard (e (#t #f))
(def-var! "clojure.core" "comp" (letrec ((comp (case-lambda (() (let fnrec4647 () jolt-identity)) ((f) (let fnrec4648 ((f f)) f)) ((f g) (let fnrec4649 ((f f) (g g)) (case-lambda (() (let fnrec4650 () (jolt-invoke f (jolt-invoke g)))) ((x) (let fnrec4651 ((x x)) (jolt-invoke f (jolt-invoke g x)))) ((x y) (let fnrec4652 ((x x) (y y)) (jolt-invoke f (jolt-invoke g x y)))) ((x y z) (let fnrec4653 ((x x) (y y) (z z)) (jolt-invoke f (jolt-invoke g x y z)))) ((x y z . args) (let fnrec4654 ((x x) (y y) (z z) (args (list->cseq args))) (jolt-invoke f (jolt-apply g x y z args))))))) ((f g . fs) (let fnrec4655 ((f f) (g g) (fs (list->cseq fs))) (jolt-reduce comp (comp f g) fs)))))) comp)))
(guard (e (#t #f))
(def-var! "clojure.core" "ifn?" (letrec ((ifn? (lambda (x) (let fnrec4656 ((x x)) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "fn?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "map?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "set?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "var?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "jolt.host" "callable-host?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "jolt.host" "jrec-method?") x "invoke")))))))))))))))))) #t #f))))) ifn?)))
(guard (e (#t #f))
(def-var! "clojure.core" "+'" jolt-add))
(guard (e (#t #f))
(def-var! "clojure.core" "-'" jolt-sub))
(guard (e (#t #f))
(def-var! "clojure.core" "*'" jolt-mul))
(guard (e (#t #f))
(def-var! "clojure.core" "inc'" jolt-inc))
(guard (e (#t #f))
(def-var! "clojure.core" "dec'" jolt-dec))
(guard (e (#t #f))
(def-var! "clojure.core" "int?" (letrec ((int? (lambda (x) (let fnrec4657 ((x x)) (jolt-invoke (var-deref "clojure.core" "integer?") x))))) int?)))
(guard (e (#t #f))
(def-var! "clojure.core" "num" (letrec ((num (lambda (x) (let fnrec4658 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") x)) x (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "num requires a number, got: " x))))))) num)))
(guard (e (#t #f))
(def-var! "clojure.core" "==" (letrec ((== (case-lambda ((x) (let fnrec4659 ((x x)) #t)) ((x y) (let fnrec4660 ((x x) (y y)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") x))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "number?") y) and__25__auto))) (jolt= x y) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Cannot cast to number: " (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") x)) y x)))))) ((x y . more) (let fnrec4661 ((x x) (y y) (more (list->cseq more))) (if (jolt-truthy? (== x y)) (jolt-apply == y more) #f)))))) ==)))
(guard (e (#t #f))
(def-var! "clojure.core" "ensure-reduced" (letrec ((ensure-reduced (lambda (x) (let fnrec4662 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "reduced?") x)) x (jolt-invoke (var-deref "clojure.core" "reduced") x)))))) ensure-reduced)))
(guard (e (#t #f))
(def-var! "clojure.core" "halt-when" (letrec ((halt-when (case-lambda ((pred) (let fnrec4663 ((pred pred)) (halt-when pred jolt-nil))) ((pred retf) (let fnrec4664 ((pred pred) (retf retf)) (lambda (rf) (let fnrec4665 ((rf rf)) (case-lambda (() (let fnrec4666 () (jolt-invoke rf))) ((result) (let fnrec4667 ((result result)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "map?") result))) (if (jolt-truthy? and__25__auto) (jolt-contains? result (keyword "clojure.core" "halt")) and__25__auto))) (jolt-get result (keyword "clojure.core" "halt")) (jolt-invoke rf result)))) ((result input) (let fnrec4668 ((result result) (input input)) (if (jolt-truthy? (jolt-invoke pred input)) (jolt-invoke (var-deref "clojure.core" "reduced") (jolt-hash-map-fn (keyword "clojure.core" "halt") (if (jolt-truthy? retf) (jolt-invoke retf (jolt-invoke rf result) input) input))) (jolt-invoke rf result input)))))))))))) halt-when)))
(guard (e (#t #f))
(def-var! "clojure.core" "parse-boolean" (letrec ((parse-boolean (lambda (s) (let fnrec4669 ((s s)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") s)) (if (jolt= s "true") #t (if (jolt= s "false") #f (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "parse-boolean requires a string, got: " s))))))) parse-boolean)))
(guard (e (#t #f))
(def-var! "clojure.core" "newline" (letrec ((newline (lambda () (let fnrec4670 () (begin (jolt-invoke (var-deref "clojure.core" "print") "\n") jolt-nil))))) newline)))
(guard (e (#t #f))
(def-var! "clojure.core" "seque" (letrec ((seque (case-lambda ((s) (let fnrec4671 ((s s)) s)) ((n-or-q s) (let fnrec4672 ((n-or-q n-or-q) (s s)) s))))) seque)))
(guard (e (#t #f))
(def-var! "clojure.core" "array-seq" (letrec ((array-seq (lambda (arr . _) (let fnrec4673 ((arr arr) (_ (list->cseq _))) (jolt-seq arr))))) array-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "to-array-2d" (letrec ((to-array-2d (lambda (coll) (let fnrec4674 ((coll coll)) (jolt-invoke (var-deref "clojure.core" "to-array") (jolt-map (var-deref "clojure.core" "to-array") coll)))))) to-array-2d)))
(guard (e (#t #f))
(def-var! "clojure.core" "unchecked-byte" (letrec ((unchecked-byte (lambda (x) (let fnrec4675 ((x x)) (let* ((b (bitwise-and (jolt-invoke (var-deref "clojure.core" "unchecked-long") x) 255))) (if (jolt-n< b 128) b (jolt-n- b 256))))))) unchecked-byte)))
(guard (e (#t #f))
(def-var! "clojure.core" "unchecked-short" (letrec ((unchecked-short (lambda (x) (let fnrec4676 ((x x)) (let* ((s (bitwise-and (jolt-invoke (var-deref "clojure.core" "unchecked-long") x) 65535))) (if (jolt-n< s 32768) s (jolt-n- s 65536))))))) unchecked-short)))
(guard (e (#t #f))
(def-var! "clojure.core" "unchecked-char" (letrec ((unchecked-char (lambda (x) (let fnrec4677 ((x x)) (jolt-invoke (var-deref "clojure.core" "char") (bitwise-and (jolt-invoke (var-deref "clojure.core" "unchecked-long") x) 65535)))))) unchecked-char)))
(guard (e (#t #f))
(def-var! "clojure.core" "unchecked-float" (letrec ((unchecked-float (lambda (x) (let fnrec4678 ((x x)) (jolt-invoke (var-deref "clojure.core" "double") x))))) unchecked-float)))
(guard (e (#t #f))
(def-var! "clojure.core" "unchecked-double" (letrec ((unchecked-double (lambda (x) (let fnrec4679 ((x x)) (jolt-invoke (var-deref "clojure.core" "double") x))))) unchecked-double)))
(guard (e (#t #f))
(def-var! "clojure.core" "transduce" (letrec ((transduce (case-lambda ((xform f coll) (let fnrec4680 ((xform xform) (f f) (coll coll)) (transduce xform f (jolt-invoke f) coll))) ((xform f init coll) (let fnrec4681 ((xform xform) (f f) (init init) (coll coll)) (let* ((xf (jolt-invoke xform f))) (jolt-invoke xf (jolt-reduce xf init coll)))))))) transduce)))
(guard (e (#t #f))
(def-var! "clojure.core" "eduction" (letrec ((eduction (lambda args (let fnrec4682 ((args (list->cseq args))) (let* ((coll (jolt-last args)) (xforms (jolt-invoke (var-deref "clojure.core" "butlast") args))) (if (jolt-truthy? xforms) (jolt-invoke (var-deref "clojure.core" "sequence") (jolt-apply (var-deref "clojure.core" "comp") xforms) coll) (jolt-invoke (var-deref "clojure.core" "sequence") coll))))))) eduction)))
(guard (e (#t #f))
(def-var! "clojure.core" "->Eduction" (letrec ((->Eduction (lambda (xform coll) (let fnrec4683 ((xform xform) (coll coll)) (jolt-invoke (var-deref "clojure.core" "sequence") xform coll))))) ->Eduction)))
(guard (e (#t #f))
(def-var! "clojure.core" "enumeration-seq" (letrec ((enumeration-seq (lambda (e) (let fnrec4684 ((e e)) (if (jolt-truthy? (let* ((or__26__auto (jolt-nil? e))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "seq?") e))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "sequential?") e)))))) (jolt-seq e) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4685 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (if (jolt-truthy? (record-method-dispatch e "hasMoreElements" (jolt-vector))) (let* ((_a$4686 (record-method-dispatch e "nextElement" (jolt-vector))) (_a$4687 (enumeration-seq e))) (jolt-cons _a$4686 _a$4687)) jolt-nil)))))))))) enumeration-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "iterator-seq" (letrec ((iterator-seq (lambda (i) (let fnrec4688 ((i i)) (jolt-seq i))))) iterator-seq)))
(guard (e (#t #f))
(def-var! "clojure.core" "promise" (letrec ((promise (lambda () (let fnrec4689 () (jolt-invoke (var-deref "clojure.core" "atom") jolt-nil))))) promise)))
(guard (e (#t #f))
(def-var! "clojure.core" "deliver" (letrec ((deliver (lambda (p v) (let fnrec4690 ((p p) (v v)) (begin (jolt-invoke (var-deref "clojure.core" "reset!") p v) p))))) deliver)))
(guard (e (#t #f))
(def-var! "clojure.core" "bean" (letrec ((bean (lambda (x) (let fnrec4691 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") x)) x (jolt-hash-map)))))) bean)))
(guard (e (#t #f))
(def-var! "clojure.core" "uri?" (letrec ((uri? (lambda (x) (let fnrec4692 ((x x)) #f)))) uri?)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "special-syms" (let* ((_o$4693 (jolt-symbol #f "if")) (_o$4694 (jolt-symbol #f "do")) (_o$4695 (jolt-symbol #f "let*")) (_o$4696 (jolt-symbol #f "fn*")) (_o$4697 (jolt-symbol #f "quote")) (_o$4698 (jolt-symbol #f "var")) (_o$4699 (jolt-symbol #f "def")) (_o$4700 (jolt-symbol #f "loop*")) (_o$4701 (jolt-symbol #f "recur")) (_o$4702 (jolt-symbol #f "throw")) (_o$4703 (jolt-symbol #f "try")) (_o$4704 (jolt-symbol #f "catch")) (_o$4705 (jolt-symbol #f "finally")) (_o$4706 (jolt-symbol #f "new")) (_o$4707 (jolt-symbol #f "set!")) (_o$4708 (jolt-symbol #f ".")) (_o$4709 (jolt-symbol #f "monitor-enter")) (_o$4710 (jolt-symbol #f "monitor-exit")) (_o$4711 (jolt-symbol #f "&")) (_o$4712 (jolt-symbol #f "case*")) (_o$4713 (jolt-symbol #f "deftype*")) (_o$4714 (jolt-symbol #f "letfn*")) (_o$4715 (jolt-symbol #f "reify*"))) (jolt-hash-set _o$4693 _o$4694 _o$4695 _o$4696 _o$4697 _o$4698 _o$4699 _o$4700 _o$4701 _o$4702 _o$4703 _o$4704 _o$4705 _o$4706 _o$4707 _o$4708 _o$4709 _o$4710 _o$4711 _o$4712 _o$4713 _o$4714 _o$4715)) (let* ((_o$4716 (keyword #f "private")) (_o$4717 #t)) (jolt-hash-map _o$4716 _o$4717))))
(guard (e (#t #f))
(def-var! "clojure.core" "special-symbol?" (letrec ((special-symbol? (lambda (s) (let fnrec4718 ((s s)) (jolt-contains? (var-deref "clojure.core" "special-syms") s))))) special-symbol?)))
(guard (e (#t #f))
(def-var! "clojure.core" "proxy-mappings" (letrec ((proxy-mappings (lambda (p) (let fnrec4719 ((p p)) (jolt-hash-map))))) proxy-mappings)))
(guard (e (#t #f))
(def-var! "clojure.core" "proxy-call-with-super" (letrec ((proxy-call-with-super (lambda (f p meth) (let fnrec4720 ((f f) (p p) (meth meth)) (jolt-invoke f))))) proxy-call-with-super)))
(guard (e (#t #f))
(def-var! "clojure.core" "init-proxy" (letrec ((init-proxy (lambda (p mappings) (let fnrec4721 ((p p) (mappings mappings)) p)))) init-proxy)))
(guard (e (#t #f))
(def-var! "clojure.core" "update-proxy" (letrec ((update-proxy (lambda (p mappings) (let fnrec4722 ((p p) (mappings mappings)) p)))) update-proxy)))
(guard (e (#t #f))
(def-var! "clojure.core" "proxy-super" (letrec ((proxy-super (lambda args (let fnrec4723 ((args (list->cseq args))) (jolt-throw "proxy-super: JVM proxies are not supported in Jolt"))))) proxy-super)))
(guard (e (#t #f))
(def-var! "clojure.core" "construct-proxy" (letrec ((construct-proxy (lambda (c . args) (let fnrec4724 ((c c) (args (list->cseq args))) (jolt-throw "construct-proxy: not supported in Jolt"))))) construct-proxy)))
(guard (e (#t #f))
(def-var! "clojure.core" "get-proxy-class" (letrec ((get-proxy-class (lambda interfaces (let fnrec4725 ((interfaces (list->cseq interfaces))) (jolt-throw "get-proxy-class: not supported in Jolt"))))) get-proxy-class)))
(guard (e (#t #f))
(def-var! "clojure.core" "requiring-resolve" (letrec ((requiring-resolve (lambda (sym) (let fnrec4726 ((sym sym)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "qualified-symbol?") sym)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "resolve") sym))) (if (jolt-truthy? or__26__auto) or__26__auto (begin (jolt-invoke (var-deref "clojure.core" "require") (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "namespace") sym))) (jolt-invoke (var-deref "clojure.core" "resolve") sym)))) (jolt-throw (host-new "IllegalArgumentException" (jolt-invoke (var-deref "clojure.core" "str") "Not a qualified symbol: " sym)))))))) requiring-resolve)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sfield" (letrec ((sfield (lambda (sc k) (let fnrec2750 ((sc sc) (k k)) (jolt-invoke (var-deref "jolt.host" "ref-get") sc k))))) sfield) (let* ((_o$2751 (keyword #f "private")) (_o$2752 #t)) (jolt-hash-map _o$2751 _o$2752))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "fn->cmp" (letrec ((fn->cmp (lambda (f) (let fnrec2753 ((f f)) (lambda (a b) (let fnrec2754 ((a a) (b b)) (let* ((r (jolt-invoke f a b))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") r)) r (if (jolt-truthy? r) -1 (if (jolt-truthy? (jolt-invoke f b a)) 1 0)))))))))) fn->cmp) (let* ((_o$2755 (keyword #f "private")) (_o$2756 #t)) (jolt-hash-map _o$2755 _o$2756))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "the-cmp" (letrec ((the-cmp (lambda (sc) (let fnrec2757 ((sc sc)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "sfield") sc (keyword #f "cmp")))) (if (jolt-truthy? or__26__auto) or__26__auto (var-deref "clojure.core" "compare"))))))) the-cmp) (let* ((_o$2758 (keyword #f "private")) (_o$2759 #t)) (jolt-hash-map _o$2758 _o$2759))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "nd-key" (letrec ((nd-key (lambda (n) (let fnrec2760 ((n n)) (jolt-nth n 1))))) nd-key) (let* ((_o$2761 (keyword #f "private")) (_o$2762 #t)) (jolt-hash-map _o$2761 _o$2762))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "nd-val" (letrec ((nd-val (lambda (n) (let fnrec2763 ((n n)) (jolt-nth n 2))))) nd-val) (let* ((_o$2764 (keyword #f "private")) (_o$2765 #t)) (jolt-hash-map _o$2764 _o$2765))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "nd-left" (letrec ((nd-left (lambda (n) (let fnrec2766 ((n n)) (jolt-nth n 3))))) nd-left) (let* ((_o$2767 (keyword #f "private")) (_o$2768 #t)) (jolt-hash-map _o$2767 _o$2768))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "nd-right" (letrec ((nd-right (lambda (n) (let fnrec2769 ((n n)) (jolt-nth n 4))))) nd-right) (let* ((_o$2770 (keyword #f "private")) (_o$2771 #t)) (jolt-hash-map _o$2770 _o$2771))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "red?" (letrec ((red? (lambda (n) (let fnrec2772 ((n n)) (let* ((and__25__auto n)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "identical?") (keyword #f "red") (jolt-nth n 0)) and__25__auto)))))) red?) (let* ((_o$2773 (keyword #f "private")) (_o$2774 #t)) (jolt-hash-map _o$2773 _o$2774))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "black?" (letrec ((black? (lambda (n) (let fnrec2775 ((n n)) (let* ((and__25__auto n)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "identical?") (keyword #f "black") (jolt-nth n 0)) and__25__auto)))))) black?) (let* ((_o$2776 (keyword #f "private")) (_o$2777 #t)) (jolt-hash-map _o$2776 _o$2777))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "mk-red" (letrec ((mk-red (lambda (k v l r) (let fnrec2778 ((k k) (v v) (l l) (r r)) (let* ((_o$2779 (keyword #f "red")) (_o$2780 k) (_o$2781 v) (_o$2782 l) (_o$2783 r)) (jolt-vector _o$2779 _o$2780 _o$2781 _o$2782 _o$2783)))))) mk-red) (let* ((_o$2784 (keyword #f "private")) (_o$2785 #t)) (jolt-hash-map _o$2784 _o$2785))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "mk-black" (letrec ((mk-black (lambda (k v l r) (let fnrec2786 ((k k) (v v) (l l) (r r)) (let* ((_o$2787 (keyword #f "black")) (_o$2788 k) (_o$2789 v) (_o$2790 l) (_o$2791 r)) (jolt-vector _o$2787 _o$2788 _o$2789 _o$2790 _o$2791)))))) mk-black) (let* ((_o$2792 (keyword #f "private")) (_o$2793 #t)) (jolt-hash-map _o$2792 _o$2793))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "blacken" (letrec ((blacken (lambda (n) (let fnrec2794 ((n n)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") n)) (let* ((_o$2795 (keyword #f "black")) (_o$2796 (jolt-invoke (var-deref "clojure.core" "nd-key") n)) (_o$2797 (jolt-invoke (var-deref "clojure.core" "nd-val") n)) (_o$2798 (jolt-invoke (var-deref "clojure.core" "nd-left") n)) (_o$2799 (jolt-invoke (var-deref "clojure.core" "nd-right") n))) (jolt-vector _o$2795 _o$2796 _o$2797 _o$2798 _o$2799)) n))))) blacken) (let* ((_o$2800 (keyword #f "private")) (_o$2801 #t)) (jolt-hash-map _o$2800 _o$2801))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "redden" (letrec ((redden (lambda (n) (let fnrec2802 ((n n)) (let* ((_o$2803 (keyword #f "red")) (_o$2804 (jolt-invoke (var-deref "clojure.core" "nd-key") n)) (_o$2805 (jolt-invoke (var-deref "clojure.core" "nd-val") n)) (_o$2806 (jolt-invoke (var-deref "clojure.core" "nd-left") n)) (_o$2807 (jolt-invoke (var-deref "clojure.core" "nd-right") n))) (jolt-vector _o$2803 _o$2804 _o$2805 _o$2806 _o$2807)))))) redden) (let* ((_o$2808 (keyword #f "private")) (_o$2809 #t)) (jolt-hash-map _o$2808 _o$2809))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "replace-node" (letrec ((replace-node (lambda (n k v l r) (let fnrec2810 ((n n) (k k) (v v) (l l) (r r)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") n)) (jolt-invoke (var-deref "clojure.core" "mk-red") k v l r) (jolt-invoke (var-deref "clojure.core" "mk-black") k v l r)))))) replace-node) (let* ((_o$2811 (keyword #f "private")) (_o$2812 #t)) (jolt-hash-map _o$2811 _o$2812))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ins-balance-left" (letrec ((ins-balance-left (lambda (ins parent) (let fnrec2813 ((ins ins) (parent parent)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ins)) (let* ((l (jolt-invoke (var-deref "clojure.core" "nd-left") ins)) (r (jolt-invoke (var-deref "clojure.core" "nd-right") ins))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") l)) (let* ((_a$2819 (var-deref "clojure.core" "mk-red")) (_a$2820 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2821 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2822 (jolt-invoke (var-deref "clojure.core" "blacken") l)) (_a$2823 (let* ((_a$2814 (var-deref "clojure.core" "mk-black")) (_a$2815 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2816 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2817 r) (_a$2818 (jolt-invoke (var-deref "clojure.core" "nd-right") parent))) (jolt-invoke _a$2814 _a$2815 _a$2816 _a$2817 _a$2818)))) (jolt-invoke _a$2819 _a$2820 _a$2821 _a$2822 _a$2823)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") r)) (let* ((_a$2834 (var-deref "clojure.core" "mk-red")) (_a$2835 (jolt-invoke (var-deref "clojure.core" "nd-key") r)) (_a$2836 (jolt-invoke (var-deref "clojure.core" "nd-val") r)) (_a$2837 (let* ((_a$2824 (var-deref "clojure.core" "mk-black")) (_a$2825 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2826 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2827 l) (_a$2828 (jolt-invoke (var-deref "clojure.core" "nd-left") r))) (jolt-invoke _a$2824 _a$2825 _a$2826 _a$2827 _a$2828))) (_a$2838 (let* ((_a$2829 (var-deref "clojure.core" "mk-black")) (_a$2830 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2831 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2832 (jolt-invoke (var-deref "clojure.core" "nd-right") r)) (_a$2833 (jolt-invoke (var-deref "clojure.core" "nd-right") parent))) (jolt-invoke _a$2829 _a$2830 _a$2831 _a$2832 _a$2833)))) (jolt-invoke _a$2834 _a$2835 _a$2836 _a$2837 _a$2838)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$2839 (var-deref "clojure.core" "mk-black")) (_a$2840 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2841 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2842 ins) (_a$2843 (jolt-invoke (var-deref "clojure.core" "nd-right") parent))) (jolt-invoke _a$2839 _a$2840 _a$2841 _a$2842 _a$2843)) jolt-nil)))) (let* ((_a$2844 (var-deref "clojure.core" "mk-black")) (_a$2845 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2846 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2847 ins) (_a$2848 (jolt-invoke (var-deref "clojure.core" "nd-right") parent))) (jolt-invoke _a$2844 _a$2845 _a$2846 _a$2847 _a$2848))))))) ins-balance-left) (let* ((_o$2849 (keyword #f "private")) (_o$2850 #t)) (jolt-hash-map _o$2849 _o$2850))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ins-balance-right" (letrec ((ins-balance-right (lambda (ins parent) (let fnrec2851 ((ins ins) (parent parent)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ins)) (let* ((l (jolt-invoke (var-deref "clojure.core" "nd-left") ins)) (r (jolt-invoke (var-deref "clojure.core" "nd-right") ins))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") r)) (let* ((_a$2857 (var-deref "clojure.core" "mk-red")) (_a$2858 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2859 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2860 (let* ((_a$2852 (var-deref "clojure.core" "mk-black")) (_a$2853 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2854 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2855 (jolt-invoke (var-deref "clojure.core" "nd-left") parent)) (_a$2856 l)) (jolt-invoke _a$2852 _a$2853 _a$2854 _a$2855 _a$2856))) (_a$2861 (jolt-invoke (var-deref "clojure.core" "blacken") r))) (jolt-invoke _a$2857 _a$2858 _a$2859 _a$2860 _a$2861)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") l)) (let* ((_a$2872 (var-deref "clojure.core" "mk-red")) (_a$2873 (jolt-invoke (var-deref "clojure.core" "nd-key") l)) (_a$2874 (jolt-invoke (var-deref "clojure.core" "nd-val") l)) (_a$2875 (let* ((_a$2862 (var-deref "clojure.core" "mk-black")) (_a$2863 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2864 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2865 (jolt-invoke (var-deref "clojure.core" "nd-left") parent)) (_a$2866 (jolt-invoke (var-deref "clojure.core" "nd-left") l))) (jolt-invoke _a$2862 _a$2863 _a$2864 _a$2865 _a$2866))) (_a$2876 (let* ((_a$2867 (var-deref "clojure.core" "mk-black")) (_a$2868 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2869 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2870 (jolt-invoke (var-deref "clojure.core" "nd-right") l)) (_a$2871 r)) (jolt-invoke _a$2867 _a$2868 _a$2869 _a$2870 _a$2871)))) (jolt-invoke _a$2872 _a$2873 _a$2874 _a$2875 _a$2876)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$2877 (var-deref "clojure.core" "mk-black")) (_a$2878 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2879 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2880 (jolt-invoke (var-deref "clojure.core" "nd-left") parent)) (_a$2881 ins)) (jolt-invoke _a$2877 _a$2878 _a$2879 _a$2880 _a$2881)) jolt-nil)))) (let* ((_a$2882 (var-deref "clojure.core" "mk-black")) (_a$2883 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2884 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2885 (jolt-invoke (var-deref "clojure.core" "nd-left") parent)) (_a$2886 ins)) (jolt-invoke _a$2882 _a$2883 _a$2884 _a$2885 _a$2886))))))) ins-balance-right) (let* ((_o$2887 (keyword #f "private")) (_o$2888 #t)) (jolt-hash-map _o$2887 _o$2888))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "add-left" (letrec ((add-left (lambda (parent ins) (let fnrec2889 ((parent parent) (ins ins)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") parent)) (let* ((_a$2890 (var-deref "clojure.core" "mk-red")) (_a$2891 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2892 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2893 ins) (_a$2894 (jolt-invoke (var-deref "clojure.core" "nd-right") parent))) (jolt-invoke _a$2890 _a$2891 _a$2892 _a$2893 _a$2894)) (jolt-invoke (var-deref "clojure.core" "ins-balance-left") ins parent)))))) add-left) (let* ((_o$2895 (keyword #f "private")) (_o$2896 #t)) (jolt-hash-map _o$2895 _o$2896))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "add-right" (letrec ((add-right (lambda (parent ins) (let fnrec2897 ((parent parent) (ins ins)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") parent)) (let* ((_a$2898 (var-deref "clojure.core" "mk-red")) (_a$2899 (jolt-invoke (var-deref "clojure.core" "nd-key") parent)) (_a$2900 (jolt-invoke (var-deref "clojure.core" "nd-val") parent)) (_a$2901 (jolt-invoke (var-deref "clojure.core" "nd-left") parent)) (_a$2902 ins)) (jolt-invoke _a$2898 _a$2899 _a$2900 _a$2901 _a$2902)) (jolt-invoke (var-deref "clojure.core" "ins-balance-right") ins parent)))))) add-right) (let* ((_o$2903 (keyword #f "private")) (_o$2904 #t)) (jolt-hash-map _o$2903 _o$2904))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-ins" (letrec ((tree-ins (lambda (cmp tree k v) (let fnrec2905 ((cmp cmp) (tree tree) (k k) (v v)) (if (jolt-nil? tree) (jolt-invoke (var-deref "clojure.core" "mk-red") k v jolt-nil jolt-nil) (if (jolt-neg? (jolt-invoke cmp k (jolt-invoke (var-deref "clojure.core" "nd-key") tree))) (jolt-invoke (var-deref "clojure.core" "add-left") tree (tree-ins cmp (jolt-invoke (var-deref "clojure.core" "nd-left") tree) k v)) (jolt-invoke (var-deref "clojure.core" "add-right") tree (tree-ins cmp (jolt-invoke (var-deref "clojure.core" "nd-right") tree) k v)))))))) tree-ins) (let* ((_o$2906 (keyword #f "private")) (_o$2907 #t)) (jolt-hash-map _o$2906 _o$2907))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-replace" (letrec ((tree-replace (lambda (cmp tree k v) (let fnrec2908 ((cmp cmp) (tree tree) (k k) (v v)) (let* ((c (jolt-invoke cmp k (jolt-invoke (var-deref "clojure.core" "nd-key") tree)))) (if (jolt-zero? c) (let* ((_a$2909 (var-deref "clojure.core" "replace-node")) (_a$2910 tree) (_a$2911 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$2912 v) (_a$2913 (jolt-invoke (var-deref "clojure.core" "nd-left") tree)) (_a$2914 (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (jolt-invoke _a$2909 _a$2910 _a$2911 _a$2912 _a$2913 _a$2914)) (if (jolt-neg? c) (let* ((_a$2915 (var-deref "clojure.core" "replace-node")) (_a$2916 tree) (_a$2917 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$2918 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$2919 (tree-replace cmp (jolt-invoke (var-deref "clojure.core" "nd-left") tree) k v)) (_a$2920 (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (jolt-invoke _a$2915 _a$2916 _a$2917 _a$2918 _a$2919 _a$2920)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$2921 (var-deref "clojure.core" "replace-node")) (_a$2922 tree) (_a$2923 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$2924 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$2925 (jolt-invoke (var-deref "clojure.core" "nd-left") tree)) (_a$2926 (tree-replace cmp (jolt-invoke (var-deref "clojure.core" "nd-right") tree) k v))) (jolt-invoke _a$2921 _a$2922 _a$2923 _a$2924 _a$2925 _a$2926)) jolt-nil)))))))) tree-replace) (let* ((_o$2927 (keyword #f "private")) (_o$2928 #t)) (jolt-hash-map _o$2927 _o$2928))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-lookup" (letrec ((tree-lookup (lambda (tree cmp k) (let fnrec2929 ((tree tree) (cmp cmp) (k k)) (let* ((t tree)) (let loop2930 ((t t)) (if (jolt-nil? t) jolt-nil (let* ((c (jolt-invoke cmp k (jolt-invoke (var-deref "clojure.core" "nd-key") t)))) (if (jolt-zero? c) t (if (jolt-neg? c) (loop2930 (jolt-invoke (var-deref "clojure.core" "nd-left") t)) (if (jolt-truthy? (keyword #f "else")) (loop2930 (jolt-invoke (var-deref "clojure.core" "nd-right") t)) jolt-nil))))))))))) tree-lookup) (let* ((_o$2931 (keyword #f "private")) (_o$2932 #t)) (jolt-hash-map _o$2931 _o$2932))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "balance-left" (letrec ((balance-left (lambda (k v ins right) (let fnrec2933 ((k k) (v v) (ins ins) (right right)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ins)) (let* ((il (jolt-invoke (var-deref "clojure.core" "nd-left") ins)) (ir (jolt-invoke (var-deref "clojure.core" "nd-right") ins))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") il)) (let* ((_a$2934 (var-deref "clojure.core" "mk-red")) (_a$2935 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2936 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2937 (jolt-invoke (var-deref "clojure.core" "blacken") il)) (_a$2938 (jolt-invoke (var-deref "clojure.core" "mk-black") k v ir right))) (jolt-invoke _a$2934 _a$2935 _a$2936 _a$2937 _a$2938)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ir)) (let* ((_a$2944 (var-deref "clojure.core" "mk-red")) (_a$2945 (jolt-invoke (var-deref "clojure.core" "nd-key") ir)) (_a$2946 (jolt-invoke (var-deref "clojure.core" "nd-val") ir)) (_a$2947 (let* ((_a$2939 (var-deref "clojure.core" "mk-black")) (_a$2940 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2941 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2942 il) (_a$2943 (jolt-invoke (var-deref "clojure.core" "nd-left") ir))) (jolt-invoke _a$2939 _a$2940 _a$2941 _a$2942 _a$2943))) (_a$2948 (jolt-invoke (var-deref "clojure.core" "mk-black") k v (jolt-invoke (var-deref "clojure.core" "nd-right") ir) right))) (jolt-invoke _a$2944 _a$2945 _a$2946 _a$2947 _a$2948)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "mk-black") k v ins right) jolt-nil)))) (jolt-invoke (var-deref "clojure.core" "mk-black") k v ins right)))))) balance-left) (let* ((_o$2949 (keyword #f "private")) (_o$2950 #t)) (jolt-hash-map _o$2949 _o$2950))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "balance-right" (letrec ((balance-right (lambda (k v left ins) (let fnrec2951 ((k k) (v v) (left left) (ins ins)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ins)) (let* ((il (jolt-invoke (var-deref "clojure.core" "nd-left") ins)) (ir (jolt-invoke (var-deref "clojure.core" "nd-right") ins))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") ir)) (let* ((_a$2952 (var-deref "clojure.core" "mk-red")) (_a$2953 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2954 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2955 (jolt-invoke (var-deref "clojure.core" "mk-black") k v left il)) (_a$2956 (jolt-invoke (var-deref "clojure.core" "blacken") ir))) (jolt-invoke _a$2952 _a$2953 _a$2954 _a$2955 _a$2956)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") il)) (let* ((_a$2962 (var-deref "clojure.core" "mk-red")) (_a$2963 (jolt-invoke (var-deref "clojure.core" "nd-key") il)) (_a$2964 (jolt-invoke (var-deref "clojure.core" "nd-val") il)) (_a$2965 (jolt-invoke (var-deref "clojure.core" "mk-black") k v left (jolt-invoke (var-deref "clojure.core" "nd-left") il))) (_a$2966 (let* ((_a$2957 (var-deref "clojure.core" "mk-black")) (_a$2958 (jolt-invoke (var-deref "clojure.core" "nd-key") ins)) (_a$2959 (jolt-invoke (var-deref "clojure.core" "nd-val") ins)) (_a$2960 (jolt-invoke (var-deref "clojure.core" "nd-right") il)) (_a$2961 ir)) (jolt-invoke _a$2957 _a$2958 _a$2959 _a$2960 _a$2961)))) (jolt-invoke _a$2962 _a$2963 _a$2964 _a$2965 _a$2966)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "mk-black") k v left ins) jolt-nil)))) (jolt-invoke (var-deref "clojure.core" "mk-black") k v left ins)))))) balance-right) (let* ((_o$2967 (keyword #f "private")) (_o$2968 #t)) (jolt-hash-map _o$2967 _o$2968))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "balance-left-del" (letrec ((balance-left-del (lambda (k v del right) (let fnrec2969 ((k k) (v v) (del del) (right right)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") del)) (jolt-invoke (var-deref "clojure.core" "mk-red") k v (jolt-invoke (var-deref "clojure.core" "blacken") del) right) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "black?") right)) (jolt-invoke (var-deref "clojure.core" "balance-right") k v del (jolt-invoke (var-deref "clojure.core" "redden") right)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "red?") right))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "black?") (jolt-invoke (var-deref "clojure.core" "nd-left") right)) and__25__auto))) (let* ((_a$2975 (var-deref "clojure.core" "mk-red")) (_a$2976 (jolt-invoke (var-deref "clojure.core" "nd-key") (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (_a$2977 (jolt-invoke (var-deref "clojure.core" "nd-val") (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (_a$2978 (jolt-invoke (var-deref "clojure.core" "mk-black") k v del (jolt-invoke (var-deref "clojure.core" "nd-left") (jolt-invoke (var-deref "clojure.core" "nd-left") right)))) (_a$2979 (let* ((_a$2970 (var-deref "clojure.core" "balance-right")) (_a$2971 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$2972 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$2973 (jolt-invoke (var-deref "clojure.core" "nd-right") (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (_a$2974 (jolt-invoke (var-deref "clojure.core" "redden") (jolt-invoke (var-deref "clojure.core" "nd-right") right)))) (jolt-invoke _a$2970 _a$2971 _a$2972 _a$2973 _a$2974)))) (jolt-invoke _a$2975 _a$2976 _a$2977 _a$2978 _a$2979)) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-ex-info "red-black tree invariant violation" (jolt-hash-map))) jolt-nil)))))))) balance-left-del) (let* ((_o$2980 (keyword #f "private")) (_o$2981 #t)) (jolt-hash-map _o$2980 _o$2981))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "balance-right-del" (letrec ((balance-right-del (lambda (k v left del) (let fnrec2982 ((k k) (v v) (left left) (del del)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") del)) (jolt-invoke (var-deref "clojure.core" "mk-red") k v left (jolt-invoke (var-deref "clojure.core" "blacken") del)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "black?") left)) (jolt-invoke (var-deref "clojure.core" "balance-left") k v (jolt-invoke (var-deref "clojure.core" "redden") left) del) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "red?") left))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "black?") (jolt-invoke (var-deref "clojure.core" "nd-right") left)) and__25__auto))) (let* ((_a$2988 (var-deref "clojure.core" "mk-red")) (_a$2989 (jolt-invoke (var-deref "clojure.core" "nd-key") (jolt-invoke (var-deref "clojure.core" "nd-right") left))) (_a$2990 (jolt-invoke (var-deref "clojure.core" "nd-val") (jolt-invoke (var-deref "clojure.core" "nd-right") left))) (_a$2991 (let* ((_a$2983 (var-deref "clojure.core" "balance-left")) (_a$2984 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$2985 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$2986 (jolt-invoke (var-deref "clojure.core" "redden") (jolt-invoke (var-deref "clojure.core" "nd-left") left))) (_a$2987 (jolt-invoke (var-deref "clojure.core" "nd-left") (jolt-invoke (var-deref "clojure.core" "nd-right") left)))) (jolt-invoke _a$2983 _a$2984 _a$2985 _a$2986 _a$2987))) (_a$2992 (jolt-invoke (var-deref "clojure.core" "mk-black") k v (jolt-invoke (var-deref "clojure.core" "nd-right") (jolt-invoke (var-deref "clojure.core" "nd-right") left)) del))) (jolt-invoke _a$2988 _a$2989 _a$2990 _a$2991 _a$2992)) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-ex-info "red-black tree invariant violation" (jolt-hash-map))) jolt-nil)))))))) balance-right-del) (let* ((_o$2993 (keyword #f "private")) (_o$2994 #t)) (jolt-hash-map _o$2993 _o$2994))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-append" (letrec ((tree-append (lambda (left right) (let fnrec2995 ((left left) (right right)) (if (jolt-nil? left) right (if (jolt-nil? right) left (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") left)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") right)) (let* ((app (let* ((_a$2996 (jolt-invoke (var-deref "clojure.core" "nd-right") left)) (_a$2997 (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (tree-append _a$2996 _a$2997)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") app)) (let* ((_a$3008 (var-deref "clojure.core" "mk-red")) (_a$3009 (jolt-invoke (var-deref "clojure.core" "nd-key") app)) (_a$3010 (jolt-invoke (var-deref "clojure.core" "nd-val") app)) (_a$3011 (let* ((_a$2998 (var-deref "clojure.core" "mk-red")) (_a$2999 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$3000 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$3001 (jolt-invoke (var-deref "clojure.core" "nd-left") left)) (_a$3002 (jolt-invoke (var-deref "clojure.core" "nd-left") app))) (jolt-invoke _a$2998 _a$2999 _a$3000 _a$3001 _a$3002))) (_a$3012 (let* ((_a$3003 (var-deref "clojure.core" "mk-red")) (_a$3004 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$3005 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$3006 (jolt-invoke (var-deref "clojure.core" "nd-right") app)) (_a$3007 (jolt-invoke (var-deref "clojure.core" "nd-right") right))) (jolt-invoke _a$3003 _a$3004 _a$3005 _a$3006 _a$3007)))) (jolt-invoke _a$3008 _a$3009 _a$3010 _a$3011 _a$3012)) (let* ((_a$3018 (var-deref "clojure.core" "mk-red")) (_a$3019 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$3020 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$3021 (jolt-invoke (var-deref "clojure.core" "nd-left") left)) (_a$3022 (let* ((_a$3013 (var-deref "clojure.core" "mk-red")) (_a$3014 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$3015 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$3016 app) (_a$3017 (jolt-invoke (var-deref "clojure.core" "nd-right") right))) (jolt-invoke _a$3013 _a$3014 _a$3015 _a$3016 _a$3017)))) (jolt-invoke _a$3018 _a$3019 _a$3020 _a$3021 _a$3022)))) (let* ((_a$3023 (var-deref "clojure.core" "mk-red")) (_a$3024 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$3025 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$3026 (jolt-invoke (var-deref "clojure.core" "nd-left") left)) (_a$3027 (tree-append (jolt-invoke (var-deref "clojure.core" "nd-right") left) right))) (jolt-invoke _a$3023 _a$3024 _a$3025 _a$3026 _a$3027))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") right)) (let* ((_a$3028 (var-deref "clojure.core" "mk-red")) (_a$3029 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$3030 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$3031 (tree-append left (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (_a$3032 (jolt-invoke (var-deref "clojure.core" "nd-right") right))) (jolt-invoke _a$3028 _a$3029 _a$3030 _a$3031 _a$3032)) (if (jolt-truthy? (keyword #f "else")) (let* ((app (let* ((_a$3033 (jolt-invoke (var-deref "clojure.core" "nd-right") left)) (_a$3034 (jolt-invoke (var-deref "clojure.core" "nd-left") right))) (tree-append _a$3033 _a$3034)))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "red?") app)) (let* ((_a$3045 (var-deref "clojure.core" "mk-red")) (_a$3046 (jolt-invoke (var-deref "clojure.core" "nd-key") app)) (_a$3047 (jolt-invoke (var-deref "clojure.core" "nd-val") app)) (_a$3048 (let* ((_a$3035 (var-deref "clojure.core" "mk-black")) (_a$3036 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$3037 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$3038 (jolt-invoke (var-deref "clojure.core" "nd-left") left)) (_a$3039 (jolt-invoke (var-deref "clojure.core" "nd-left") app))) (jolt-invoke _a$3035 _a$3036 _a$3037 _a$3038 _a$3039))) (_a$3049 (let* ((_a$3040 (var-deref "clojure.core" "mk-black")) (_a$3041 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$3042 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$3043 (jolt-invoke (var-deref "clojure.core" "nd-right") app)) (_a$3044 (jolt-invoke (var-deref "clojure.core" "nd-right") right))) (jolt-invoke _a$3040 _a$3041 _a$3042 _a$3043 _a$3044)))) (jolt-invoke _a$3045 _a$3046 _a$3047 _a$3048 _a$3049)) (let* ((_a$3055 (var-deref "clojure.core" "balance-left-del")) (_a$3056 (jolt-invoke (var-deref "clojure.core" "nd-key") left)) (_a$3057 (jolt-invoke (var-deref "clojure.core" "nd-val") left)) (_a$3058 (jolt-invoke (var-deref "clojure.core" "nd-left") left)) (_a$3059 (let* ((_a$3050 (var-deref "clojure.core" "mk-black")) (_a$3051 (jolt-invoke (var-deref "clojure.core" "nd-key") right)) (_a$3052 (jolt-invoke (var-deref "clojure.core" "nd-val") right)) (_a$3053 app) (_a$3054 (jolt-invoke (var-deref "clojure.core" "nd-right") right))) (jolt-invoke _a$3050 _a$3051 _a$3052 _a$3053 _a$3054)))) (jolt-invoke _a$3055 _a$3056 _a$3057 _a$3058 _a$3059)))) jolt-nil))))))))) tree-append) (let* ((_o$3060 (keyword #f "private")) (_o$3061 #t)) (jolt-hash-map _o$3060 _o$3061))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-del" (letrec ((tree-del (lambda (cmp tree k) (let fnrec3062 ((cmp cmp) (tree tree) (k k)) (let* ((c (jolt-invoke cmp k (jolt-invoke (var-deref "clojure.core" "nd-key") tree)))) (if (jolt-zero? c) (let* ((_a$3063 (var-deref "clojure.core" "tree-append")) (_a$3064 (jolt-invoke (var-deref "clojure.core" "nd-left") tree)) (_a$3065 (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (jolt-invoke _a$3063 _a$3064 _a$3065)) (if (jolt-neg? c) (let* ((del (tree-del cmp (jolt-invoke (var-deref "clojure.core" "nd-left") tree) k))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "black?") (jolt-invoke (var-deref "clojure.core" "nd-left") tree))) (let* ((_a$3066 (var-deref "clojure.core" "balance-left-del")) (_a$3067 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$3068 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$3069 del) (_a$3070 (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (jolt-invoke _a$3066 _a$3067 _a$3068 _a$3069 _a$3070)) (let* ((_a$3071 (var-deref "clojure.core" "mk-red")) (_a$3072 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$3073 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$3074 del) (_a$3075 (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (jolt-invoke _a$3071 _a$3072 _a$3073 _a$3074 _a$3075)))) (if (jolt-truthy? (keyword #f "else")) (let* ((del (tree-del cmp (jolt-invoke (var-deref "clojure.core" "nd-right") tree) k))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "black?") (jolt-invoke (var-deref "clojure.core" "nd-right") tree))) (let* ((_a$3076 (var-deref "clojure.core" "balance-right-del")) (_a$3077 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$3078 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$3079 (jolt-invoke (var-deref "clojure.core" "nd-left") tree)) (_a$3080 del)) (jolt-invoke _a$3076 _a$3077 _a$3078 _a$3079 _a$3080)) (let* ((_a$3081 (var-deref "clojure.core" "mk-red")) (_a$3082 (jolt-invoke (var-deref "clojure.core" "nd-key") tree)) (_a$3083 (jolt-invoke (var-deref "clojure.core" "nd-val") tree)) (_a$3084 (jolt-invoke (var-deref "clojure.core" "nd-left") tree)) (_a$3085 del)) (jolt-invoke _a$3081 _a$3082 _a$3083 _a$3084 _a$3085)))) jolt-nil)))))))) tree-del) (let* ((_o$3086 (keyword #f "private")) (_o$3087 #t)) (jolt-hash-map _o$3086 _o$3087))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "tree-collect" (letrec ((tree-collect (lambda (t proj acc) (let fnrec3088 ((t t) (proj proj) (acc acc)) (if (jolt-nil? t) acc (let* ((_a$3091 (jolt-invoke (var-deref "clojure.core" "nd-right") t)) (_a$3092 proj) (_a$3093 (let* ((_a$3089 (tree-collect (jolt-invoke (var-deref "clojure.core" "nd-left") t) proj acc)) (_a$3090 (jolt-invoke proj t))) (jolt-conj _a$3089 _a$3090)))) (tree-collect _a$3091 _a$3092 _a$3093))))))) tree-collect) (let* ((_o$3094 (keyword #f "private")) (_o$3095 #t)) (jolt-hash-map _o$3094 _o$3095))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "make-sorted" (letrec ((make-sorted (lambda (tag tree cnt cmp ops) (let fnrec3096 ((tag tag) (tree tree) (cnt cnt) (cmp cmp) (ops ops)) (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-invoke (var-deref "jolt.host" "ref-put!") (jolt-invoke (var-deref "jolt.host" "tagged-table") tag) (keyword #f "tree") tree) (keyword #f "cnt") cnt) (keyword #f "cmp") cmp) (keyword #f "ops") ops))))) make-sorted) (let* ((_o$3097 (keyword #f "private")) (_o$3098 #t)) (jolt-hash-map _o$3097 _o$3098))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sc-entries" (letrec ((sc-entries (lambda (sc proj) (let fnrec3099 ((sc sc) (proj proj)) (let* ((_a$3100 (var-deref "clojure.core" "tree-collect")) (_a$3101 (jolt-invoke (var-deref "clojure.core" "sfield") sc (keyword #f "tree"))) (_a$3102 proj) (_a$3103 (jolt-vector))) (jolt-invoke _a$3100 _a$3101 _a$3102 _a$3103)))))) sc-entries) (let* ((_o$3104 (keyword #f "private")) (_o$3105 #t)) (jolt-hash-map _o$3104 _o$3105))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "map-entry" (letrec ((map-entry (lambda (t) (let fnrec3106 ((t t)) (let* ((_a$3107 (var-deref "jolt.host" "map-entry")) (_a$3108 (jolt-invoke (var-deref "clojure.core" "nd-key") t)) (_a$3109 (jolt-invoke (var-deref "clojure.core" "nd-val") t))) (jolt-invoke _a$3107 _a$3108 _a$3109)))))) map-entry) (let* ((_o$3110 (keyword #f "private")) (_o$3111 #t)) (jolt-hash-map _o$3110 _o$3111))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-get" (letrec ((sm-get (lambda (sm k not-found) (let fnrec3112 ((sm sm) (k k) (not-found not-found)) (let* ((n (let* ((_a$3113 (var-deref "clojure.core" "tree-lookup")) (_a$3114 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "tree"))) (_a$3115 (jolt-invoke (var-deref "clojure.core" "the-cmp") sm)) (_a$3116 k)) (jolt-invoke _a$3113 _a$3114 _a$3115 _a$3116)))) (if (jolt-nil? n) not-found (jolt-invoke (var-deref "clojure.core" "nd-val") n))))))) sm-get) (let* ((_o$3117 (keyword #f "private")) (_o$3118 #t)) (jolt-hash-map _o$3117 _o$3118))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-assoc-1" (letrec ((sm-assoc-1 (lambda (sm k v) (let fnrec3119 ((sm sm) (k k) (v v)) (let* ((cmp (jolt-invoke (var-deref "clojure.core" "the-cmp") sm)) (tree (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "tree"))) (node (jolt-invoke (var-deref "clojure.core" "tree-lookup") tree cmp k))) (if (jolt-truthy? (let* ((and__25__auto node)) (if (jolt-truthy? and__25__auto) (jolt= v (jolt-invoke (var-deref "clojure.core" "nd-val") node)) and__25__auto))) sm (if (jolt-truthy? node) (let* ((_a$3120 (var-deref "clojure.core" "make-sorted")) (_a$3121 (keyword "jolt" "sorted-map")) (_a$3122 (jolt-invoke (var-deref "clojure.core" "tree-replace") cmp tree k v)) (_a$3123 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cnt"))) (_a$3124 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cmp"))) (_a$3125 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "ops")))) (jolt-invoke _a$3120 _a$3121 _a$3122 _a$3123 _a$3124 _a$3125)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$3126 (var-deref "clojure.core" "make-sorted")) (_a$3127 (keyword "jolt" "sorted-map")) (_a$3128 (jolt-invoke (var-deref "clojure.core" "blacken") (jolt-invoke (var-deref "clojure.core" "tree-ins") cmp tree k v))) (_a$3129 (jolt-inc (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cnt")))) (_a$3130 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cmp"))) (_a$3131 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "ops")))) (jolt-invoke _a$3126 _a$3127 _a$3128 _a$3129 _a$3130 _a$3131)) jolt-nil)))))))) sm-assoc-1) (let* ((_o$3132 (keyword #f "private")) (_o$3133 #t)) (jolt-hash-map _o$3132 _o$3133))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-assoc-many" (letrec ((sm-assoc-many (lambda (sm kvs) (let fnrec3134 ((sm sm) (kvs kvs)) (let* ((n (jolt-count kvs))) (begin (if (jolt-odd? n) (jolt-throw (jolt-ex-info "sorted-map assoc expects an even number of key/values" (let* ((_o$3135 (keyword #f "count")) (_o$3136 n)) (jolt-hash-map _o$3135 _o$3136)))) jolt-nil) (let* ((m sm) (i 0)) (let loop3137 ((m m) (i i)) (if (jolt-n< i n) (let* ((_a$3142 (let* ((_a$3138 (var-deref "clojure.core" "sm-assoc-1")) (_a$3139 m) (_a$3140 (jolt-nth kvs i)) (_a$3141 (jolt-nth kvs (jolt-inc i)))) (jolt-invoke _a$3138 _a$3139 _a$3140 _a$3141))) (_a$3143 (jolt-n+ i 2))) (loop3137 _a$3142 _a$3143)) m))))))))) sm-assoc-many) (let* ((_o$3144 (keyword #f "private")) (_o$3145 #t)) (jolt-hash-map _o$3144 _o$3145))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-dissoc-1" (letrec ((sm-dissoc-1 (lambda (sm k) (let fnrec3146 ((sm sm) (k k)) (let* ((cmp (jolt-invoke (var-deref "clojure.core" "the-cmp") sm)) (tree (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "tree")))) (if (jolt-nil? (jolt-invoke (var-deref "clojure.core" "tree-lookup") tree cmp k)) sm (let* ((t (jolt-invoke (var-deref "clojure.core" "tree-del") cmp tree k))) (let* ((_a$3147 (var-deref "clojure.core" "make-sorted")) (_a$3148 (keyword "jolt" "sorted-map")) (_a$3149 (if (jolt-truthy? t) (jolt-invoke (var-deref "clojure.core" "blacken") t) jolt-nil)) (_a$3150 (jolt-dec (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cnt")))) (_a$3151 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cmp"))) (_a$3152 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "ops")))) (jolt-invoke _a$3147 _a$3148 _a$3149 _a$3150 _a$3151 _a$3152))))))))) sm-dissoc-1) (let* ((_o$3153 (keyword #f "private")) (_o$3154 #t)) (jolt-hash-map _o$3153 _o$3154))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-dissoc-many" (letrec ((sm-dissoc-many (lambda (sm ks) (let fnrec3155 ((sm sm) (ks ks)) (jolt-reduce (var-deref "clojure.core" "sm-dissoc-1") sm ks))))) sm-dissoc-many) (let* ((_o$3156 (keyword #f "private")) (_o$3157 #t)) (jolt-hash-map _o$3156 _o$3157))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-conj-1" (letrec ((sm-conj-1 (lambda (sm x) (let fnrec3158 ((sm sm) (x x)) (if (jolt-nil? x) sm (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") x)) (let* ((_a$3164 (lambda (m e) (let fnrec3159 ((m m) (e e)) (let* ((_a$3160 (var-deref "clojure.core" "sm-assoc-1")) (_a$3161 m) (_a$3162 (jolt-first e)) (_a$3163 (jolt-invoke (var-deref "clojure.core" "second") e))) (jolt-invoke _a$3160 _a$3161 _a$3162 _a$3163))))) (_a$3165 sm) (_a$3166 (jolt-seq x))) (jolt-reduce _a$3164 _a$3165 _a$3166)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "vector?") x))) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count x)) and__25__auto))) (let* ((_a$3167 (var-deref "clojure.core" "sm-assoc-1")) (_a$3168 sm) (_a$3169 (jolt-nth x 0)) (_a$3170 (jolt-nth x 1))) (jolt-invoke _a$3167 _a$3168 _a$3169 _a$3170)) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (jolt-ex-info "conj on a sorted-map requires a [key value] pair or a map" (jolt-hash-map))) jolt-nil)))))))) sm-conj-1) (let* ((_o$3171 (keyword #f "private")) (_o$3172 #t)) (jolt-hash-map _o$3171 _o$3172))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-conj-many" (letrec ((sm-conj-many (lambda (sm xs) (let fnrec3173 ((sm sm) (xs xs)) (jolt-reduce (var-deref "clojure.core" "sm-conj-1") sm xs))))) sm-conj-many) (let* ((_o$3174 (keyword #f "private")) (_o$3175 #t)) (jolt-hash-map _o$3174 _o$3175))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-get" (letrec ((ss-get (lambda (ss x not-found) (let fnrec3176 ((ss ss) (x x) (not-found not-found)) (let* ((n (let* ((_a$3177 (var-deref "clojure.core" "tree-lookup")) (_a$3178 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "tree"))) (_a$3179 (jolt-invoke (var-deref "clojure.core" "the-cmp") ss)) (_a$3180 x)) (jolt-invoke _a$3177 _a$3178 _a$3179 _a$3180)))) (if (jolt-nil? n) not-found (jolt-invoke (var-deref "clojure.core" "nd-key") n))))))) ss-get) (let* ((_o$3181 (keyword #f "private")) (_o$3182 #t)) (jolt-hash-map _o$3181 _o$3182))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-conj-1" (letrec ((ss-conj-1 (lambda (ss x) (let fnrec3183 ((ss ss) (x x)) (let* ((cmp (jolt-invoke (var-deref "clojure.core" "the-cmp") ss)) (tree (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "tree")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "tree-lookup") tree cmp x)) ss (let* ((_a$3184 (var-deref "clojure.core" "make-sorted")) (_a$3185 (keyword "jolt" "sorted-set")) (_a$3186 (jolt-invoke (var-deref "clojure.core" "blacken") (jolt-invoke (var-deref "clojure.core" "tree-ins") cmp tree x jolt-nil))) (_a$3187 (jolt-inc (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cnt")))) (_a$3188 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cmp"))) (_a$3189 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "ops")))) (jolt-invoke _a$3184 _a$3185 _a$3186 _a$3187 _a$3188 _a$3189)))))))) ss-conj-1) (let* ((_o$3190 (keyword #f "private")) (_o$3191 #t)) (jolt-hash-map _o$3190 _o$3191))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-conj-many" (letrec ((ss-conj-many (lambda (ss xs) (let fnrec3192 ((ss ss) (xs xs)) (jolt-reduce (var-deref "clojure.core" "ss-conj-1") ss xs))))) ss-conj-many) (let* ((_o$3193 (keyword #f "private")) (_o$3194 #t)) (jolt-hash-map _o$3193 _o$3194))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-disj-1" (letrec ((ss-disj-1 (lambda (ss x) (let fnrec3195 ((ss ss) (x x)) (let* ((cmp (jolt-invoke (var-deref "clojure.core" "the-cmp") ss)) (tree (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "tree")))) (if (jolt-nil? (jolt-invoke (var-deref "clojure.core" "tree-lookup") tree cmp x)) ss (let* ((t (jolt-invoke (var-deref "clojure.core" "tree-del") cmp tree x))) (let* ((_a$3196 (var-deref "clojure.core" "make-sorted")) (_a$3197 (keyword "jolt" "sorted-set")) (_a$3198 (if (jolt-truthy? t) (jolt-invoke (var-deref "clojure.core" "blacken") t) jolt-nil)) (_a$3199 (jolt-dec (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cnt")))) (_a$3200 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cmp"))) (_a$3201 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "ops")))) (jolt-invoke _a$3196 _a$3197 _a$3198 _a$3199 _a$3200 _a$3201))))))))) ss-disj-1) (let* ((_o$3202 (keyword #f "private")) (_o$3203 #t)) (jolt-hash-map _o$3202 _o$3203))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-disj-many" (letrec ((ss-disj-many (lambda (ss xs) (let fnrec3204 ((ss ss) (xs xs)) (jolt-reduce (var-deref "clojure.core" "ss-disj-1") ss xs))))) ss-disj-many) (let* ((_o$3205 (keyword #f "private")) (_o$3206 #t)) (jolt-hash-map _o$3205 _o$3206))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sm-ops" (let* ((_o$3224 (keyword #f "count")) (_o$3225 (lambda (sm) (let fnrec3207 ((sm sm)) (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cnt"))))) (_o$3226 (keyword #f "entries")) (_o$3227 (lambda (sm) (let fnrec3208 ((sm sm)) (jolt-invoke (var-deref "clojure.core" "sc-entries") sm (var-deref "clojure.core" "map-entry"))))) (_o$3228 (keyword #f "seq")) (_o$3229 (lambda (sm) (let fnrec3209 ((sm sm)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "sc-entries") sm (var-deref "clojure.core" "map-entry")))))) (_o$3230 (keyword #f "rseq")) (_o$3231 (lambda (sm) (let fnrec3210 ((sm sm)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "vec") (jolt-reverse (jolt-invoke (var-deref "clojure.core" "sc-entries") sm (var-deref "clojure.core" "map-entry")))))))) (_o$3232 (keyword #f "first")) (_o$3233 (lambda (sm) (let fnrec3211 ((sm sm)) (jolt-first (jolt-invoke (var-deref "clojure.core" "sc-entries") sm (var-deref "clojure.core" "map-entry")))))) (_o$3234 (keyword #f "get")) (_o$3235 (var-deref "clojure.core" "sm-get")) (_o$3236 (keyword #f "contains")) (_o$3237 (lambda (sm k) (let fnrec3212 ((sm sm) (k k)) (jolt-not (jolt-nil? (let* ((_a$3213 (var-deref "clojure.core" "tree-lookup")) (_a$3214 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "tree"))) (_a$3215 (jolt-invoke (var-deref "clojure.core" "the-cmp") sm)) (_a$3216 k)) (jolt-invoke _a$3213 _a$3214 _a$3215 _a$3216))))))) (_o$3238 (keyword #f "assoc")) (_o$3239 (var-deref "clojure.core" "sm-assoc-many")) (_o$3240 (keyword #f "dissoc")) (_o$3241 (var-deref "clojure.core" "sm-dissoc-many")) (_o$3242 (keyword #f "conj")) (_o$3243 (var-deref "clojure.core" "sm-conj-many")) (_o$3244 (keyword #f "empty")) (_o$3245 (lambda (sm) (let fnrec3217 ((sm sm)) (let* ((_a$3218 (var-deref "clojure.core" "make-sorted")) (_a$3219 (keyword "jolt" "sorted-map")) (_a$3220 jolt-nil) (_a$3221 0) (_a$3222 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "cmp"))) (_a$3223 (jolt-invoke (var-deref "clojure.core" "sfield") sm (keyword #f "ops")))) (jolt-invoke _a$3218 _a$3219 _a$3220 _a$3221 _a$3222 _a$3223)))))) (jolt-hash-map _o$3224 _o$3225 _o$3226 _o$3227 _o$3228 _o$3229 _o$3230 _o$3231 _o$3232 _o$3233 _o$3234 _o$3235 _o$3236 _o$3237 _o$3238 _o$3239 _o$3240 _o$3241 _o$3242 _o$3243 _o$3244 _o$3245)) (let* ((_o$3246 (keyword #f "private")) (_o$3247 #t)) (jolt-hash-map _o$3246 _o$3247))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "ss-ops" (let* ((_o$3265 (keyword #f "count")) (_o$3266 (lambda (ss) (let fnrec3248 ((ss ss)) (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cnt"))))) (_o$3267 (keyword #f "entries")) (_o$3268 (lambda (ss) (let fnrec3249 ((ss ss)) (jolt-invoke (var-deref "clojure.core" "sc-entries") ss (var-deref "clojure.core" "nd-key"))))) (_o$3269 (keyword #f "seq")) (_o$3270 (lambda (ss) (let fnrec3250 ((ss ss)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "sc-entries") ss (var-deref "clojure.core" "nd-key")))))) (_o$3271 (keyword #f "rseq")) (_o$3272 (lambda (ss) (let fnrec3251 ((ss ss)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "vec") (jolt-reverse (jolt-invoke (var-deref "clojure.core" "sc-entries") ss (var-deref "clojure.core" "nd-key")))))))) (_o$3273 (keyword #f "first")) (_o$3274 (lambda (ss) (let fnrec3252 ((ss ss)) (jolt-first (jolt-invoke (var-deref "clojure.core" "sc-entries") ss (var-deref "clojure.core" "nd-key")))))) (_o$3275 (keyword #f "get")) (_o$3276 (var-deref "clojure.core" "ss-get")) (_o$3277 (keyword #f "contains")) (_o$3278 (lambda (ss x) (let fnrec3253 ((ss ss) (x x)) (jolt-not (jolt-nil? (let* ((_a$3254 (var-deref "clojure.core" "tree-lookup")) (_a$3255 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "tree"))) (_a$3256 (jolt-invoke (var-deref "clojure.core" "the-cmp") ss)) (_a$3257 x)) (jolt-invoke _a$3254 _a$3255 _a$3256 _a$3257))))))) (_o$3279 (keyword #f "conj")) (_o$3280 (var-deref "clojure.core" "ss-conj-many")) (_o$3281 (keyword #f "disj")) (_o$3282 (var-deref "clojure.core" "ss-disj-many")) (_o$3283 (keyword #f "empty")) (_o$3284 (lambda (ss) (let fnrec3258 ((ss ss)) (let* ((_a$3259 (var-deref "clojure.core" "make-sorted")) (_a$3260 (keyword "jolt" "sorted-set")) (_a$3261 jolt-nil) (_a$3262 0) (_a$3263 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "cmp"))) (_a$3264 (jolt-invoke (var-deref "clojure.core" "sfield") ss (keyword #f "ops")))) (jolt-invoke _a$3259 _a$3260 _a$3261 _a$3262 _a$3263 _a$3264)))))) (jolt-hash-map _o$3265 _o$3266 _o$3267 _o$3268 _o$3269 _o$3270 _o$3271 _o$3272 _o$3273 _o$3274 _o$3275 _o$3276 _o$3277 _o$3278 _o$3279 _o$3280 _o$3281 _o$3282 _o$3283 _o$3284)) (let* ((_o$3285 (keyword #f "private")) (_o$3286 #t)) (jolt-hash-map _o$3285 _o$3286))))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-map" (letrec ((sorted-map (lambda kvs (let fnrec3287 ((kvs (list->cseq kvs))) (let* ((_a$3288 (var-deref "clojure.core" "sm-assoc-many")) (_a$3289 (jolt-invoke (var-deref "clojure.core" "make-sorted") (keyword "jolt" "sorted-map") jolt-nil 0 jolt-nil (var-deref "clojure.core" "sm-ops"))) (_a$3290 (jolt-invoke (var-deref "clojure.core" "vec") kvs))) (jolt-invoke _a$3288 _a$3289 _a$3290)))))) sorted-map)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-map-by" (letrec ((sorted-map-by (lambda (comparator . kvs) (let fnrec3291 ((comparator comparator) (kvs (list->cseq kvs))) (let* ((_a$3292 (var-deref "clojure.core" "sm-assoc-many")) (_a$3293 (jolt-invoke (var-deref "clojure.core" "make-sorted") (keyword "jolt" "sorted-map") jolt-nil 0 (jolt-invoke (var-deref "clojure.core" "fn->cmp") comparator) (var-deref "clojure.core" "sm-ops"))) (_a$3294 (jolt-invoke (var-deref "clojure.core" "vec") kvs))) (jolt-invoke _a$3292 _a$3293 _a$3294)))))) sorted-map-by)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-set" (letrec ((sorted-set (lambda xs (let fnrec3295 ((xs (list->cseq xs))) (let* ((_a$3296 (var-deref "clojure.core" "ss-conj-many")) (_a$3297 (jolt-invoke (var-deref "clojure.core" "make-sorted") (keyword "jolt" "sorted-set") jolt-nil 0 jolt-nil (var-deref "clojure.core" "ss-ops"))) (_a$3298 (jolt-invoke (var-deref "clojure.core" "vec") xs))) (jolt-invoke _a$3296 _a$3297 _a$3298)))))) sorted-set)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-set-by" (letrec ((sorted-set-by (lambda (comparator . xs) (let fnrec3299 ((comparator comparator) (xs (list->cseq xs))) (let* ((_a$3300 (var-deref "clojure.core" "ss-conj-many")) (_a$3301 (jolt-invoke (var-deref "clojure.core" "make-sorted") (keyword "jolt" "sorted-set") jolt-nil 0 (jolt-invoke (var-deref "clojure.core" "fn->cmp") comparator) (var-deref "clojure.core" "ss-ops"))) (_a$3302 (jolt-invoke (var-deref "clojure.core" "vec") xs))) (jolt-invoke _a$3300 _a$3301 _a$3302)))))) sorted-set-by)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-map?" (letrec ((sorted-map? (lambda (x) (let fnrec3303 ((x x)) (jolt= (keyword "jolt" "sorted-map") (jolt-invoke (var-deref "clojure.core" "sfield") x (keyword "jolt" "type"))))))) sorted-map?)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted-set?" (letrec ((sorted-set? (lambda (x) (let fnrec3304 ((x x)) (jolt= (keyword "jolt" "sorted-set") (jolt-invoke (var-deref "clojure.core" "sfield") x (keyword "jolt" "type"))))))) sorted-set?)))
(guard (e (#t #f))
(def-var! "clojure.core" "sorted?" (letrec ((sorted? (lambda (x) (let fnrec3305 ((x x)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "sorted-map?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "sorted-set?") x))))))) sorted?)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sc-keyf" (letrec ((sc-keyf (lambda (sc) (let fnrec3306 ((sc sc)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "sorted-map?") sc)) jolt-first jolt-identity))))) sc-keyf) (let* ((_o$3307 (keyword #f "private")) (_o$3308 #t)) (jolt-hash-map _o$3307 _o$3308))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sc-proj" (letrec ((sc-proj (lambda (sc) (let fnrec3309 ((sc sc)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "sorted-map?") sc)) (var-deref "clojure.core" "map-entry") (var-deref "clojure.core" "nd-key")))))) sc-proj) (let* ((_o$3310 (keyword #f "private")) (_o$3311 #t)) (jolt-hash-map _o$3310 _o$3311))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "sub-filter" (letrec ((sub-filter (lambda (sc tests) (let fnrec3312 ((sc sc) (tests tests)) (let* ((cmp (jolt-invoke (var-deref "clojure.core" "the-cmp") sc)) (keyf (jolt-invoke (var-deref "clojure.core" "sc-keyf") sc))) (let* ((_a$3315 (var-deref "clojure.core" "filterv")) (_a$3316 (lambda (e) (let fnrec3313 ((e e)) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (G__119) (let fnrec3314 ((G__119 G__119)) (let* ((G__120 G__119) (test (jolt-nth G__120 0 jolt-nil)) (k (jolt-nth G__120 1 jolt-nil))) (jolt-invoke test (jolt-invoke cmp (jolt-invoke keyf e) k) 0)))) tests)))) (_a$3317 (jolt-invoke (var-deref "clojure.core" "sc-entries") sc (jolt-invoke (var-deref "clojure.core" "sc-proj") sc)))) (jolt-invoke _a$3315 _a$3316 _a$3317))))))) sub-filter) (let* ((_o$3318 (keyword #f "private")) (_o$3319 #t)) (jolt-hash-map _o$3318 _o$3319))))
(guard (e (#t #f))
(def-var! "clojure.core" "subseq" (letrec ((subseq (case-lambda ((sc test k) (let fnrec3320 ((sc sc) (test test) (k k)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "sub-filter") sc (jolt-vector (let* ((_o$3321 test) (_o$3322 k)) (jolt-vector _o$3321 _o$3322))))))) ((sc start-test start-k end-test end-k) (let fnrec3323 ((sc sc) (start-test start-test) (start-k start-k) (end-test end-test) (end-k end-k)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "sub-filter") sc (let* ((_o$3328 (let* ((_o$3324 start-test) (_o$3325 start-k)) (jolt-vector _o$3324 _o$3325))) (_o$3329 (let* ((_o$3326 end-test) (_o$3327 end-k)) (jolt-vector _o$3326 _o$3327)))) (jolt-vector _o$3328 _o$3329))))))))) subseq)))
(guard (e (#t #f))
(def-var! "clojure.core" "rsubseq" (letrec ((rsubseq (case-lambda ((sc test k) (let fnrec3330 ((sc sc) (test test) (k k)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "vec") (jolt-reverse (jolt-invoke (var-deref "clojure.core" "sub-filter") sc (jolt-vector (let* ((_o$3331 test) (_o$3332 k)) (jolt-vector _o$3331 _o$3332))))))))) ((sc start-test start-k end-test end-k) (let fnrec3333 ((sc sc) (start-test start-test) (start-k start-k) (end-test end-test) (end-k end-k)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "vec") (jolt-reverse (jolt-invoke (var-deref "clojure.core" "sub-filter") sc (let* ((_o$3338 (let* ((_o$3334 start-test) (_o$3335 start-k)) (jolt-vector _o$3334 _o$3335))) (_o$3339 (let* ((_o$3336 end-test) (_o$3337 end-k)) (jolt-vector _o$3336 _o$3337)))) (jolt-vector _o$3338 _o$3339))))))))))) rsubseq)))
(guard (e (#t #f))
(def-var! "clojure.core" "comment"
(lambda body (let fnrec3340 ((body (list->cseq body))) jolt-nil)))
(mark-macro! "clojure.core" "comment"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-out-str"
(lambda body (let fnrec3341 ((body (list->cseq body))) (let* ((_a$3346 (var-deref "clojure.core" "__sqcat")) (_a$3347 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "__with-out-str"))) (_a$3348 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3342 (var-deref "clojure.core" "__sqcat")) (_a$3343 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$3344 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3345 body)) (jolt-invoke _a$3342 _a$3343 _a$3344 _a$3345))))) (jolt-invoke _a$3346 _a$3347 _a$3348)))))
(mark-macro! "clojure.core" "with-out-str"))
(guard (e (#t #f))
(def-var! "clojure.core" "defmulti"
(lambda (name . args) (let fnrec3349 ((name name) (args (list->cseq args))) (let* ((args (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") (jolt-first args))) (jolt-rest args) args)) (args (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "map?") (jolt-first args)))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first args))) and__25__auto))) (jolt-rest args) args)) (dispatch (jolt-first args)) (opts (jolt-rest args)) (qname (let* ((_a$3350 (var-deref "clojure.core" "symbol")) (_a$3351 (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "ns-name") (var-deref "clojure.core" "*ns*")))) (_a$3352 (jolt-invoke (var-deref "clojure.core" "name") name))) (jolt-invoke _a$3350 _a$3351 _a$3352)))) (let* ((_a$3356 (var-deref "clojure.core" "__sqcat")) (_a$3357 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defmulti-setup"))) (_a$3358 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3353 (var-deref "clojure.core" "__sqcat")) (_a$3354 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3355 (jolt-invoke (var-deref "clojure.core" "__sq1") qname))) (jolt-invoke _a$3353 _a$3354 _a$3355)))) (_a$3359 (jolt-invoke (var-deref "clojure.core" "__sq1") dispatch)) (_a$3360 opts)) (jolt-invoke _a$3356 _a$3357 _a$3358 _a$3359 _a$3360))))))
(mark-macro! "clojure.core" "defmulti"))
(guard (e (#t #f))
(def-var! "clojure.core" "defmethod"
(lambda (mm dispatch-val . fn-tail) (let fnrec3361 ((mm mm) (dispatch-val dispatch-val) (fn-tail (list->cseq fn-tail))) (let* ((_a$3365 (var-deref "clojure.core" "__sqcat")) (_a$3366 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defmethod-setup"))) (_a$3367 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3362 (var-deref "clojure.core" "__sqcat")) (_a$3363 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3364 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3362 _a$3363 _a$3364)))) (_a$3368 (jolt-invoke (var-deref "clojure.core" "__sq1") dispatch-val)) (_a$3369 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn")) fn-tail))) (_a$3370 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "ns-name") (var-deref "clojure.core" "*ns*")))))) (jolt-invoke _a$3365 _a$3366 _a$3367 _a$3368 _a$3369 _a$3370)))))
(mark-macro! "clojure.core" "defmethod"))
(guard (e (#t #f))
(def-var! "clojure.core" "prefer-method"
(lambda (mm dval-a dval-b) (let fnrec3371 ((mm mm) (dval-a dval-a) (dval-b dval-b)) (let* ((_a$3375 (var-deref "clojure.core" "__sqcat")) (_a$3376 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "prefer-method-setup"))) (_a$3377 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3372 (var-deref "clojure.core" "__sqcat")) (_a$3373 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3374 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3372 _a$3373 _a$3374)))) (_a$3378 (jolt-invoke (var-deref "clojure.core" "__sq1") dval-a)) (_a$3379 (jolt-invoke (var-deref "clojure.core" "__sq1") dval-b))) (jolt-invoke _a$3375 _a$3376 _a$3377 _a$3378 _a$3379)))))
(mark-macro! "clojure.core" "prefer-method"))
(guard (e (#t #f))
(def-var! "clojure.core" "remove-method"
(lambda (mm dval) (let fnrec3380 ((mm mm) (dval dval)) (let* ((_a$3384 (var-deref "clojure.core" "__sqcat")) (_a$3385 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "remove-method-setup"))) (_a$3386 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3381 (var-deref "clojure.core" "__sqcat")) (_a$3382 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3383 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3381 _a$3382 _a$3383)))) (_a$3387 (jolt-invoke (var-deref "clojure.core" "__sq1") dval))) (jolt-invoke _a$3384 _a$3385 _a$3386 _a$3387)))))
(mark-macro! "clojure.core" "remove-method"))
(guard (e (#t #f))
(def-var! "clojure.core" "remove-all-methods"
(lambda (mm) (let fnrec3388 ((mm mm)) (let* ((_a$3392 (var-deref "clojure.core" "__sqcat")) (_a$3393 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "remove-all-methods-setup"))) (_a$3394 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3389 (var-deref "clojure.core" "__sqcat")) (_a$3390 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3391 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3389 _a$3390 _a$3391))))) (jolt-invoke _a$3392 _a$3393 _a$3394)))))
(mark-macro! "clojure.core" "remove-all-methods"))
(guard (e (#t #f))
(def-var! "clojure.core" "get-method"
(lambda (mm dval) (let fnrec3395 ((mm mm) (dval dval)) (let* ((_a$3396 (var-deref "clojure.core" "__sqcat")) (_a$3397 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get-method-setup"))) (_a$3398 (jolt-invoke (var-deref "clojure.core" "__sq1") mm)) (_a$3399 (jolt-invoke (var-deref "clojure.core" "__sq1") dval))) (jolt-invoke _a$3396 _a$3397 _a$3398 _a$3399)))))
(mark-macro! "clojure.core" "get-method"))
(guard (e (#t #f))
(def-var! "clojure.core" "methods"
(lambda (mm) (let fnrec3400 ((mm mm)) (let* ((_a$3401 (var-deref "clojure.core" "__sqcat")) (_a$3402 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "methods-setup"))) (_a$3403 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3401 _a$3402 _a$3403)))))
(mark-macro! "clojure.core" "methods"))
(guard (e (#t #f))
(def-var! "clojure.core" "prefers"
(lambda (mm) (let fnrec3404 ((mm mm)) (let* ((_a$3408 (var-deref "clojure.core" "__sqcat")) (_a$3409 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "prefers-setup"))) (_a$3410 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3405 (var-deref "clojure.core" "__sqcat")) (_a$3406 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3407 (jolt-invoke (var-deref "clojure.core" "__sq1") mm))) (jolt-invoke _a$3405 _a$3406 _a$3407))))) (jolt-invoke _a$3408 _a$3409 _a$3410)))))
(mark-macro! "clojure.core" "prefers"))
(guard (e (#t #f))
(def-var! "clojure.core" "instance?"
(lambda (t x) (let fnrec3411 ((t t) (x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") t)) (let* ((_a$3412 (var-deref "clojure.core" "__sqcat")) (_a$3413 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "instance-check"))) (_a$3414 (jolt-invoke (var-deref "clojure.core" "__sq1") t)) (_a$3415 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$3412 _a$3413 _a$3414 _a$3415)) (let* ((_a$3419 (var-deref "clojure.core" "__sqcat")) (_a$3420 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "instance-check"))) (_a$3421 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3416 (var-deref "clojure.core" "__sqcat")) (_a$3417 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3418 (jolt-invoke (var-deref "clojure.core" "__sq1") t))) (jolt-invoke _a$3416 _a$3417 _a$3418)))) (_a$3422 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$3419 _a$3420 _a$3421 _a$3422))))))
(mark-macro! "clojure.core" "instance?"))
(guard (e (#t #f))
(def-var! "clojure.core" "locking"
(lambda (x . body) (let fnrec3423 ((x x) (body (list->cseq body))) (let* ((_a$3428 (var-deref "clojure.core" "__sqcat")) (_a$3429 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "jolt.host" "with-monitor"))) (_a$3430 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$3431 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3424 (var-deref "clojure.core" "__sqcat")) (_a$3425 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$3426 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3427 body)) (jolt-invoke _a$3424 _a$3425 _a$3426 _a$3427))))) (jolt-invoke _a$3428 _a$3429 _a$3430 _a$3431)))))
(mark-macro! "clojure.core" "locking"))
(guard (e (#t #f))
(def-var! "clojure.core" "time"
(lambda (expr) (let fnrec3432 ((expr expr)) (let* ((_a$3450 (var-deref "clojure.core" "__sqcat")) (_a$3451 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3452 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3433 (var-deref "clojure.core" "__sqvec")) (_a$3434 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "start__13__auto"))) (_a$3435 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "current-time-ms"))))) (_a$3436 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "ret__14__auto"))) (_a$3437 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$3433 _a$3434 _a$3435 _a$3436 _a$3437)))) (_a$3453 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3447 (var-deref "clojure.core" "__sqcat")) (_a$3448 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "println"))) (_a$3449 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3442 (var-deref "clojure.core" "__sqcat")) (_a$3443 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "str"))) (_a$3444 (jolt-invoke (var-deref "clojure.core" "__sq1") "Elapsed time: ")) (_a$3445 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3438 (var-deref "clojure.core" "__sqcat")) (_a$3439 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "-"))) (_a$3440 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "current-time-ms"))))) (_a$3441 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "start__13__auto")))) (jolt-invoke _a$3438 _a$3439 _a$3440 _a$3441)))) (_a$3446 (jolt-invoke (var-deref "clojure.core" "__sq1") " msecs"))) (jolt-invoke _a$3442 _a$3443 _a$3444 _a$3445 _a$3446))))) (jolt-invoke _a$3447 _a$3448 _a$3449)))) (_a$3454 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "ret__14__auto")))) (jolt-invoke _a$3450 _a$3451 _a$3452 _a$3453 _a$3454)))))
(mark-macro! "clojure.core" "time"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-redefs"
(lambda (bindings . body) (let fnrec3455 ((bindings bindings) (body (list->cseq body))) (let* ((pairs (let* ((_a$3462 (lambda (acc p) (let fnrec3456 ((acc acc) (p p)) (let* ((_a$3460 (jolt-conj acc (let* ((_a$3457 (var-deref "clojure.core" "__sqcat")) (_a$3458 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "var"))) (_a$3459 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first p)))) (jolt-invoke _a$3457 _a$3458 _a$3459)))) (_a$3461 (jolt-invoke (var-deref "clojure.core" "second") p))) (jolt-conj _a$3460 _a$3461))))) (_a$3463 (jolt-vector)) (_a$3464 (jolt-invoke (var-deref "clojure.core" "partition") 2 bindings))) (jolt-reduce _a$3462 _a$3463 _a$3464)))) (let* ((_a$3469 (var-deref "clojure.core" "__sqcat")) (_a$3470 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "with-redefs-fn"))) (_a$3471 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "hash-map")) pairs))) (_a$3472 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3465 (var-deref "clojure.core" "__sqcat")) (_a$3466 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$3467 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3468 body)) (jolt-invoke _a$3465 _a$3466 _a$3467 _a$3468))))) (jolt-invoke _a$3469 _a$3470 _a$3471 _a$3472))))))
(mark-macro! "clojure.core" "with-redefs"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-local-vars"
(lambda (bindings . body) (let fnrec3473 ((bindings bindings) (body (list->cseq body))) (let* ((binds (let* ((_a$3480 (lambda (acc p) (let fnrec3474 ((acc acc) (p p)) (let* ((_a$3478 (jolt-conj acc (jolt-first p))) (_a$3479 (let* ((_a$3475 (var-deref "clojure.core" "__sqcat")) (_a$3476 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "__local-var"))) (_a$3477 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "second") p)))) (jolt-invoke _a$3475 _a$3476 _a$3477)))) (jolt-conj _a$3478 _a$3479))))) (_a$3481 (jolt-vector)) (_a$3482 (jolt-invoke (var-deref "clojure.core" "partition") 2 bindings))) (jolt-reduce _a$3480 _a$3481 _a$3482)))) (let* ((_a$3483 (var-deref "clojure.core" "__sqcat")) (_a$3484 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3485 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") binds))) (_a$3486 body)) (jolt-invoke _a$3483 _a$3484 _a$3485 _a$3486))))))
(mark-macro! "clojure.core" "with-local-vars"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-open"
(lambda (bindings . body) (let fnrec3487 ((bindings bindings) (body (list->cseq body))) (if (jolt-zero? (jolt-count bindings)) (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) body) (let* ((_a$3505 (var-deref "clojure.core" "__sqcat")) (_a$3506 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3507 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3488 (var-deref "clojure.core" "__sqvec")) (_a$3489 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first bindings))) (_a$3490 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "second") bindings)))) (jolt-invoke _a$3488 _a$3489 _a$3490)))) (_a$3508 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3501 (var-deref "clojure.core" "__sqcat")) (_a$3502 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "try"))) (_a$3503 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3491 (var-deref "clojure.core" "__sqcat")) (_a$3492 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "with-open"))) (_a$3493 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "vec") (jolt-drop 2 bindings)))) (_a$3494 body)) (jolt-invoke _a$3491 _a$3492 _a$3493 _a$3494)))) (_a$3504 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3498 (var-deref "clojure.core" "__sqcat")) (_a$3499 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "finally"))) (_a$3500 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3495 (var-deref "clojure.core" "__sqcat")) (_a$3496 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "__close"))) (_a$3497 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first bindings)))) (jolt-invoke _a$3495 _a$3496 _a$3497))))) (jolt-invoke _a$3498 _a$3499 _a$3500))))) (jolt-invoke _a$3501 _a$3502 _a$3503 _a$3504))))) (jolt-invoke _a$3505 _a$3506 _a$3507 _a$3508))))))
(mark-macro! "clojure.core" "with-open"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-precision"
(lambda (precision . exprs) (let fnrec3509 ((precision precision) (exprs (list->cseq exprs))) (let* ((G__121 (if (jolt= (keyword #f "rounding") (jolt-first exprs)) (let* ((_o$3510 (jolt-invoke (var-deref "clojure.core" "second") exprs)) (_o$3511 (jolt-drop 2 exprs))) (jolt-vector _o$3510 _o$3511)) (let* ((_o$3512 (jolt-symbol #f "HALF_UP")) (_o$3513 exprs)) (jolt-vector _o$3512 _o$3513)))) (rounding (jolt-nth G__121 0 jolt-nil)) (body (jolt-nth G__121 1 jolt-nil))) (let* ((_a$3520 (var-deref "clojure.core" "__sqcat")) (_a$3521 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "binding"))) (_a$3522 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3517 (var-deref "clojure.core" "__sqvec")) (_a$3518 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*math-context*"))) (_a$3519 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap") (keyword #f "precision") precision (keyword #f "rounding") (let* ((_a$3514 (var-deref "clojure.core" "__sqcat")) (_a$3515 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3516 (jolt-invoke (var-deref "clojure.core" "__sq1") rounding))) (jolt-invoke _a$3514 _a$3515 _a$3516)))))) (jolt-invoke _a$3517 _a$3518 _a$3519)))) (_a$3523 body)) (jolt-invoke _a$3520 _a$3521 _a$3522 _a$3523))))))
(mark-macro! "clojure.core" "with-precision"))
(guard (e (#t #f))
(def-var! "clojure.core" "with-bindings"
(lambda (binding-map . body) (let fnrec3524 ((binding-map binding-map) (body (list->cseq body))) (let* ((_a$3529 (var-deref "clojure.core" "__sqcat")) (_a$3530 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "with-bindings*"))) (_a$3531 (jolt-invoke (var-deref "clojure.core" "__sq1") binding-map)) (_a$3532 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3525 (var-deref "clojure.core" "__sqcat")) (_a$3526 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$3527 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3528 body)) (jolt-invoke _a$3525 _a$3526 _a$3527 _a$3528))))) (jolt-invoke _a$3529 _a$3530 _a$3531 _a$3532)))))
(mark-macro! "clojure.core" "with-bindings"))
(guard (e (#t #f))
(def-var! "clojure.core" "bound-fn"
(lambda fntail (let fnrec3533 ((fntail (list->cseq fntail))) (let* ((_a$3534 (var-deref "clojure.core" "__sqcat")) (_a$3535 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "bound-fn*"))) (_a$3536 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn")) fntail)))) (jolt-invoke _a$3534 _a$3535 _a$3536)))))
(mark-macro! "clojure.core" "bound-fn"))
(guard (e (#t #f))
(def-var! "clojure.core" "defonce"
(lambda (name expr) (let fnrec3537 ((name name) (expr expr)) (let* ((_a$3563 (var-deref "clojure.core" "__sqcat")) (_a$3564 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3565 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3544 (var-deref "clojure.core" "__sqvec")) (_a$3545 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "v__15__auto"))) (_a$3546 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3541 (var-deref "clojure.core" "__sqcat")) (_a$3542 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "resolve"))) (_a$3543 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3538 (var-deref "clojure.core" "__sqcat")) (_a$3539 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3540 (jolt-invoke (var-deref "clojure.core" "__sq1") name))) (jolt-invoke _a$3538 _a$3539 _a$3540))))) (jolt-invoke _a$3541 _a$3542 _a$3543))))) (jolt-invoke _a$3544 _a$3545 _a$3546)))) (_a$3566 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3558 (var-deref "clojure.core" "__sqcat")) (_a$3559 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3560 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3550 (var-deref "clojure.core" "__sqcat")) (_a$3551 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "and"))) (_a$3552 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "v__15__auto"))) (_a$3553 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3547 (var-deref "clojure.core" "__sqcat")) (_a$3548 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "bound?"))) (_a$3549 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "v__15__auto")))) (jolt-invoke _a$3547 _a$3548 _a$3549))))) (jolt-invoke _a$3550 _a$3551 _a$3552 _a$3553)))) (_a$3561 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "v__15__auto"))) (_a$3562 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3554 (var-deref "clojure.core" "__sqcat")) (_a$3555 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$3556 (jolt-invoke (var-deref "clojure.core" "__sq1") name)) (_a$3557 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$3554 _a$3555 _a$3556 _a$3557))))) (jolt-invoke _a$3558 _a$3559 _a$3560 _a$3561 _a$3562))))) (jolt-invoke _a$3563 _a$3564 _a$3565 _a$3566)))))
(mark-macro! "clojure.core" "defonce"))
(guard (e (#t #f))
(def-var! "clojure.core" "if-not"
(lambda (test then . G__122) (let fnrec3567 ((test test) (then then) (G__122 (list->cseq G__122))) (let* ((G__123 G__122) (_else (jolt-nth G__123 0 jolt-nil))) (let* ((_a$3571 (var-deref "clojure.core" "__sqcat")) (_a$3572 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3573 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3568 (var-deref "clojure.core" "__sqcat")) (_a$3569 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "not"))) (_a$3570 (jolt-invoke (var-deref "clojure.core" "__sq1") test))) (jolt-invoke _a$3568 _a$3569 _a$3570)))) (_a$3574 (jolt-invoke (var-deref "clojure.core" "__sq1") then)) (_a$3575 (jolt-invoke (var-deref "clojure.core" "__sq1") _else))) (jolt-invoke _a$3571 _a$3572 _a$3573 _a$3574 _a$3575))))))
(mark-macro! "clojure.core" "if-not"))
(guard (e (#t #f))
(def-var! "clojure.core" "if-let"
(lambda (bindings then . G__124) (let fnrec3576 ((bindings bindings) (then then) (G__124 (list->cseq G__124))) (let* ((G__125 G__124) (_else (jolt-nth G__125 0 jolt-nil))) (let* ((form (jolt-invoke bindings 0)) (tst (jolt-invoke bindings 1))) (let* ((_a$3592 (var-deref "clojure.core" "__sqcat")) (_a$3593 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3594 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3577 (var-deref "clojure.core" "__sqvec")) (_a$3578 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__16__auto"))) (_a$3579 (jolt-invoke (var-deref "clojure.core" "__sq1") tst))) (jolt-invoke _a$3577 _a$3578 _a$3579)))) (_a$3595 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3587 (var-deref "clojure.core" "__sqcat")) (_a$3588 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3589 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__16__auto"))) (_a$3590 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3583 (var-deref "clojure.core" "__sqcat")) (_a$3584 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3585 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3580 (var-deref "clojure.core" "__sqvec")) (_a$3581 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$3582 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__16__auto")))) (jolt-invoke _a$3580 _a$3581 _a$3582)))) (_a$3586 (jolt-invoke (var-deref "clojure.core" "__sq1") then))) (jolt-invoke _a$3583 _a$3584 _a$3585 _a$3586)))) (_a$3591 (jolt-invoke (var-deref "clojure.core" "__sq1") _else))) (jolt-invoke _a$3587 _a$3588 _a$3589 _a$3590 _a$3591))))) (jolt-invoke _a$3592 _a$3593 _a$3594 _a$3595)))))))
(mark-macro! "clojure.core" "if-let"))
(guard (e (#t #f))
(def-var! "clojure.core" "if-some"
(lambda (bindings then . G__126) (let fnrec3596 ((bindings bindings) (then then) (G__126 (list->cseq G__126))) (let* ((G__127 G__126) (_else (jolt-nth G__127 0 jolt-nil))) (let* ((form (jolt-invoke bindings 0)) (tst (jolt-invoke bindings 1))) (let* ((_a$3615 (var-deref "clojure.core" "__sqcat")) (_a$3616 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3617 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3597 (var-deref "clojure.core" "__sqvec")) (_a$3598 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__17__auto"))) (_a$3599 (jolt-invoke (var-deref "clojure.core" "__sq1") tst))) (jolt-invoke _a$3597 _a$3598 _a$3599)))) (_a$3618 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3610 (var-deref "clojure.core" "__sqcat")) (_a$3611 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3612 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3600 (var-deref "clojure.core" "__sqcat")) (_a$3601 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "some?"))) (_a$3602 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__17__auto")))) (jolt-invoke _a$3600 _a$3601 _a$3602)))) (_a$3613 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3606 (var-deref "clojure.core" "__sqcat")) (_a$3607 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3608 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3603 (var-deref "clojure.core" "__sqvec")) (_a$3604 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$3605 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__17__auto")))) (jolt-invoke _a$3603 _a$3604 _a$3605)))) (_a$3609 (jolt-invoke (var-deref "clojure.core" "__sq1") then))) (jolt-invoke _a$3606 _a$3607 _a$3608 _a$3609)))) (_a$3614 (jolt-invoke (var-deref "clojure.core" "__sq1") _else))) (jolt-invoke _a$3610 _a$3611 _a$3612 _a$3613 _a$3614))))) (jolt-invoke _a$3615 _a$3616 _a$3617 _a$3618)))))))
(mark-macro! "clojure.core" "if-some"))
(guard (e (#t #f))
(def-var! "clojure.core" "when-some"
(lambda (bindings . body) (let fnrec3619 ((bindings bindings) (body (list->cseq body))) (let* ((form (jolt-invoke bindings 0)) (tst (jolt-invoke bindings 1))) (let* ((_a$3638 (var-deref "clojure.core" "__sqcat")) (_a$3639 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3640 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3620 (var-deref "clojure.core" "__sqvec")) (_a$3621 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__18__auto"))) (_a$3622 (jolt-invoke (var-deref "clojure.core" "__sq1") tst))) (jolt-invoke _a$3620 _a$3621 _a$3622)))) (_a$3641 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3633 (var-deref "clojure.core" "__sqcat")) (_a$3634 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3635 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3623 (var-deref "clojure.core" "__sqcat")) (_a$3624 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "some?"))) (_a$3625 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__18__auto")))) (jolt-invoke _a$3623 _a$3624 _a$3625)))) (_a$3636 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3629 (var-deref "clojure.core" "__sqcat")) (_a$3630 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3631 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3626 (var-deref "clojure.core" "__sqvec")) (_a$3627 (jolt-invoke (var-deref "clojure.core" "__sq1") form)) (_a$3628 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "temp__18__auto")))) (jolt-invoke _a$3626 _a$3627 _a$3628)))) (_a$3632 body)) (jolt-invoke _a$3629 _a$3630 _a$3631 _a$3632)))) (_a$3637 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$3633 _a$3634 _a$3635 _a$3636 _a$3637))))) (jolt-invoke _a$3638 _a$3639 _a$3640 _a$3641))))))
(mark-macro! "clojure.core" "when-some"))
(guard (e (#t #f))
(def-var! "clojure.core" "while"
(lambda (test . body) (let fnrec3642 ((test test) (body (list->cseq body))) (let* ((_a$3648 (var-deref "clojure.core" "__sqcat")) (_a$3649 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "loop"))) (_a$3650 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3651 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3643 (var-deref "clojure.core" "__sqcat")) (_a$3644 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "when"))) (_a$3645 (jolt-invoke (var-deref "clojure.core" "__sq1") test)) (_a$3646 body) (_a$3647 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "recur")))))) (jolt-invoke _a$3643 _a$3644 _a$3645 _a$3646 _a$3647))))) (jolt-invoke _a$3648 _a$3649 _a$3650 _a$3651)))))
(mark-macro! "clojure.core" "while"))
(guard (e (#t #f))
(def-var! "clojure.core" "dotimes"
(lambda (bindings . body) (let fnrec3652 ((bindings bindings) (body (list->cseq body))) (let* ((i (jolt-invoke bindings 0)) (n (jolt-invoke bindings 1))) (let* ((_a$3678 (var-deref "clojure.core" "__sqcat")) (_a$3679 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3680 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3653 (var-deref "clojure.core" "__sqvec")) (_a$3654 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "n__19__auto"))) (_a$3655 (jolt-invoke (var-deref "clojure.core" "__sq1") n))) (jolt-invoke _a$3653 _a$3654 _a$3655)))) (_a$3681 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3674 (var-deref "clojure.core" "__sqcat")) (_a$3675 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "loop"))) (_a$3676 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3656 (var-deref "clojure.core" "__sqvec")) (_a$3657 (jolt-invoke (var-deref "clojure.core" "__sq1") i)) (_a$3658 (jolt-invoke (var-deref "clojure.core" "__sq1") 0))) (jolt-invoke _a$3656 _a$3657 _a$3658)))) (_a$3677 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3669 (var-deref "clojure.core" "__sqcat")) (_a$3670 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "when"))) (_a$3671 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3659 (var-deref "clojure.core" "__sqcat")) (_a$3660 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "<"))) (_a$3661 (jolt-invoke (var-deref "clojure.core" "__sq1") i)) (_a$3662 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "n__19__auto")))) (jolt-invoke _a$3659 _a$3660 _a$3661 _a$3662)))) (_a$3672 body) (_a$3673 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3666 (var-deref "clojure.core" "__sqcat")) (_a$3667 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "recur"))) (_a$3668 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3663 (var-deref "clojure.core" "__sqcat")) (_a$3664 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "inc"))) (_a$3665 (jolt-invoke (var-deref "clojure.core" "__sq1") i))) (jolt-invoke _a$3663 _a$3664 _a$3665))))) (jolt-invoke _a$3666 _a$3667 _a$3668))))) (jolt-invoke _a$3669 _a$3670 _a$3671 _a$3672 _a$3673))))) (jolt-invoke _a$3674 _a$3675 _a$3676 _a$3677))))) (jolt-invoke _a$3678 _a$3679 _a$3680 _a$3681))))))
(mark-macro! "clojure.core" "dotimes"))
(guard (e (#t #f))
(def-var! "clojure.core" "when-first"
(lambda (bindings . body) (let fnrec3682 ((bindings bindings) (body (list->cseq body))) (let* ((x (jolt-invoke bindings 0)) (coll (jolt-invoke bindings 1))) (let* ((_a$3689 (var-deref "clojure.core" "__sqcat")) (_a$3690 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "when-let"))) (_a$3691 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3686 (var-deref "clojure.core" "__sqvec")) (_a$3687 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$3688 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3683 (var-deref "clojure.core" "__sqcat")) (_a$3684 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "first"))) (_a$3685 (jolt-invoke (var-deref "clojure.core" "__sq1") coll))) (jolt-invoke _a$3683 _a$3684 _a$3685))))) (jolt-invoke _a$3686 _a$3687 _a$3688)))) (_a$3692 body)) (jolt-invoke _a$3689 _a$3690 _a$3691 _a$3692))))))
(mark-macro! "clojure.core" "when-first"))
(guard (e (#t #f))
(def-var! "clojure.core" "doto"
(lambda (x . forms) (let fnrec3693 ((x x) (forms (list->cseq forms))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (steps (jolt-map (lambda (f) (let fnrec3694 ((f f)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") f)) (let* ((_a$3695 jolt-list) (_a$3696 (jolt-first f)) (_a$3697 g) (_a$3698 (jolt-rest f))) (jolt-apply _a$3695 _a$3696 _a$3697 _a$3698)) (jolt-list f g)))) forms))) (let* ((_a$3702 (var-deref "clojure.core" "__sqcat")) (_a$3703 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3704 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3699 (var-deref "clojure.core" "__sqvec")) (_a$3700 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3701 (jolt-invoke (var-deref "clojure.core" "__sq1") x))) (jolt-invoke _a$3699 _a$3700 _a$3701)))) (_a$3705 steps) (_a$3706 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$3702 _a$3703 _a$3704 _a$3705 _a$3706))))))
(mark-macro! "clojure.core" "doto"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "thread-binds" (letrec ((thread-binds (lambda (g steps) (let fnrec3707 ((g g) (steps steps)) (let* ((_a$3709 (lambda (acc s) (let fnrec3708 ((acc acc) (s s)) (jolt-conj (jolt-conj acc g) s)))) (_a$3710 (jolt-vector)) (_a$3711 (jolt-invoke (var-deref "clojure.core" "butlast") steps))) (jolt-reduce _a$3709 _a$3710 _a$3711)))))) thread-binds) (let* ((_o$3712 (keyword #f "private")) (_o$3713 #t)) (jolt-hash-map _o$3712 _o$3713))))
(guard (e (#t #f))
(def-var! "clojure.core" "as->"
(lambda (expr name . forms) (let fnrec3714 ((expr expr) (name name) (forms (list->cseq forms))) (let* ((pairs (let* ((_a$3716 (lambda (acc f) (let fnrec3715 ((acc acc) (f f)) (jolt-conj (jolt-conj acc name) f)))) (_a$3717 (jolt-vector)) (_a$3718 (jolt-invoke (var-deref "clojure.core" "butlast") forms))) (jolt-reduce _a$3716 _a$3717 _a$3718)))) (let* ((_a$3723 (var-deref "clojure.core" "__sqcat")) (_a$3724 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3725 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3719 (var-deref "clojure.core" "__sqvec")) (_a$3720 (jolt-invoke (var-deref "clojure.core" "__sq1") name)) (_a$3721 (jolt-invoke (var-deref "clojure.core" "__sq1") expr)) (_a$3722 pairs)) (jolt-invoke _a$3719 _a$3720 _a$3721 _a$3722)))) (_a$3726 (jolt-invoke (var-deref "clojure.core" "__sq1") (if (jolt-empty? forms) name (jolt-last forms))))) (jolt-invoke _a$3723 _a$3724 _a$3725 _a$3726))))))
(mark-macro! "clojure.core" "as->"))
(guard (e (#t #f))
(def-var! "clojure.core" "some->"
(lambda (expr . forms) (let fnrec3727 ((expr expr) (forms (list->cseq forms))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (steps (jolt-map (lambda (f) (let fnrec3728 ((f f)) (let* ((_a$3736 (var-deref "clojure.core" "__sqcat")) (_a$3737 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3738 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3729 (var-deref "clojure.core" "__sqcat")) (_a$3730 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "nil?"))) (_a$3731 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$3729 _a$3730 _a$3731)))) (_a$3739 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil)) (_a$3740 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3732 (var-deref "clojure.core" "__sqcat")) (_a$3733 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "->"))) (_a$3734 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3735 (jolt-invoke (var-deref "clojure.core" "__sq1") f))) (jolt-invoke _a$3732 _a$3733 _a$3734 _a$3735))))) (jolt-invoke _a$3736 _a$3737 _a$3738 _a$3739 _a$3740)))) forms))) (let* ((_a$3745 (var-deref "clojure.core" "__sqcat")) (_a$3746 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3747 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3741 (var-deref "clojure.core" "__sqvec")) (_a$3742 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3743 (jolt-invoke (var-deref "clojure.core" "__sq1") expr)) (_a$3744 (jolt-invoke (var-deref "clojure.core" "thread-binds") g steps))) (jolt-invoke _a$3741 _a$3742 _a$3743 _a$3744)))) (_a$3748 (jolt-invoke (var-deref "clojure.core" "__sq1") (if (jolt-empty? steps) g (jolt-last steps))))) (jolt-invoke _a$3745 _a$3746 _a$3747 _a$3748))))))
(mark-macro! "clojure.core" "some->"))
(guard (e (#t #f))
(def-var! "clojure.core" "some->>"
(lambda (expr . forms) (let fnrec3749 ((expr expr) (forms (list->cseq forms))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (steps (jolt-map (lambda (f) (let fnrec3750 ((f f)) (let* ((_a$3758 (var-deref "clojure.core" "__sqcat")) (_a$3759 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3760 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3751 (var-deref "clojure.core" "__sqcat")) (_a$3752 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "nil?"))) (_a$3753 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$3751 _a$3752 _a$3753)))) (_a$3761 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil)) (_a$3762 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3754 (var-deref "clojure.core" "__sqcat")) (_a$3755 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "->>"))) (_a$3756 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3757 (jolt-invoke (var-deref "clojure.core" "__sq1") f))) (jolt-invoke _a$3754 _a$3755 _a$3756 _a$3757))))) (jolt-invoke _a$3758 _a$3759 _a$3760 _a$3761 _a$3762)))) forms))) (let* ((_a$3767 (var-deref "clojure.core" "__sqcat")) (_a$3768 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3769 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3763 (var-deref "clojure.core" "__sqvec")) (_a$3764 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3765 (jolt-invoke (var-deref "clojure.core" "__sq1") expr)) (_a$3766 (jolt-invoke (var-deref "clojure.core" "thread-binds") g steps))) (jolt-invoke _a$3763 _a$3764 _a$3765 _a$3766)))) (_a$3770 (jolt-invoke (var-deref "clojure.core" "__sq1") (if (jolt-empty? steps) g (jolt-last steps))))) (jolt-invoke _a$3767 _a$3768 _a$3769 _a$3770))))))
(mark-macro! "clojure.core" "some->>"))
(guard (e (#t #f))
(def-var! "clojure.core" "cond->>"
(lambda (expr . clauses) (let fnrec3771 ((expr expr) (clauses (list->cseq clauses))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (steps (let* ((_a$3782 (lambda (pair) (let fnrec3772 ((pair pair)) (let* ((_a$3777 (var-deref "clojure.core" "__sqcat")) (_a$3778 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3779 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first pair))) (_a$3780 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3773 (var-deref "clojure.core" "__sqcat")) (_a$3774 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "->>"))) (_a$3775 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3776 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "second") pair)))) (jolt-invoke _a$3773 _a$3774 _a$3775 _a$3776)))) (_a$3781 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$3777 _a$3778 _a$3779 _a$3780 _a$3781))))) (_a$3783 (jolt-invoke (var-deref "clojure.core" "partition") 2 clauses))) (jolt-map _a$3782 _a$3783)))) (let* ((_a$3788 (var-deref "clojure.core" "__sqcat")) (_a$3789 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3790 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3784 (var-deref "clojure.core" "__sqvec")) (_a$3785 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$3786 (jolt-invoke (var-deref "clojure.core" "__sq1") expr)) (_a$3787 (jolt-invoke (var-deref "clojure.core" "thread-binds") g steps))) (jolt-invoke _a$3784 _a$3785 _a$3786 _a$3787)))) (_a$3791 (jolt-invoke (var-deref "clojure.core" "__sq1") (if (jolt-empty? steps) g (jolt-last steps))))) (jolt-invoke _a$3788 _a$3789 _a$3790 _a$3791))))))
(mark-macro! "clojure.core" "cond->>"))
(guard (e (#t #f))
(def-var! "clojure.core" "assert"
(lambda (x . G__128) (let fnrec3792 ((x x) (G__128 (list->cseq G__128))) (let* ((G__129 G__128) (message (jolt-nth G__129 0 jolt-nil))) (let* ((msg (if (jolt-truthy? message) (jolt-invoke (var-deref "clojure.core" "str") "Assert failed: " message "\n" (jolt-invoke (var-deref "clojure.core" "pr-str") x)) (jolt-invoke (var-deref "clojure.core" "str") "Assert failed: " (jolt-invoke (var-deref "clojure.core" "pr-str") x))))) (let* ((_a$3800 (var-deref "clojure.core" "__sqcat")) (_a$3801 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "when-not"))) (_a$3802 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$3803 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3797 (var-deref "clojure.core" "__sqcat")) (_a$3798 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "throw"))) (_a$3799 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3793 (var-deref "clojure.core" "__sqcat")) (_a$3794 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "new"))) (_a$3795 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "AssertionError"))) (_a$3796 (jolt-invoke (var-deref "clojure.core" "__sq1") msg))) (jolt-invoke _a$3793 _a$3794 _a$3795 _a$3796))))) (jolt-invoke _a$3797 _a$3798 _a$3799))))) (jolt-invoke _a$3800 _a$3801 _a$3802 _a$3803)))))))
(mark-macro! "clojure.core" "assert"))
(guard (e (#t #f))
(def-var! "clojure.core" "pvalues"
(lambda exprs (let fnrec3804 ((exprs (list->cseq exprs))) (let* ((_a$3810 (var-deref "clojure.core" "__sqcat")) (_a$3811 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "pcalls"))) (_a$3812 (jolt-map (lambda (e) (let fnrec3805 ((e e)) (let* ((_a$3806 (var-deref "clojure.core" "__sqcat")) (_a$3807 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$3808 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3809 (jolt-invoke (var-deref "clojure.core" "__sq1") e))) (jolt-invoke _a$3806 _a$3807 _a$3808 _a$3809)))) exprs))) (jolt-invoke _a$3810 _a$3811 _a$3812)))))
(mark-macro! "clojure.core" "pvalues"))
(guard (e (#t #f))
(def-var! "clojure.core" "delay"
(lambda body (let fnrec3813 ((body (list->cseq body))) (let* ((_a$3818 (var-deref "clojure.core" "__sqcat")) (_a$3819 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "make-delay"))) (_a$3820 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3814 (var-deref "clojure.core" "__sqcat")) (_a$3815 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$3816 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3817 body)) (jolt-invoke _a$3814 _a$3815 _a$3816 _a$3817))))) (jolt-invoke _a$3818 _a$3819 _a$3820)))))
(mark-macro! "clojure.core" "delay"))
(guard (e (#t #f))
(def-var! "clojure.core" "future"
(lambda body (let fnrec3821 ((body (list->cseq body))) (let* ((_a$3826 (var-deref "clojure.core" "__sqcat")) (_a$3827 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "future-call"))) (_a$3828 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3822 (var-deref "clojure.core" "__sqcat")) (_a$3823 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$3824 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$3825 body)) (jolt-invoke _a$3822 _a$3823 _a$3824 _a$3825))))) (jolt-invoke _a$3826 _a$3827 _a$3828)))))
(mark-macro! "clojure.core" "future"))
(guard (e (#t #f))
(def-var! "clojure.core" "binding"
(lambda (bindings . body) (let fnrec3829 ((bindings bindings) (body (list->cseq body))) (let* ((pairs (let* ((_a$3836 (lambda (acc p) (let fnrec3830 ((acc acc) (p p)) (let* ((_a$3834 (jolt-conj acc (let* ((_a$3831 (var-deref "clojure.core" "__sqcat")) (_a$3832 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "var"))) (_a$3833 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first p)))) (jolt-invoke _a$3831 _a$3832 _a$3833)))) (_a$3835 (jolt-invoke (var-deref "clojure.core" "second") p))) (jolt-conj _a$3834 _a$3835))))) (_a$3837 (jolt-vector)) (_a$3838 (jolt-invoke (var-deref "clojure.core" "partition") 2 bindings))) (jolt-reduce _a$3836 _a$3837 _a$3838)))) (let* ((_a$3852 (var-deref "clojure.core" "__sqcat")) (_a$3853 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$3854 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3839 (var-deref "clojure.core" "__sqvec")) (_a$3840 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "frame__20__auto"))) (_a$3841 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "array-map")) pairs)))) (jolt-invoke _a$3839 _a$3840 _a$3841)))) (_a$3855 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3842 (var-deref "clojure.core" "__sqcat")) (_a$3843 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "push-thread-bindings"))) (_a$3844 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "frame__20__auto")))) (jolt-invoke _a$3842 _a$3843 _a$3844)))) (_a$3856 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3848 (var-deref "clojure.core" "__sqcat")) (_a$3849 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "try"))) (_a$3850 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do")) body))) (_a$3851 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3845 (var-deref "clojure.core" "__sqcat")) (_a$3846 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "finally"))) (_a$3847 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "pop-thread-bindings")))))) (jolt-invoke _a$3845 _a$3846 _a$3847))))) (jolt-invoke _a$3848 _a$3849 _a$3850 _a$3851))))) (jolt-invoke _a$3852 _a$3853 _a$3854 _a$3855 _a$3856))))))
(mark-macro! "clojure.core" "binding"))
(guard (e (#t #f))
(def-var! "clojure.core" "condp"
(lambda (pred expr . clauses) (let fnrec3857 ((pred pred) (expr expr) (clauses (list->cseq clauses))) (let* ((gp (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (ge (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (emit (letrec ((emit (lambda (args) (let fnrec3858 ((args args)) (let* ((n (if (jolt= (keyword #f ">>") (jolt-invoke (var-deref "clojure.core" "second") args)) 3 2)) (clause (jolt-take n args)) (more (jolt-drop n args)) (cn (jolt-count clause))) (if (jolt= 0 cn) (let* ((_a$3867 (var-deref "clojure.core" "__sqcat")) (_a$3868 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "throw"))) (_a$3869 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3863 (var-deref "clojure.core" "__sqcat")) (_a$3864 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "ex-info"))) (_a$3865 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3859 (var-deref "clojure.core" "__sqcat")) (_a$3860 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "str"))) (_a$3861 (jolt-invoke (var-deref "clojure.core" "__sq1") "No matching clause: ")) (_a$3862 (jolt-invoke (var-deref "clojure.core" "__sq1") ge))) (jolt-invoke _a$3859 _a$3860 _a$3861 _a$3862)))) (_a$3866 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap"))))) (jolt-invoke _a$3863 _a$3864 _a$3865 _a$3866))))) (jolt-invoke _a$3867 _a$3868 _a$3869)) (if (jolt= 1 cn) (jolt-first clause) (if (jolt= 2 cn) (let* ((_a$3874 (var-deref "clojure.core" "__sqcat")) (_a$3875 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$3876 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3870 (var-deref "clojure.core" "__sqcat")) (_a$3871 (jolt-invoke (var-deref "clojure.core" "__sq1") gp)) (_a$3872 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first clause))) (_a$3873 (jolt-invoke (var-deref "clojure.core" "__sq1") ge))) (jolt-invoke _a$3870 _a$3871 _a$3872 _a$3873)))) (_a$3877 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "second") clause))) (_a$3878 (jolt-invoke (var-deref "clojure.core" "__sq1") (emit more)))) (jolt-invoke _a$3874 _a$3875 _a$3876 _a$3877 _a$3878)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$3889 (var-deref "clojure.core" "__sqcat")) (_a$3890 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "if-let"))) (_a$3891 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3883 (var-deref "clojure.core" "__sqvec")) (_a$3884 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "p__21__auto"))) (_a$3885 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3879 (var-deref "clojure.core" "__sqcat")) (_a$3880 (jolt-invoke (var-deref "clojure.core" "__sq1") gp)) (_a$3881 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first clause))) (_a$3882 (jolt-invoke (var-deref "clojure.core" "__sq1") ge))) (jolt-invoke _a$3879 _a$3880 _a$3881 _a$3882))))) (jolt-invoke _a$3883 _a$3884 _a$3885)))) (_a$3892 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3886 (var-deref "clojure.core" "__sqcat")) (_a$3887 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth clause 2))) (_a$3888 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "p__21__auto")))) (jolt-invoke _a$3886 _a$3887 _a$3888)))) (_a$3893 (jolt-invoke (var-deref "clojure.core" "__sq1") (emit more)))) (jolt-invoke _a$3889 _a$3890 _a$3891 _a$3892 _a$3893)) jolt-nil))))))))) emit))) (let* ((_a$3899 (var-deref "clojure.core" "__sqcat")) (_a$3900 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$3901 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3894 (var-deref "clojure.core" "__sqvec")) (_a$3895 (jolt-invoke (var-deref "clojure.core" "__sq1") gp)) (_a$3896 (jolt-invoke (var-deref "clojure.core" "__sq1") pred)) (_a$3897 (jolt-invoke (var-deref "clojure.core" "__sq1") ge)) (_a$3898 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$3894 _a$3895 _a$3896 _a$3897 _a$3898)))) (_a$3902 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke emit clauses)))) (jolt-invoke _a$3899 _a$3900 _a$3901 _a$3902))))))
(mark-macro! "clojure.core" "condp"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "group-by-head" (letrec ((group-by-head (lambda (items) (let fnrec3903 ((items items)) (let* ((_a$3907 (lambda (acc x) (let fnrec3904 ((acc acc) (x x)) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-nil? x)))) (jolt-conj acc (jolt-vector x)) (let* ((_a$3905 (jolt-pop acc)) (_a$3906 (jolt-conj (jolt-peek acc) x))) (jolt-conj _a$3905 _a$3906)))))) (_a$3908 (jolt-vector)) (_a$3909 items)) (jolt-reduce _a$3907 _a$3908 _a$3909)))))) group-by-head) (let* ((_o$3910 (keyword #f "private")) (_o$3911 #t)) (jolt-hash-map _o$3910 _o$3911))))
(guard (e (#t #f))
(def-var! "clojure.core" "defstruct"
(lambda (name . keys) (let fnrec3912 ((name name) (keys (list->cseq keys))) (let* ((_a$3913 (var-deref "clojure.core" "__sqcat")) (_a$3914 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$3915 (jolt-invoke (var-deref "clojure.core" "__sq1") name)) (_a$3916 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "create-struct")) keys)))) (jolt-invoke _a$3913 _a$3914 _a$3915 _a$3916)))))
(mark-macro! "clojure.core" "defstruct"))
(guard (e (#t #f))
(def-var! "clojure.core" "deftype"
(lambda (tname fields . body) (let fnrec3917 ((tname tname) (fields fields) (body (list->cseq body))) (let* ((unwrap (lambda (x) (let fnrec3918 ((x x)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "seq?") x))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first x)))) (if (jolt-truthy? and__25__auto) (jolt= "with-meta" (jolt-invoke (var-deref "clojure.core" "name") (jolt-first x))) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "second") x) x)))) (tname (jolt-invoke unwrap tname)) (fields (jolt-map unwrap fields)) (arrow (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "->" (jolt-invoke (var-deref "clojure.core" "name") tname)))) (field-kws (jolt-map (lambda (f) (let fnrec3919 ((f f)) (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") f)))) fields)) (field-tags (jolt-map (lambda (f) (let fnrec3920 ((f f)) (let* ((mt (jolt-invoke (var-deref "clojure.core" "meta") f))) (if (jolt-truthy? (let* ((and__25__auto mt)) (if (jolt-truthy? and__25__auto) (jolt-get mt (keyword #f "tag")) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "name") (jolt-get mt (keyword #f "tag"))) (if (jolt-truthy? (let* ((and__25__auto mt)) (if (jolt-truthy? and__25__auto) (jolt-get mt (keyword #f "num")) and__25__auto))) "num" (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))) fields)) (field-muts (jolt-map (lambda (f) (let fnrec3921 ((f f)) (let* ((mt (jolt-invoke (var-deref "clojure.core" "meta") f))) (if (jolt-truthy? (let* ((and__25__auto mt)) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-get mt (keyword #f "unsynchronized-mutable")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get mt (keyword #f "volatile-mutable")))) and__25__auto))) #t #f)))) fields)) (mutable-syms (jolt-map jolt-first (jolt-filter (var-deref "clojure.core" "second") (jolt-map jolt-vector fields field-muts)))) (mutable? (lambda (s) (let fnrec3922 ((s s)) (jolt-invoke (var-deref "clojure.core" "boolean") (jolt-invoke (var-deref "clojure.core" "some") (lambda (m) (let fnrec3923 ((m m)) (jolt= m s))) mutable-syms))))) (rewrite-body (letrec ((rw (lambda (inst shadowed form) (let fnrec3924 ((inst inst) (shadowed shadowed) (form form)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "seq?") form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-seq form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first form)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "set!" (jolt-invoke (var-deref "clojure.core" "name") (jolt-first form))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-invoke (var-deref "clojure.core" "second") form)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke mutable? (jolt-invoke (var-deref "clojure.core" "second") form)))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-contains? shadowed (jolt-invoke (var-deref "clojure.core" "second") form))) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((_a$3925 (jolt-symbol #f "set!")) (_a$3926 (jolt-list (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") ".-" (jolt-invoke (var-deref "clojure.core" "name") (jolt-invoke (var-deref "clojure.core" "second") form)))) inst)) (_a$3927 (rw inst shadowed (jolt-nth form 2)))) (jolt-list _a$3925 _a$3926 _a$3927)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "seq?") form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-seq form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first form)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (let* ((_a$3936 (let* ((_o$3928 "let") (_o$3929 "let*") (_o$3930 "loop") (_o$3931 "binding") (_o$3932 "when-let") (_o$3933 "if-let") (_o$3934 "when-some") (_o$3935 "if-some")) (jolt-hash-set _o$3928 _o$3929 _o$3930 _o$3931 _o$3932 _o$3933 _o$3934 _o$3935))) (_a$3937 (jolt-invoke (var-deref "clojure.core" "name") (jolt-first form)))) (jolt-contains? _a$3936 _a$3937)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "vector?") (jolt-invoke (var-deref "clojure.core" "second") form)) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((bv (jolt-invoke (var-deref "clojure.core" "second") form)) (n (jolt-count bv)) (bv_PRIME_ (let* ((i 0) (acc (jolt-vector))) (let loop3938 ((i i) (acc acc)) (if (jolt-n< i n) (let* ((_a$3939 (jolt-n+ i 2)) (_a$3940 (let* ((a (jolt-conj acc (jolt-nth bv i)))) (if (jolt-n< (jolt-inc i) n) (jolt-conj a (rw inst shadowed (jolt-nth bv (jolt-inc i)))) a)))) (loop3938 _a$3939 _a$3940)) acc)))) (sh (let* ((i 0) (acc shadowed)) (let loop3941 ((i i) (acc acc)) (if (jolt-n< i n) (let* ((_a$3942 (jolt-n+ i 2)) (_a$3943 (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-nth bv i))) (jolt-conj acc (jolt-nth bv i)) acc))) (loop3941 _a$3942 _a$3943)) acc))))) (let* ((_a$3947 (jolt-first form)) (_a$3948 (jolt-cons bv_PRIME_ (let* ((_a$3945 (lambda (x) (let fnrec3944 ((x x)) (rw inst sh x)))) (_a$3946 (jolt-drop 2 form))) (jolt-map _a$3945 _a$3946))))) (jolt-cons _a$3947 _a$3948))) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "seq?") form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-seq form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first form)))) (if (jolt-truthy? and__25__auto) (let* ((_a$3951 (let* ((_o$3949 "fn") (_o$3950 "fn*")) (jolt-hash-set _o$3949 _o$3950))) (_a$3952 (jolt-invoke (var-deref "clojure.core" "name") (jolt-first form)))) (jolt-contains? _a$3951 _a$3952)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((head (jolt-first form)) (tail (jolt-rest form)) (named? (let* ((and__25__auto (jolt-seq tail))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first tail)) and__25__auto))) (fname (if (jolt-truthy? named?) (jolt-first tail) jolt-nil)) (arts (if (jolt-truthy? named?) (jolt-rest tail) tail)) (psyms (lambda (pv) (let fnrec3953 ((pv pv)) (let* ((p (jolt-seq pv)) (acc shadowed)) (let loop3954 ((p p) (acc acc)) (if (jolt-truthy? p) (let* ((_a$3955 (jolt-next p)) (_a$3956 (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") (jolt-first p)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "not=") (jolt-invoke (var-deref "clojure.core" "name") (jolt-first p)) "&") and__25__auto))) (jolt-conj acc (jolt-first p)) acc))) (loop3954 _a$3955 _a$3956)) acc)))))) (do-art (lambda (ar) (let fnrec3957 ((ar ar)) (let* ((_a$3961 (jolt-first ar)) (_a$3962 (let* ((_a$3959 (lambda (x) (let fnrec3958 ((x x)) (rw inst (jolt-invoke psyms (jolt-first ar)) x)))) (_a$3960 (jolt-rest ar))) (jolt-map _a$3959 _a$3960)))) (jolt-cons _a$3961 _a$3962))))) (arts_PRIME_ (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") (jolt-first arts))) (jolt-invoke do-art arts) (jolt-map do-art arts)))) (let* ((_a$3963 (jolt-list head)) (_a$3964 (if (jolt-truthy? named?) (jolt-list fname) jolt-nil)) (_a$3965 arts_PRIME_)) (jolt-concat _a$3963 _a$3964 _a$3965))) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "symbol?") form))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke mutable? form))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-contains? shadowed form)) and__25__auto)) and__25__auto))) (jolt-list (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") ".-" (jolt-invoke (var-deref "clojure.core" "name") form))) inst) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (jolt-map (lambda (x) (let fnrec3966 ((x x)) (rw inst shadowed x))) form) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") form)) (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (x) (let fnrec3967 ((x x)) (rw inst shadowed x))) form) (if (jolt-truthy? (keyword #f "else")) form jolt-nil))))))))))) rw)) (mk-clause (lambda (spec) (let fnrec3968 ((spec spec)) (let* ((argv (let* ((_a$3970 (var-deref "clojure.core" "mapv")) (_a$3971 (lambda (p) (let fnrec3969 ((p p)) (if (jolt= p (jolt-symbol #f "_")) (jolt-invoke (var-deref "clojure.core" "gensym") "_p") p)))) (_a$3972 (jolt-nth spec 1))) (jolt-invoke _a$3970 _a$3971 _a$3972))) (inst (jolt-first argv)) (pnames (jolt-invoke (var-deref "clojure.core" "set") (jolt-map (var-deref "clojure.core" "name") argv))) (binds (jolt-invoke (var-deref "clojure.core" "vec") (let* ((_a$3981 (var-deref "clojure.core" "mapcat")) (_a$3982 (lambda (f) (let fnrec3973 ((f f)) (let* ((_o$3978 f) (_o$3979 (let* ((_a$3974 (var-deref "clojure.core" "__sqcat")) (_a$3975 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$3976 (jolt-invoke (var-deref "clojure.core" "__sq1") inst)) (_a$3977 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") f))))) (jolt-invoke _a$3974 _a$3975 _a$3976 _a$3977)))) (jolt-vector _o$3978 _o$3979))))) (_a$3983 (jolt-filter (lambda (f) (let fnrec3980 ((f f)) (let* ((and__25__auto (jolt-not (jolt-invoke mutable? f)))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-contains? pnames (jolt-invoke (var-deref "clojure.core" "name") f))) and__25__auto)))) fields))) (jolt-invoke _a$3981 _a$3982 _a$3983)))) (mbody (let* ((_a$3985 (lambda (bf) (let fnrec3984 ((bf bf)) (jolt-invoke rewrite-body inst (jolt-invoke (var-deref "clojure.core" "set") argv) bf)))) (_a$3986 (jolt-drop 2 spec))) (jolt-map _a$3985 _a$3986)))) (jolt-list argv (jolt-invoke (var-deref "clojure.core" "list*") (jolt-symbol #f "let") binds mbody)))))) (groups (jolt-invoke (var-deref "clojure.core" "group-by-head") body)) (by-name (let* ((_a$3990 (lambda (m spec) (let fnrec3987 ((m m) (spec spec)) (let* ((nm (jolt-invoke (var-deref "clojure.core" "name") (jolt-first spec)))) (jolt-assoc m nm (let* ((_a$3988 (jolt-get m nm (jolt-vector))) (_a$3989 (jolt-invoke mk-clause spec))) (jolt-conj _a$3988 _a$3989))))))) (_a$3991 (jolt-hash-map)) (_a$3992 (jolt-invoke (var-deref "clojure.core" "mapcat") jolt-rest groups))) (jolt-reduce _a$3990 _a$3991 _a$3992)))) (let* ((_a$4030 (var-deref "clojure.core" "__sqcat")) (_a$4031 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4032 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4002 (var-deref "clojure.core" "__sqcat")) (_a$4003 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4004 (jolt-invoke (var-deref "clojure.core" "__sq1") tname)) (_a$4005 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3996 (var-deref "clojure.core" "__sqcat")) (_a$3997 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "make-deftype-ctor"))) (_a$3998 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$3993 (var-deref "clojure.core" "__sqcat")) (_a$3994 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$3995 (jolt-invoke (var-deref "clojure.core" "__sq1") tname))) (jolt-invoke _a$3993 _a$3994 _a$3995)))) (_a$3999 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") field-kws))) (_a$4000 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") field-tags))) (_a$4001 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") field-muts)))) (jolt-invoke _a$3996 _a$3997 _a$3998 _a$3999 _a$4000 _a$4001))))) (jolt-invoke _a$4002 _a$4003 _a$4004 _a$4005)))) (_a$4033 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4006 (var-deref "clojure.core" "__sqcat")) (_a$4007 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4008 (jolt-invoke (var-deref "clojure.core" "__sq1") arrow)) (_a$4009 (jolt-invoke (var-deref "clojure.core" "__sq1") tname))) (jolt-invoke _a$4006 _a$4007 _a$4008 _a$4009)))) (_a$4034 (jolt-invoke (var-deref "clojure.core" "mapcat") (lambda (g) (let fnrec4010 ((g g)) (let* ((proto (jolt-first g)) (names (jolt-invoke (var-deref "clojure.core" "distinct") (let* ((_a$4012 (lambda (spec) (let fnrec4011 ((spec spec)) (jolt-invoke (var-deref "clojure.core" "name") (jolt-first spec))))) (_a$4013 (jolt-rest g))) (jolt-map _a$4012 _a$4013))))) (let* ((_a$4028 (let* ((_a$4014 (var-deref "clojure.core" "__sqcat")) (_a$4015 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-inline-protocol!"))) (_a$4016 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") tname))) (_a$4017 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") proto)))) (jolt-invoke _a$4014 _a$4015 _a$4016 _a$4017))) (_a$4029 (jolt-map (lambda (nm) (let fnrec4018 ((nm nm)) (let* ((_a$4022 (var-deref "clojure.core" "__sqcat")) (_a$4023 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-inline-method"))) (_a$4024 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") tname))) (_a$4025 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") proto))) (_a$4026 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4027 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4019 (var-deref "clojure.core" "__sqcat")) (_a$4020 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4021 (jolt-get by-name nm))) (jolt-invoke _a$4019 _a$4020 _a$4021))))) (jolt-invoke _a$4022 _a$4023 _a$4024 _a$4025 _a$4026 _a$4027)))) names))) (jolt-cons _a$4028 _a$4029))))) groups)) (_a$4035 (jolt-invoke (var-deref "clojure.core" "__sq1") tname))) (jolt-invoke _a$4030 _a$4031 _a$4032 _a$4033 _a$4034 _a$4035))))))
(mark-macro! "clojure.core" "deftype"))
(guard (e (#t #f))
(def-var! "clojure.core" "defprotocol"
(lambda (pname . sigs) (let fnrec4036 ((pname pname) (sigs (list->cseq sigs))) (let* ((sigs (let* ((s sigs)) (let loop4037 ((s s)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") (jolt-first s))) (loop4037 (jolt-rest s)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-first s))) (loop4037 (jolt-rest (jolt-rest s))) (if (jolt-truthy? (keyword #f "else")) s jolt-nil)))))) (methods (let* ((_a$4044 (lambda (m sig) (let fnrec4038 ((m m) (sig sig)) (let* ((_a$4041 m) (_a$4042 (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") (jolt-first sig)))) (_a$4043 (let* ((_o$4039 (keyword #f "name")) (_o$4040 (jolt-invoke (var-deref "clojure.core" "name") (jolt-first sig)))) (jolt-hash-map _o$4039 _o$4040)))) (jolt-assoc _a$4041 _a$4042 _a$4043))))) (_a$4045 (jolt-hash-map)) (_a$4046 sigs)) (jolt-reduce _a$4044 _a$4045 _a$4046)))) (let* ((_a$4094 (var-deref "clojure.core" "__sqcat")) (_a$4095 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4096 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4051 (var-deref "clojure.core" "__sqcat")) (_a$4052 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4053 (jolt-invoke (var-deref "clojure.core" "__sq1") pname)) (_a$4054 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4047 (var-deref "clojure.core" "__sqcat")) (_a$4048 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "make-protocol"))) (_a$4049 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") pname))) (_a$4050 (jolt-invoke (var-deref "clojure.core" "__sq1") methods))) (jolt-invoke _a$4047 _a$4048 _a$4049 _a$4050))))) (jolt-invoke _a$4051 _a$4052 _a$4053 _a$4054)))) (_a$4097 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4056 (var-deref "clojure.core" "__sqcat")) (_a$4057 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-protocol-methods!"))) (_a$4058 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") pname))) (_a$4059 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-map (lambda (s) (let fnrec4055 ((s s)) (jolt-invoke (var-deref "clojure.core" "name") (jolt-first s)))) sigs))))) (jolt-invoke _a$4056 _a$4057 _a$4058 _a$4059)))) (_a$4098 (jolt-map (lambda (sig) (let fnrec4060 ((sig sig)) (let* ((pn (jolt-invoke (var-deref "clojure.core" "name") pname)) (mn (jolt-invoke (var-deref "clojure.core" "name") (jolt-first sig))) (arglists (jolt-filter (var-deref "clojure.core" "vector?") (jolt-rest sig))) (clause (lambda (argv) (let fnrec4061 ((argv argv)) (let* ((ps (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (_) (let fnrec4062 ((_ _)) (jolt-invoke (var-deref "clojure.core" "fresh-sym")))) argv)) (n (jolt-count ps)) (obj (jolt-first ps))) (if (jolt= n 1) (jolt-list ps (jolt-list (jolt-symbol #f "protocol-dispatch1") pn mn obj)) (if (jolt= n 2) (jolt-list ps (jolt-list (jolt-symbol #f "protocol-dispatch2") pn mn obj (jolt-nth ps 1))) (if (jolt= n 3) (jolt-list ps (let* ((_a$4063 (jolt-symbol #f "protocol-dispatch3")) (_a$4064 pn) (_a$4065 mn) (_a$4066 obj) (_a$4067 (jolt-nth ps 1)) (_a$4068 (jolt-nth ps 2))) (jolt-list _a$4063 _a$4064 _a$4065 _a$4066 _a$4067 _a$4068))) (if (jolt-truthy? (keyword #f "else")) (jolt-list ps (jolt-list (jolt-symbol #f "protocol-dispatch") pn mn obj (jolt-invoke (var-deref "clojure.core" "vec") (jolt-rest ps)))) jolt-nil))))))))) (if (jolt-truthy? (jolt-seq arglists)) (let* ((_a$4072 (var-deref "clojure.core" "__sqcat")) (_a$4073 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4074 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first sig))) (_a$4075 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4069 (var-deref "clojure.core" "__sqcat")) (_a$4070 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4071 (jolt-map clause arglists))) (jolt-invoke _a$4069 _a$4070 _a$4071))))) (jolt-invoke _a$4072 _a$4073 _a$4074 _a$4075)) (let* ((_a$4090 (var-deref "clojure.core" "__sqcat")) (_a$4091 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4092 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first sig))) (_a$4093 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4086 (var-deref "clojure.core" "__sqcat")) (_a$4087 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4088 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4076 (var-deref "clojure.core" "__sqvec")) (_a$4077 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "this__23__auto"))) (_a$4078 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "&"))) (_a$4079 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "rest__22__auto")))) (jolt-invoke _a$4076 _a$4077 _a$4078 _a$4079)))) (_a$4089 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4080 (var-deref "clojure.core" "__sqcat")) (_a$4081 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "protocol-dispatch"))) (_a$4082 (jolt-invoke (var-deref "clojure.core" "__sq1") pn)) (_a$4083 (jolt-invoke (var-deref "clojure.core" "__sq1") mn)) (_a$4084 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "this__23__auto"))) (_a$4085 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "rest__22__auto")))) (jolt-invoke _a$4080 _a$4081 _a$4082 _a$4083 _a$4084 _a$4085))))) (jolt-invoke _a$4086 _a$4087 _a$4088 _a$4089))))) (jolt-invoke _a$4090 _a$4091 _a$4092 _a$4093)))))) sigs))) (jolt-invoke _a$4094 _a$4095 _a$4096 _a$4097 _a$4098))))))
(mark-macro! "clojure.core" "defprotocol"))
(guard (e (#t #f))
(def-var! "clojure.core" ".."
(lambda (x form . more) (let fnrec4099 ((x x) (form form) (more (list->cseq more))) (let* ((step (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (let* ((_a$4100 (var-deref "clojure.core" "__sqcat")) (_a$4101 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "."))) (_a$4102 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$4103 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first form))) (_a$4104 (jolt-rest form))) (jolt-invoke _a$4100 _a$4101 _a$4102 _a$4103 _a$4104)) (let* ((_a$4105 (var-deref "clojure.core" "__sqcat")) (_a$4106 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "."))) (_a$4107 (jolt-invoke (var-deref "clojure.core" "__sq1") x)) (_a$4108 (jolt-invoke (var-deref "clojure.core" "__sq1") form))) (jolt-invoke _a$4105 _a$4106 _a$4107 _a$4108))))) (if (jolt-truthy? (jolt-seq more)) (let* ((_a$4109 (var-deref "clojure.core" "__sqcat")) (_a$4110 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" ".."))) (_a$4111 (jolt-invoke (var-deref "clojure.core" "__sq1") step)) (_a$4112 more)) (jolt-invoke _a$4109 _a$4110 _a$4111 _a$4112)) step)))))
(mark-macro! "clojure.core" ".."))
(guard (e (#t #f))
(def-var! "clojure.core" "extends?" (letrec ((extends? (lambda (protocol atype) (let fnrec4113 ((protocol protocol) (atype atype)) (let* ((want (if (jolt-nil? atype) "nil" (jolt-invoke (var-deref "clojure.core" "name") atype))) (suffix? (lambda (long short) (let fnrec4114 ((long long) (short short)) (let* ((d (jolt-invoke (var-deref "clojure.core" "str") "." short))) (let* ((and__25__auto (let* ((_a$4115 (jolt-count long)) (_a$4116 (jolt-count d))) (jolt-n> _a$4115 _a$4116)))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-invoke (var-deref "clojure.core" "subs") long (let* ((_a$4117 (jolt-count long)) (_a$4118 (jolt-count d))) (jolt-n- _a$4117 _a$4118))) d) and__25__auto))))))) (jolt-invoke (var-deref "clojure.core" "boolean") (let* ((_a$4120 (var-deref "clojure.core" "some")) (_a$4121 (lambda (t) (let fnrec4119 ((t t)) (let* ((tn (jolt-invoke (var-deref "clojure.core" "name") t))) (let* ((or__26__auto (jolt= tn want))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke suffix? tn want))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke suffix? want tn))))))))) (_a$4122 (jolt-invoke (var-deref "clojure.core" "extenders") protocol))) (jolt-invoke _a$4120 _a$4121 _a$4122)))))))) extends?)))
(guard (e (#t #f))
(def-var! "clojure.core" "type->name" (letrec ((type->name (lambda (t) (let fnrec4123 ((t t)) (if (jolt-nil? t) "nil" (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") t)) t (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") t)) (jolt-invoke (var-deref "clojure.core" "name") t) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") t)) (jolt-invoke (var-deref "clojure.core" "name") t) (if (jolt-truthy? (keyword #f "else")) (record-method-dispatch t "getName" (jolt-vector)) jolt-nil))))))))) type->name)))
(guard (e (#t #f))
(def-var! "clojure.core" "extend" (letrec ((extend (lambda (atype . proto+mmaps) (let fnrec4124 ((atype atype) (proto+mmaps (list->cseq proto+mmaps))) (let* ((tname (jolt-invoke (var-deref "clojure.core" "type->name") atype))) (let* ((s (jolt-seq proto+mmaps))) (let loop4125 ((s s)) (if (jolt-truthy? s) (begin (let* ((proto (jolt-first s)) (mmap (jolt-invoke (var-deref "clojure.core" "second") s)) (pname (jolt-invoke (var-deref "clojure.core" "name") (jolt-get proto (keyword #f "name"))))) (begin (jolt-count (jolt-map (lambda (G__130) (let fnrec4126 ((G__130 G__130)) (let* ((G__131 G__130) (k (jolt-nth G__131 0 jolt-nil)) (f (jolt-nth G__131 1 jolt-nil))) (begin (jolt-invoke (var-deref "clojure.core" "register-method") tname pname (jolt-invoke (var-deref "clojure.core" "name") k) f) jolt-nil)))) mmap)) jolt-nil)) (loop4125 (jolt-invoke (var-deref "clojure.core" "nnext") s))) jolt-nil)))))))) extend)))
(guard (e (#t #f))
(def-var! "clojure.core" "extend-type"
(lambda (tsym . body) (let fnrec4127 ((tsym tsym) (body (list->cseq body))) (let* ((literal? (let* ((or__26__auto (jolt-nil? tsym))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "symbol?") tsym)))) (tn (jolt-invoke (var-deref "clojure.core" "gensym") "tname")) (tref (if (jolt-truthy? literal?) (if (jolt-nil? tsym) "nil" (jolt-invoke (var-deref "clojure.core" "name") tsym)) tn)) (emit (lambda () (let fnrec4128 () (let* ((items (jolt-seq body)) (proto jolt-nil) (forms (jolt-vector))) (let loop4129 ((items items) (proto proto) (forms forms)) (if (jolt-empty? items) forms (let* ((x (jolt-first items))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") x)) (let* ((_a$4130 (jolt-rest items)) (_a$4131 (jolt-invoke (var-deref "clojure.core" "name") x)) (_a$4132 forms)) (loop4129 _a$4130 _a$4131 _a$4132)) (let* ((_a$4143 (jolt-rest items)) (_a$4144 proto) (_a$4145 (jolt-conj forms (let* ((_a$4137 (var-deref "clojure.core" "__sqcat")) (_a$4138 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-method"))) (_a$4139 (jolt-invoke (var-deref "clojure.core" "__sq1") tref)) (_a$4140 (jolt-invoke (var-deref "clojure.core" "__sq1") proto)) (_a$4141 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") (jolt-first x)))) (_a$4142 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4133 (var-deref "clojure.core" "__sqcat")) (_a$4134 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4135 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth x 1))) (_a$4136 (jolt-drop 2 x))) (jolt-invoke _a$4133 _a$4134 _a$4135 _a$4136))))) (jolt-invoke _a$4137 _a$4138 _a$4139 _a$4140 _a$4141 _a$4142))))) (loop4129 _a$4143 _a$4144 _a$4145))))))))))) (if (jolt-truthy? literal?) (let* ((_a$4146 (var-deref "clojure.core" "__sqcat")) (_a$4147 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4148 (jolt-invoke emit))) (jolt-invoke _a$4146 _a$4147 _a$4148)) (let* ((_a$4155 (var-deref "clojure.core" "__sqcat")) (_a$4156 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$4157 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4152 (var-deref "clojure.core" "__sqvec")) (_a$4153 (jolt-invoke (var-deref "clojure.core" "__sq1") tn)) (_a$4154 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4149 (var-deref "clojure.core" "__sqcat")) (_a$4150 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "type->name"))) (_a$4151 (jolt-invoke (var-deref "clojure.core" "__sq1") tsym))) (jolt-invoke _a$4149 _a$4150 _a$4151))))) (jolt-invoke _a$4152 _a$4153 _a$4154)))) (_a$4158 (jolt-invoke emit)) (_a$4159 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$4155 _a$4156 _a$4157 _a$4158 _a$4159)))))))
(mark-macro! "clojure.core" "extend-type"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "parse-extend-impls" (letrec ((parse-extend-impls (lambda (items) (let fnrec4160 ((items items)) (let* ((s (jolt-seq items)) (groups (jolt-vector))) (let loop4161 ((s s) (groups groups)) (if (jolt-empty? s) groups (let* ((after (jolt-rest s))) (let* ((_a$4164 (jolt-invoke (var-deref "clojure.core" "drop-while") (var-deref "clojure.core" "seq?") after)) (_a$4165 (jolt-conj groups (jolt-invoke (var-deref "clojure.core" "vec") (let* ((_a$4162 (jolt-first s)) (_a$4163 (jolt-invoke (var-deref "clojure.core" "take-while") (var-deref "clojure.core" "seq?") after))) (jolt-cons _a$4162 _a$4163)))))) (loop4161 _a$4164 _a$4165)))))))))) parse-extend-impls) (let* ((_o$4166 (keyword #f "private")) (_o$4167 #t)) (jolt-hash-map _o$4166 _o$4167))))
(guard (e (#t #f))
(def-var! "clojure.core" "extend-protocol"
(lambda (psym . type-impls) (let fnrec4168 ((psym psym) (type-impls (list->cseq type-impls))) (let* ((_a$4177 (var-deref "clojure.core" "__sqcat")) (_a$4178 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4179 (let* ((_a$4175 (lambda (g) (let fnrec4169 ((g g)) (let* ((_a$4170 (var-deref "clojure.core" "__sqcat")) (_a$4171 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "extend-type"))) (_a$4172 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-first g))) (_a$4173 (jolt-invoke (var-deref "clojure.core" "__sq1") psym)) (_a$4174 (jolt-rest g))) (jolt-invoke _a$4170 _a$4171 _a$4172 _a$4173 _a$4174))))) (_a$4176 (jolt-invoke (var-deref "clojure.core" "parse-extend-impls") type-impls))) (jolt-map _a$4175 _a$4176)))) (jolt-invoke _a$4177 _a$4178 _a$4179)))))
(mark-macro! "clojure.core" "extend-protocol"))
(guard (e (#t #f))
(def-var! "clojure.core" "proxy"
(lambda (supers ctor-args . methods) (let fnrec4180 ((supers supers) (ctor-args ctor-args) (methods (list->cseq methods))) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "vector?") supers))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= 1 (jolt-count supers)))) (if (jolt-truthy? and__25__auto) (let* ((s (jolt-invoke (var-deref "clojure.core" "name") (jolt-first supers)))) (let* ((or__26__auto (jolt= s "ThreadLocal"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= s "InheritableThreadLocal")))) and__25__auto)) and__25__auto))) (let* ((init (jolt-invoke (var-deref "clojure.core" "some") (lambda (m) (let fnrec4181 ((m m)) (if (jolt= "initialValue" (jolt-invoke (var-deref "clojure.core" "name") (jolt-first m))) m jolt-nil))) methods))) (let* ((_a$4186 (var-deref "clojure.core" "__sqcat")) (_a$4187 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "jolt.host" "make-thread-local"))) (_a$4188 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4182 (var-deref "clojure.core" "__sqcat")) (_a$4183 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4184 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$4185 (if (jolt-truthy? init) (jolt-invoke (var-deref "clojure.core" "nnext") init) jolt-nil))) (jolt-invoke _a$4182 _a$4183 _a$4184 _a$4185))))) (jolt-invoke _a$4186 _a$4187 _a$4188))) jolt-nil))))
(mark-macro! "clojure.core" "proxy"))
(guard (e (#t #f))
(def-var! "clojure.core" "definterface"
(lambda (name-sym . body) (let fnrec4189 ((name-sym name-sym) (body (list->cseq body))) (let* ((_a$4197 (var-deref "clojure.core" "__sqcat")) (_a$4198 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4199 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4190 (var-deref "clojure.core" "__sqcat")) (_a$4191 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4192 (jolt-invoke (var-deref "clojure.core" "__sq1") name-sym)) (_a$4193 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap"))))) (jolt-invoke _a$4190 _a$4191 _a$4192 _a$4193)))) (_a$4200 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4194 (var-deref "clojure.core" "__sqcat")) (_a$4195 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$4196 (jolt-invoke (var-deref "clojure.core" "__sq1") name-sym))) (jolt-invoke _a$4194 _a$4195 _a$4196))))) (jolt-invoke _a$4197 _a$4198 _a$4199 _a$4200)))))
(mark-macro! "clojure.core" "definterface"))
(guard (e (#t #f))
(def-var! "clojure.core" "reify"
(lambda forms (let fnrec4201 ((forms (list->cseq forms))) (let* ((items (jolt-seq forms)) (protos (jolt-vector)) (methods (jolt-hash-map)) (order (jolt-vector))) (let loop4202 ((items items) (protos protos) (methods methods) (order order)) (if (jolt-empty? items) (let* ((_a$4210 (var-deref "clojure.core" "__sqcat")) (_a$4211 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "make-reified"))) (_a$4212 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4207 (lambda (m k) (let fnrec4203 ((m m) (k k)) (jolt-assoc m k (let* ((_a$4204 (var-deref "clojure.core" "__sqcat")) (_a$4205 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4206 (jolt-get methods k))) (jolt-invoke _a$4204 _a$4205 _a$4206)))))) (_a$4208 (jolt-hash-map)) (_a$4209 order)) (jolt-reduce _a$4207 _a$4208 _a$4209)))) (_a$4213 (jolt-invoke (var-deref "clojure.core" "vec") (jolt-map (var-deref "clojure.core" "name") protos)))) (jolt-invoke _a$4210 _a$4211 _a$4212 _a$4213)) (let* ((x (jolt-first items))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") x)) (let* ((_a$4214 (jolt-rest items)) (_a$4215 (jolt-conj protos x)) (_a$4216 methods) (_a$4217 order)) (loop4202 _a$4214 _a$4215 _a$4216 _a$4217)) (let* ((k (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") (jolt-first x)))) (clause (let* ((_a$4218 (var-deref "clojure.core" "__sqcat")) (_a$4219 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth x 1))) (_a$4220 (jolt-drop 2 x))) (jolt-invoke _a$4218 _a$4219 _a$4220)))) (let* ((_a$4221 (jolt-rest items)) (_a$4222 protos) (_a$4223 (jolt-assoc methods k (jolt-conj (jolt-get methods k (jolt-vector)) clause))) (_a$4224 (if (jolt-contains? methods k) order (jolt-conj order k)))) (loop4202 _a$4221 _a$4222 _a$4223 _a$4224)))))))))))
(mark-macro! "clojure.core" "reify"))
(guard (e (#t #f))
(def-var! "clojure.core" "defrecord"
(lambda (name-sym fields . body) (let fnrec4225 ((name-sym name-sym) (fields fields) (body (list->cseq body))) (let* ((tn (jolt-invoke (var-deref "clojure.core" "name") name-sym)) (arrow (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "->" tn))) (mapf (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "map->" tn))) (m (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (mk-clause (lambda (spec) (let fnrec4226 ((spec spec)) (let* ((argv (let* ((_a$4228 (var-deref "clojure.core" "mapv")) (_a$4229 (lambda (p) (let fnrec4227 ((p p)) (if (jolt= p (jolt-symbol #f "_")) (jolt-invoke (var-deref "clojure.core" "gensym") "_p") p)))) (_a$4230 (jolt-nth spec 1))) (jolt-invoke _a$4228 _a$4229 _a$4230))) (inst (jolt-first argv)) (hinted (jolt-assoc argv 0 (jolt-invoke (var-deref "clojure.core" "vary-meta") inst jolt-assoc (keyword #f "tag") (jolt-invoke (var-deref "clojure.core" "name") name-sym)))) (pnames (jolt-invoke (var-deref "clojure.core" "set") (jolt-map (var-deref "clojure.core" "name") argv))) (binds (jolt-invoke (var-deref "clojure.core" "vec") (let* ((_a$4239 (var-deref "clojure.core" "mapcat")) (_a$4240 (lambda (f) (let fnrec4231 ((f f)) (let* ((_o$4236 f) (_o$4237 (let* ((_a$4232 (var-deref "clojure.core" "__sqcat")) (_a$4233 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$4234 (jolt-invoke (var-deref "clojure.core" "__sq1") inst)) (_a$4235 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") f))))) (jolt-invoke _a$4232 _a$4233 _a$4234 _a$4235)))) (jolt-vector _o$4236 _o$4237))))) (_a$4241 (jolt-remove (lambda (f) (let fnrec4238 ((f f)) (jolt-contains? pnames (jolt-invoke (var-deref "clojure.core" "name") f)))) fields))) (jolt-invoke _a$4239 _a$4240 _a$4241))))) (jolt-list hinted (jolt-invoke (var-deref "clojure.core" "list*") (jolt-symbol #f "let") binds (jolt-drop 2 spec))))))) (groups (jolt-invoke (var-deref "clojure.core" "group-by-head") body)) (by-name (let* ((_a$4245 (lambda (m spec) (let fnrec4242 ((m m) (spec spec)) (let* ((nm (jolt-invoke (var-deref "clojure.core" "name") (jolt-first spec)))) (jolt-assoc m nm (let* ((_a$4243 (jolt-get m nm (jolt-vector))) (_a$4244 (jolt-invoke mk-clause spec))) (jolt-conj _a$4243 _a$4244))))))) (_a$4246 (jolt-hash-map)) (_a$4247 (jolt-invoke (var-deref "clojure.core" "mapcat") jolt-rest groups))) (jolt-reduce _a$4245 _a$4246 _a$4247)))) (let* ((_a$4304 (var-deref "clojure.core" "__sqcat")) (_a$4305 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$4306 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4248 (var-deref "clojure.core" "__sqcat")) (_a$4249 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "deftype"))) (_a$4250 (jolt-invoke (var-deref "clojure.core" "__sq1") name-sym)) (_a$4251 (jolt-invoke (var-deref "clojure.core" "__sq1") fields))) (jolt-invoke _a$4248 _a$4249 _a$4250 _a$4251)))) (_a$4307 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4255 (var-deref "clojure.core" "__sqcat")) (_a$4256 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-record-type!"))) (_a$4257 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4252 (var-deref "clojure.core" "__sqcat")) (_a$4253 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$4254 (jolt-invoke (var-deref "clojure.core" "__sq1") name-sym))) (jolt-invoke _a$4252 _a$4253 _a$4254))))) (jolt-invoke _a$4255 _a$4256 _a$4257)))) (_a$4308 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4280 (var-deref "clojure.core" "__sqcat")) (_a$4281 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$4282 (jolt-invoke (var-deref "clojure.core" "__sq1") mapf)) (_a$4283 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4276 (var-deref "clojure.core" "__sqcat")) (_a$4277 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4278 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") m)))) (_a$4279 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4271 (var-deref "clojure.core" "__sqcat")) (_a$4272 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "reduce-kv"))) (_a$4273 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "assoc"))) (_a$4274 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4263 (var-deref "clojure.core" "__sqcat")) (_a$4264 (jolt-invoke (var-deref "clojure.core" "__sq1") arrow)) (_a$4265 (jolt-map (lambda (f) (let fnrec4258 ((f f)) (let* ((_a$4259 (var-deref "clojure.core" "__sqcat")) (_a$4260 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "get"))) (_a$4261 (jolt-invoke (var-deref "clojure.core" "__sq1") m)) (_a$4262 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") f))))) (jolt-invoke _a$4259 _a$4260 _a$4261 _a$4262)))) fields))) (jolt-invoke _a$4263 _a$4264 _a$4265)))) (_a$4275 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4267 (var-deref "clojure.core" "__sqcat")) (_a$4268 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "dissoc"))) (_a$4269 (jolt-invoke (var-deref "clojure.core" "__sq1") m)) (_a$4270 (jolt-map (lambda (f) (let fnrec4266 ((f f)) (jolt-invoke (var-deref "clojure.core" "keyword") (jolt-invoke (var-deref "clojure.core" "name") f)))) fields))) (jolt-invoke _a$4267 _a$4268 _a$4269 _a$4270))))) (jolt-invoke _a$4271 _a$4272 _a$4273 _a$4274 _a$4275))))) (jolt-invoke _a$4276 _a$4277 _a$4278 _a$4279))))) (jolt-invoke _a$4280 _a$4281 _a$4282 _a$4283)))) (_a$4309 (jolt-invoke (var-deref "clojure.core" "mapcat") (lambda (g) (let fnrec4284 ((g g)) (let* ((proto (jolt-first g)) (names (jolt-invoke (var-deref "clojure.core" "distinct") (let* ((_a$4286 (lambda (spec) (let fnrec4285 ((spec spec)) (jolt-invoke (var-deref "clojure.core" "name") (jolt-first spec))))) (_a$4287 (jolt-rest g))) (jolt-map _a$4286 _a$4287))))) (let* ((_a$4302 (let* ((_a$4288 (var-deref "clojure.core" "__sqcat")) (_a$4289 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-inline-protocol!"))) (_a$4290 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") name-sym))) (_a$4291 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") proto)))) (jolt-invoke _a$4288 _a$4289 _a$4290 _a$4291))) (_a$4303 (jolt-map (lambda (nm) (let fnrec4292 ((nm nm)) (let* ((_a$4296 (var-deref "clojure.core" "__sqcat")) (_a$4297 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "register-inline-method"))) (_a$4298 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") name-sym))) (_a$4299 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "name") proto))) (_a$4300 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4301 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4293 (var-deref "clojure.core" "__sqcat")) (_a$4294 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4295 (jolt-get by-name nm))) (jolt-invoke _a$4293 _a$4294 _a$4295))))) (jolt-invoke _a$4296 _a$4297 _a$4298 _a$4299 _a$4300 _a$4301)))) names))) (jolt-cons _a$4302 _a$4303))))) groups))) (jolt-invoke _a$4304 _a$4305 _a$4306 _a$4307 _a$4308 _a$4309))))))
(mark-macro! "clojure.core" "defrecord"))
(guard (e (#t #f))
(def-var! "clojure.core" "memfn"
(lambda (method-name . args) (let fnrec4310 ((method-name method-name) (args (list->cseq args))) (let* ((_a$4315 (var-deref "clojure.core" "__sqcat")) (_a$4316 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$4317 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "target__24__auto")) args))) (_a$4318 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4311 (var-deref "clojure.core" "__sqcat")) (_a$4312 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "." (jolt-invoke (var-deref "clojure.core" "name") method-name))))) (_a$4313 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "target__24__auto"))) (_a$4314 args)) (jolt-invoke _a$4311 _a$4312 _a$4313 _a$4314))))) (jolt-invoke _a$4315 _a$4316 _a$4317 _a$4318)))))
(mark-macro! "clojure.core" "memfn"))
(guard (e (#t #f))
(def-var! "clojure.core" "distinct" (letrec ((distinct (case-lambda (() (let fnrec2546 () (lambda (rf) (let fnrec2547 ((rf rf)) (let* ((seen (jolt-invoke (var-deref "clojure.core" "volatile!") (jolt-hash-set)))) (case-lambda (() (let fnrec2548 () (jolt-invoke rf))) ((result) (let fnrec2549 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2550 ((result result) (input input)) (if (jolt-contains? (jolt-invoke (var-deref "clojure.core" "deref") seen) input) result (begin (jolt-invoke (var-deref "clojure.core" "vswap!") seen jolt-conj input) (jolt-invoke rf result input))))))))))) ((coll) (let fnrec2551 ((coll coll)) (let* ((step (letrec ((step (lambda (xs seen) (let fnrec2552 ((xs xs) (seen seen)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2553 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-invoke (lambda (G__112 seen) (let fnrec2554 ((G__112 G__112) (seen seen)) (let* ((G__113 G__112) (f (jolt-nth G__113 0 jolt-nil)) (xs G__113)) (let* ((temp__27__auto (jolt-seq xs))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (if (jolt-contains? seen f) (fnrec2554 (jolt-rest s) seen) (jolt-cons f (let* ((_a$2555 (jolt-rest s)) (_a$2556 (jolt-conj seen f))) (step _a$2555 _a$2556))))) jolt-nil))))) xs seen))))))))) step))) (jolt-invoke step coll (jolt-hash-set)))))))) distinct)))
(guard (e (#t #f))
(def-var! "clojure.core" "keep" (letrec ((keep (case-lambda ((f) (let fnrec2557 ((f f)) (lambda (rf) (let fnrec2558 ((rf rf)) (case-lambda (() (let fnrec2559 () (jolt-invoke rf))) ((result) (let fnrec2560 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2561 ((result result) (input input)) (let* ((v (jolt-invoke f input))) (if (jolt-nil? v) result (jolt-invoke rf result v)))))))))) ((f coll) (let fnrec2562 ((f f) (coll coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2563 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((x (jolt-invoke f (jolt-first s)))) (if (jolt-nil? x) (keep f (jolt-rest s)) (jolt-cons x (keep f (jolt-rest s)))))) jolt-nil))))))))))) keep)))
(guard (e (#t #f))
(def-var! "clojure.core" "keep-indexed" (letrec ((keep-indexed (case-lambda ((f) (let fnrec2564 ((f f)) (lambda (rf) (let fnrec2565 ((rf rf)) (let* ((ia (jolt-invoke (var-deref "clojure.core" "volatile!") -1))) (case-lambda (() (let fnrec2566 () (jolt-invoke rf))) ((result) (let fnrec2567 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2568 ((result result) (input input)) (let* ((i (jolt-invoke (var-deref "clojure.core" "vswap!") ia jolt-inc)) (v (jolt-invoke f i input))) (if (jolt-nil? v) result (jolt-invoke rf result v))))))))))) ((f coll) (let fnrec2569 ((f f) (coll coll)) (letrec* ((keepi (letrec ((keepi (lambda (idx coll) (let fnrec2570 ((idx idx) (coll coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2571 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((x (jolt-invoke f idx (jolt-first s)))) (if (jolt-nil? x) (let* ((_a$2572 (jolt-inc idx)) (_a$2573 (jolt-rest s))) (keepi _a$2572 _a$2573)) (jolt-cons x (let* ((_a$2574 (jolt-inc idx)) (_a$2575 (jolt-rest s))) (keepi _a$2574 _a$2575)))))) jolt-nil)))))))))) keepi))) (jolt-invoke keepi 0 coll))))))) keep-indexed)))
(guard (e (#t #f))
(def-var! "clojure.core" "map-indexed" (letrec ((map-indexed (case-lambda ((f) (let fnrec2576 ((f f)) (lambda (rf) (let fnrec2577 ((rf rf)) (let* ((i (jolt-invoke (var-deref "clojure.core" "volatile!") -1))) (case-lambda (() (let fnrec2578 () (jolt-invoke rf))) ((result) (let fnrec2579 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2580 ((result result) (input input)) (jolt-invoke rf result (jolt-invoke f (jolt-invoke (var-deref "clojure.core" "vswap!") i jolt-inc) input)))))))))) ((f coll) (let fnrec2581 ((f f) (coll coll)) (letrec* ((mapi (letrec ((mapi (lambda (idx coll) (let fnrec2582 ((idx idx) (coll coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2583 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((_a$2586 (jolt-invoke f idx (jolt-first s))) (_a$2587 (let* ((_a$2584 (jolt-inc idx)) (_a$2585 (jolt-rest s))) (mapi _a$2584 _a$2585)))) (jolt-cons _a$2586 _a$2587))) jolt-nil)))))))))) mapi))) (jolt-invoke mapi 0 coll))))))) map-indexed)))
(guard (e (#t #f))
(def-var! "clojure.core" "cycle" (letrec ((cycle (lambda (coll) (let fnrec2588 ((coll coll)) (if (jolt-truthy? (jolt-seq coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2589 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-concat coll (cycle coll)))))) (jolt-list )))))) cycle)))
(guard (e (#t #f))
(def-var! "clojure.core" "repeatedly" (letrec ((repeatedly (case-lambda ((f) (let fnrec2590 ((f f)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2591 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((_a$2592 (jolt-invoke f)) (_a$2593 (repeatedly f))) (jolt-cons _a$2592 _a$2593)))))))) ((n f) (let fnrec2594 ((n n) (f f)) (jolt-take n (repeatedly f))))))) repeatedly)))
(guard (e (#t #f))
(def-var! "clojure.core" "repeat" (letrec ((repeat (case-lambda ((x) (let fnrec2595 ((x x)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2596 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-cons x (repeat x)))))))) ((n x) (let fnrec2597 ((n n) (x x)) (jolt-take n (repeat x))))))) repeat)))
(guard (e (#t #f))
(def-var! "clojure.core" "iterate" (letrec ((iterate (lambda (f x) (let fnrec2598 ((f f) (x x)) (jolt-cons x (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2599 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (iterate f (jolt-invoke f x))))))))))) iterate)))
(guard (e (#t #f))
(def-var! "clojure.core" "partition-all" (letrec ((partition-all (case-lambda ((n) (let fnrec2600 ((n n)) (lambda (rf) (let fnrec2601 ((rf rf)) (let* ((a (jolt-invoke (var-deref "clojure.core" "volatile!") (jolt-vector)))) (case-lambda (() (let fnrec2602 () (jolt-invoke rf))) ((result) (let fnrec2603 ((result result)) (let* ((result (if (jolt-zero? (jolt-count (jolt-invoke (var-deref "clojure.core" "deref") a))) result (let* ((v (jolt-invoke (var-deref "clojure.core" "deref") a))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") a (jolt-vector)) (jolt-invoke (var-deref "clojure.core" "unreduced") (jolt-invoke rf result v))))))) (jolt-invoke rf result)))) ((result input) (let fnrec2604 ((result result) (input input)) (begin (jolt-invoke (var-deref "clojure.core" "vswap!") a jolt-conj input) (if (jolt= n (jolt-count (jolt-invoke (var-deref "clojure.core" "deref") a))) (let* ((v (jolt-invoke (var-deref "clojure.core" "deref") a))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") a (jolt-vector)) (jolt-invoke rf result v))) result)))))))))) ((n coll) (let fnrec2605 ((n n) (coll coll)) (letrec* ((go (letrec ((go (lambda (s) (let fnrec2606 ((s s)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2607 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (if (jolt-truthy? (jolt-seq s)) (let* ((i 0) (acc (jolt-list )) (cur s)) (let loop2608 ((i i) (acc acc) (cur cur)) (if (jolt-truthy? (let* ((and__25__auto (jolt-n< i n))) (if (jolt-truthy? and__25__auto) (jolt-seq cur) and__25__auto))) (let* ((_a$2609 (jolt-inc i)) (_a$2610 (jolt-cons (jolt-first cur) acc)) (_a$2611 (jolt-rest cur))) (loop2608 _a$2609 _a$2610 _a$2611)) (let* ((_a$2612 (jolt-reverse acc)) (_a$2613 (go cur))) (jolt-cons _a$2612 _a$2613))))) jolt-nil))))))))) go))) (jolt-invoke go coll)))) ((n step coll) (let fnrec2614 ((n n) (step step) (coll coll)) (letrec* ((go (letrec ((go (lambda (s) (let fnrec2615 ((s s)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2616 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (if (jolt-truthy? (jolt-seq s)) (let* ((_a$2617 (jolt-take n s)) (_a$2618 (go (jolt-invoke (var-deref "clojure.core" "nthrest") s step)))) (jolt-cons _a$2617 _a$2618)) jolt-nil))))))))) go))) (jolt-invoke go coll))))))) partition-all)))
(guard (e (#t #f))
(def-var! "clojure.core" "interpose" (letrec ((interpose (case-lambda ((sep) (let fnrec2619 ((sep sep)) (lambda (rf) (let fnrec2620 ((rf rf)) (let* ((started (jolt-invoke (var-deref "clojure.core" "volatile!") #f))) (case-lambda (() (let fnrec2621 () (jolt-invoke rf))) ((result) (let fnrec2622 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2623 ((result result) (input input)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "deref") started)) (let* ((sepr (jolt-invoke rf result sep))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "reduced?") sepr)) sepr (jolt-invoke rf sepr input))) (begin (jolt-invoke (var-deref "clojure.core" "vreset!") started #t) (jolt-invoke rf result input))))))))))) ((sep coll) (let fnrec2624 ((sep sep) (coll coll)) (jolt-drop 1 (jolt-invoke (var-deref "clojure.core" "interleave") (jolt-invoke (var-deref "clojure.core" "repeat") sep) coll))))))) interpose)))
(guard (e (#t #f))
(def-var! "clojure.core" "take-nth" (letrec ((take-nth (case-lambda ((n) (let fnrec2625 ((n n)) (lambda (rf) (let fnrec2626 ((rf rf)) (let* ((iv (jolt-invoke (var-deref "clojure.core" "volatile!") -1))) (case-lambda (() (let fnrec2627 () (jolt-invoke rf))) ((result) (let fnrec2628 ((result result)) (jolt-invoke rf result))) ((result input) (let fnrec2629 ((result result) (input input)) (let* ((i (jolt-invoke (var-deref "clojure.core" "vswap!") iv jolt-inc))) (if (jolt-zero? (jolt-rem i n)) (jolt-invoke rf result input) result)))))))))) ((n coll) (let fnrec2630 ((n n) (coll coll)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2631 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((temp__27__auto (jolt-seq coll))) (if (jolt-truthy? temp__27__auto) (let* ((s temp__27__auto)) (let* ((_a$2632 (jolt-first s)) (_a$2633 (take-nth n (jolt-drop n s)))) (jolt-cons _a$2632 _a$2633))) jolt-nil))))))))))) take-nth)))
(guard (e (#t #f))
(def-var! "clojure.core" "pmap" (letrec ((pmap (case-lambda ((f coll) (let fnrec2634 ((f f) (coll coll)) (jolt-map (var-deref "clojure.core" "deref") (jolt-invoke (var-deref "clojure.core" "doall") (jolt-map (lambda (x) (let fnrec2635 ((x x)) (jolt-invoke (var-deref "clojure.core" "future-call") (lambda () (let fnrec2636 () (jolt-invoke f x)))))) coll))))) ((f coll . colls) (let fnrec2637 ((f f) (coll coll) (colls (list->cseq colls))) (let* ((_a$2639 (lambda (xs) (let fnrec2638 ((xs xs)) (jolt-apply f xs)))) (_a$2640 (jolt-apply jolt-map jolt-vector coll colls))) (pmap _a$2639 _a$2640))))))) pmap)))
(guard (e (#t #f))
(def-var! "clojure.core" "pcalls" (letrec ((pcalls (lambda fns (let fnrec2641 ((fns (list->cseq fns))) (jolt-invoke (var-deref "clojure.core" "pmap") (lambda (f) (let fnrec2642 ((f f)) (jolt-invoke f))) fns))))) pcalls)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "reader-eof" (keyword "jolt" "reader-eof") (let* ((_o$2643 (keyword #f "private")) (_o$2644 #t)) (jolt-hash-map _o$2643 _o$2644))))
(guard (e (#t #f))
(begin (def-var! "clojure.core" "IReader" (jolt-invoke (var-deref "clojure.core" "make-protocol") "IReader" (let* ((_o$2651 (keyword #f "-read-line")) (_o$2652 (let* ((_o$2645 (keyword #f "name")) (_o$2646 "-read-line")) (jolt-hash-map _o$2645 _o$2646))) (_o$2653 (keyword #f "-read-form")) (_o$2654 (let* ((_o$2647 (keyword #f "name")) (_o$2648 "-read-form")) (jolt-hash-map _o$2647 _o$2648))) (_o$2655 (keyword #f "-read+string")) (_o$2656 (let* ((_o$2649 (keyword #f "name")) (_o$2650 "-read+string")) (jolt-hash-map _o$2649 _o$2650)))) (jolt-hash-map _o$2651 _o$2652 _o$2653 _o$2654 _o$2655 _o$2656)))) (jolt-invoke (var-deref "clojure.core" "register-protocol-methods!") "IReader" (let* ((_o$2657 "-read-line") (_o$2658 "-read-form") (_o$2659 "-read+string")) (jolt-vector _o$2657 _o$2658 _o$2659))) (def-var! "clojure.core" "-read-line" (lambda (G__114) (let fnrec2660 ((G__114 G__114)) (protocol-dispatch1 "IReader" "-read-line" G__114)))) (def-var! "clojure.core" "-read-form" (lambda (G__115) (let fnrec2661 ((G__115 G__115)) (protocol-dispatch1 "IReader" "-read-form" G__115)))) (def-var! "clojure.core" "-read+string" (lambda (G__116 G__117 G__118) (let fnrec2662 ((G__116 G__116) (G__117 G__117) (G__118 G__118)) (protocol-dispatch3 "IReader" "-read+string" G__116 G__117 G__118))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "__string-reader" (letrec ((__string-reader (lambda (s) (let fnrec2663 ((s s)) (let* ((buf (jolt-invoke (var-deref "clojure.core" "atom") s))) (jolt-invoke (var-deref "clojure.core" "make-reified") (let* ((_o$2673 (keyword #f "-read-line")) (_o$2674 (lambda (_) (let fnrec2664 ((_ _)) (let* ((cur (jolt-invoke (var-deref "clojure.core" "deref") buf))) (if (jolt-pos? (jolt-count cur)) (let* ((i (jolt-invoke (var-deref "clojure.core" "str-find") "\n" cur))) (if (jolt-nil? i) (begin (jolt-invoke (var-deref "clojure.core" "reset!") buf "") cur) (begin (jolt-invoke (var-deref "clojure.core" "reset!") buf (jolt-invoke (var-deref "clojure.core" "subs") cur (jolt-inc i))) (jolt-invoke (var-deref "clojure.core" "subs") cur 0 i)))) jolt-nil))))) (_o$2675 (keyword #f "-read-form")) (_o$2676 (lambda (_) (let fnrec2665 ((_ _)) (let* ((r (jolt-invoke (var-deref "clojure.core" "__parse-next") (jolt-invoke (var-deref "clojure.core" "deref") buf)))) (if (jolt-nil? r) (var-deref "clojure.core" "reader-eof") (begin (jolt-invoke (var-deref "clojure.core" "reset!") buf (jolt-nth r 1)) (jolt-nth r 0))))))) (_o$2677 (keyword #f "-read+string")) (_o$2678 (lambda (_ eof-error? eof-value) (let fnrec2666 ((_ _) (eof-error? eof-error?) (eof-value eof-value)) (let* ((s (jolt-invoke (var-deref "clojure.core" "deref") buf)) (r (jolt-invoke (var-deref "clojure.core" "__parse-next") s))) (if (jolt-nil? r) (if (jolt-truthy? eof-error?) (jolt-throw (jolt-ex-info "EOF while reading" (jolt-hash-map))) (let* ((_o$2667 eof-value) (_o$2668 "")) (jolt-vector _o$2667 _o$2668))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") buf (jolt-nth r 1)) (let* ((_o$2671 (jolt-nth r 0)) (_o$2672 (jolt-invoke (var-deref "clojure.core" "subs") s 0 (let* ((_a$2669 (jolt-count s)) (_a$2670 (jolt-count (jolt-nth r 1)))) (jolt-n- _a$2669 _a$2670))))) (jolt-vector _o$2671 _o$2672))))))))) (jolt-hash-map _o$2673 _o$2674 _o$2675 _o$2676 _o$2677 _o$2678)) "IReader")))))) __string-reader) (let* ((_o$2679 (keyword #f "doc")) (_o$2680 "A reader over string s (the with-in-str expansion calls this).")) (jolt-hash-map _o$2679 _o$2680))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "stdin-buf" (jolt-invoke (var-deref "clojure.core" "atom") "") (let* ((_o$2681 (keyword #f "private")) (_o$2682 #t)) (jolt-hash-map _o$2681 _o$2682))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "*in*" (jolt-invoke (var-deref "clojure.core" "make-reified") (let* ((_o$2696 (keyword #f "-read-line")) (_o$2697 (lambda (_) (let fnrec2683 ((_ _)) (let* ((cur (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "stdin-buf")))) (if (jolt-pos? (jolt-count cur)) (let* ((i (jolt-invoke (var-deref "clojure.core" "str-find") "\n" cur))) (if (jolt-nil? i) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (var-deref "clojure.core" "stdin-buf") "") cur) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (var-deref "clojure.core" "stdin-buf") (jolt-invoke (var-deref "clojure.core" "subs") cur (jolt-inc i))) (jolt-invoke (var-deref "clojure.core" "subs") cur 0 i)))) (jolt-invoke (var-deref "clojure.core" "__stdin-read-line"))))))) (_o$2698 (keyword #f "-read-form")) (_o$2699 (lambda (_) (let fnrec2684 ((_ _)) (let* () (let loop2685 () (let* ((r (jolt-invoke (var-deref "clojure.core" "__parse-next") (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "stdin-buf"))))) (if (jolt-nil? r) (let* ((line (jolt-invoke (var-deref "clojure.core" "__stdin-read-line")))) (if (jolt-nil? line) (var-deref "clojure.core" "reader-eof") (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "clojure.core" "stdin-buf") (lambda (b) (let fnrec2686 ((b b)) (jolt-invoke (var-deref "clojure.core" "str") b line "\n")))) (loop2685 )))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (var-deref "clojure.core" "stdin-buf") (jolt-nth r 1)) (jolt-nth r 0))))))))) (_o$2700 (keyword #f "-read+string")) (_o$2701 (lambda (_ eof-error? eof-value) (let fnrec2687 ((_ _) (eof-error? eof-error?) (eof-value eof-value)) (let* () (let loop2688 () (let* ((s (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "stdin-buf"))) (r (jolt-invoke (var-deref "clojure.core" "__parse-next") s))) (if (jolt-nil? r) (let* ((line (jolt-invoke (var-deref "clojure.core" "__stdin-read-line")))) (if (jolt-nil? line) (if (jolt-truthy? eof-error?) (jolt-throw (jolt-ex-info "EOF while reading" (jolt-hash-map))) (let* ((_o$2689 eof-value) (_o$2690 "")) (jolt-vector _o$2689 _o$2690))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "clojure.core" "stdin-buf") (lambda (b) (let fnrec2691 ((b b)) (jolt-invoke (var-deref "clojure.core" "str") b line "\n")))) (loop2688 )))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (var-deref "clojure.core" "stdin-buf") (jolt-nth r 1)) (let* ((_o$2694 (jolt-nth r 0)) (_o$2695 (jolt-invoke (var-deref "clojure.core" "subs") s 0 (let* ((_a$2692 (jolt-count s)) (_a$2693 (jolt-count (jolt-nth r 1)))) (jolt-n- _a$2692 _a$2693))))) (jolt-vector _o$2694 _o$2695))))))))))) (jolt-hash-map _o$2696 _o$2697 _o$2698 _o$2699 _o$2700 _o$2701)) "IReader") (let* ((_o$2702 (keyword #f "dynamic")) (_o$2703 #t)) (jolt-hash-map _o$2702 _o$2703))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "read-line" (letrec ((read-line (lambda () (let fnrec2704 () (jolt-invoke (var-deref "clojure.core" "-read-line") (var-deref "clojure.core" "*in*")))))) read-line) (let* ((_o$2705 (keyword #f "doc")) (_o$2706 "Reads the next line from the stream that is the current value of *in*.\n Returns nil at EOF.")) (jolt-hash-map _o$2705 _o$2706))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "read" (letrec ((read (case-lambda (() (let fnrec2707 () (read (var-deref "clojure.core" "*in*")))) ((stream) (let fnrec2708 ((stream stream)) (let* ((v (jolt-invoke (var-deref "clojure.core" "-read-form") stream))) (if (jolt= v (var-deref "clojure.core" "reader-eof")) (jolt-throw (jolt-ex-info "EOF while reading" (jolt-hash-map))) v)))) ((stream eof-error? eof-value) (let fnrec2709 ((stream stream) (eof-error? eof-error?) (eof-value eof-value)) (let* ((v (jolt-invoke (var-deref "clojure.core" "-read-form") stream))) (if (jolt= v (var-deref "clojure.core" "reader-eof")) (if (jolt-truthy? eof-error?) (jolt-throw (jolt-ex-info "EOF while reading" (jolt-hash-map))) eof-value) v))))))) read) (let* ((_o$2710 (keyword #f "doc")) (_o$2711 "Reads the next object from stream (defaults to *in*). At EOF, throws \x2014;\n or returns eof-value when eof-error? is false.")) (jolt-hash-map _o$2710 _o$2711))))
(guard (e (#t #f))
(def-var! "clojure.core" "with-in-str"
(lambda (s . body) (let fnrec2712 ((s s) (body (list->cseq body))) (let* ((_a$2719 (var-deref "clojure.core" "__sqcat")) (_a$2720 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "binding"))) (_a$2721 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$2716 (var-deref "clojure.core" "__sqvec")) (_a$2717 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*in*"))) (_a$2718 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$2713 (var-deref "clojure.core" "__sqcat")) (_a$2714 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "__string-reader"))) (_a$2715 (jolt-invoke (var-deref "clojure.core" "__sq1") s))) (jolt-invoke _a$2713 _a$2714 _a$2715))))) (jolt-invoke _a$2716 _a$2717 _a$2718)))) (_a$2722 body)) (jolt-invoke _a$2719 _a$2720 _a$2721 _a$2722)))))
(mark-macro! "clojure.core" "with-in-str"))
(guard (e (#t #f))
(def-var! "clojure.core" "read+string" (letrec ((read+string (case-lambda (() (let fnrec2723 () (read+string (var-deref "clojure.core" "*in*")))) ((stream) (let fnrec2724 ((stream stream)) (read+string stream #t jolt-nil))) ((stream eof-error? eof-value) (let fnrec2725 ((stream stream) (eof-error? eof-error?) (eof-value eof-value)) (jolt-invoke (var-deref "clojure.core" "-read+string") stream eof-error? eof-value)))))) read+string)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "line-seq" (letrec ((line-seq (lambda (rdr) (let fnrec2726 ((rdr rdr)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") rdr)) (jolt-seq (jolt-invoke (var-deref "clojure.core" "str-split") "\n" rdr)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec2727 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (let* ((line (jolt-invoke (var-deref "clojure.core" "-read-line") rdr))) (if (jolt-truthy? line) (jolt-cons line (line-seq rdr)) jolt-nil))))))))))) line-seq) (let* ((_o$2728 (keyword #f "doc")) (_o$2729 "Returns the lines of text from rdr as a lazy sequence of strings, as by\n read-line. (Jolt extension kept from the old kernel stub: a plain string\n splits into its lines.)")) (jolt-hash-map _o$2728 _o$2729))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmulti-setup") (jolt-symbol "clojure.core" "print-method") (lambda (x writer) (let fnrec2730 ((x x) (writer writer)) (let* ((t (jolt-get (jolt-invoke (var-deref "clojure.core" "meta") x) (keyword #f "type")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") t)) t (jolt-invoke (var-deref "clojure.core" "__type-tag") x)))))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-method") (keyword #f "default") (lambda (o w) (let fnrec2731 ((o o) (w w)) (begin (record-method-dispatch w "write" (jolt-vector (jolt-invoke (var-deref "clojure.core" "__pr-str1") o))) jolt-nil))) "clojure.core"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmulti-setup") (jolt-symbol "clojure.core" "print-dup") (lambda (x writer) (let fnrec2732 ((x x) (writer writer)) (let* ((t (jolt-get (jolt-invoke (var-deref "clojure.core" "meta") x) (keyword #f "type")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") t)) t (jolt-invoke (var-deref "clojure.core" "__type-tag") x)))))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-dup") (keyword #f "default") (lambda (o w) (let fnrec2733 ((o o) (w w)) (jolt-invoke (var-deref "clojure.core" "print-method") o w))) "clojure.core"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-method") (keyword "jolt" "uuid") (lambda (u w) (let fnrec2734 ((u u) (w w)) (begin (record-method-dispatch w "write" (jolt-vector (jolt-invoke (var-deref "clojure.core" "str") "#uuid \"" (jolt-get u (keyword #f "str")) "\""))) jolt-nil))) "clojure.core"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-method") (keyword "jolt" "regex") (lambda (re w) (let fnrec2735 ((re re) (w w)) (begin (record-method-dispatch w "write" (jolt-vector (jolt-invoke (var-deref "clojure.core" "str") "#\"" (jolt-get re (keyword #f "source")) "\""))) jolt-nil))) "clojure.core"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-method") (keyword "jolt" "transient") (lambda (t w) (let fnrec2736 ((t t) (w w)) (begin (record-method-dispatch w "write" (jolt-vector (jolt-invoke (var-deref "clojure.core" "str") "#<transient " (jolt-invoke (var-deref "clojure.core" "name") (jolt-invoke (var-deref "jolt.host" "ref-get") t (keyword #f "kind"))) ">"))) jolt-nil))) "clojure.core"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "print-method") (keyword "jolt" "chan") (lambda (c w) (let fnrec2737 ((c c) (w w)) (begin (record-method-dispatch w "write" (jolt-vector "#<channel>")) jolt-nil))) "clojure.core"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "agent" (letrec ((agent (lambda (state . _opts) (let fnrec2738 ((state state) (_opts (list->cseq _opts))) (jolt-invoke (var-deref "clojure.core" "atom") state))))) agent) (let* ((_o$2739 (keyword #f "doc")) (_o$2740 "Creates an agent (an atom on jolt \x2014; synchronous, no async dispatch).")) (jolt-hash-map _o$2739 _o$2740))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "send-off" (letrec ((send-off (lambda (a f . args) (let fnrec2741 ((a a) (f f) (args (list->cseq args))) (begin (jolt-apply (var-deref "clojure.core" "swap!") a f args) a))))) send-off) (let* ((_o$2742 (keyword #f "doc")) (_o$2743 "Apply (action state & args) to the agent's state immediately; return the agent.")) (jolt-hash-map _o$2742 _o$2743))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "send" (letrec ((send (lambda (a f . args) (let fnrec2744 ((a a) (f f) (args (list->cseq args))) (begin (jolt-apply (var-deref "clojure.core" "swap!") a f args) a))))) send) (let* ((_o$2745 (keyword #f "doc")) (_o$2746 "Like send-off on jolt (no separate thread pool).")) (jolt-hash-map _o$2745 _o$2746))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.core" "agent-error" (letrec ((agent-error (lambda (_a) (let fnrec2747 ((_a _a)) jolt-nil)))) agent-error) (let* ((_o$2748 (keyword #f "doc")) (_o$2749 "jolt agents never enter an error state.")) (jolt-hash-map _o$2748 _o$2749))))
(guard (e (#t #f))
(def-var! "clojure.string" "blank?" (letrec ((blank? (lambda (s) (let fnrec2442 ((s s)) (if (jolt-nil? s) #t (jolt= 0 (jolt-count (jolt-invoke (var-deref "clojure.core" "str-trim") s)))))))) blank?)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.string" "to-str" (letrec ((to-str (lambda (s) (let fnrec2443 ((s s)) (if (jolt-nil? s) (jolt-throw (host-new "NullPointerException" "s")) (record-method-dispatch s "toString" (jolt-vector))))))) to-str) (let* ((_o$2444 (keyword #f "private")) (_o$2445 #t)) (jolt-hash-map _o$2444 _o$2445))))
(guard (e (#t #f))
(def-var! "clojure.string" "capitalize" (letrec ((capitalize (lambda (s) (let fnrec2446 ((s s)) (let* ((s (jolt-invoke (var-deref "clojure.string" "to-str") s))) (if (jolt-n< 1 (jolt-count s)) (let* ((_a$2447 (var-deref "clojure.core" "str")) (_a$2448 (jolt-invoke (var-deref "clojure.core" "str-upper") (jolt-invoke (var-deref "clojure.core" "subs") s 0 1))) (_a$2449 (jolt-invoke (var-deref "clojure.core" "str-lower") (jolt-invoke (var-deref "clojure.core" "subs") s 1)))) (jolt-invoke _a$2447 _a$2448 _a$2449)) (jolt-invoke (var-deref "clojure.core" "str-upper") s))))))) capitalize)))
(guard (e (#t #f))
(def-var! "clojure.string" "lower-case" (letrec ((lower-case (lambda (s) (let fnrec2450 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-lower") (jolt-invoke (var-deref "clojure.string" "to-str") s)))))) lower-case)))
(guard (e (#t #f))
(def-var! "clojure.string" "upper-case" (letrec ((upper-case (lambda (s) (let fnrec2451 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-upper") (jolt-invoke (var-deref "clojure.string" "to-str") s)))))) upper-case)))
(guard (e (#t #f))
(def-var! "clojure.string" "includes?" (letrec ((includes? (lambda (s substr) (let fnrec2452 ((s s) (substr substr)) (jolt-not (jolt-nil? (jolt-invoke (var-deref "clojure.core" "str-find") substr (jolt-invoke (var-deref "clojure.string" "to-str") s)))))))) includes?)))
(guard (e (#t #f))
(def-var! "clojure.string" "join" (letrec ((join (case-lambda ((coll) (let fnrec2453 ((coll coll)) (jolt-invoke (var-deref "clojure.core" "str-join") coll))) ((separator coll) (let fnrec2454 ((separator separator) (coll coll)) (jolt-invoke (var-deref "clojure.core" "str-join") coll separator)))))) join)))
(guard (e (#t #f))
(def-var! "clojure.string" "replace" (letrec ((replace (lambda (s match replacement) (let fnrec2455 ((s s) (match match) (replacement replacement)) (jolt-invoke (var-deref "clojure.core" "str-replace-all") match replacement (jolt-invoke (var-deref "clojure.string" "to-str") s)))))) replace)))
(guard (e (#t #f))
(def-var! "clojure.string" "replace-first" (letrec ((replace-first (lambda (s match replacement) (let fnrec2456 ((s s) (match match) (replacement replacement)) (jolt-invoke (var-deref "clojure.core" "str-replace") match replacement (jolt-invoke (var-deref "clojure.string" "to-str") s)))))) replace-first)))
(guard (e (#t #f))
(def-var! "clojure.string" "reverse" (letrec ((reverse (lambda (s) (let fnrec2457 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-reverse-b") s))))) reverse)))
(guard (e (#t #f))
(def-var! "clojure.string" "str-reverse" (letrec ((str-reverse (lambda (s) (let fnrec2458 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-reverse-b") s))))) str-reverse)))
(guard (e (#t #f))
(def-var! "clojure.string" "split" (letrec ((split (case-lambda ((s re) (let fnrec2459 ((s s) (re re)) (split s re 0))) ((s re limit) (let fnrec2460 ((s s) (re re) (limit limit)) (let* ((parts (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "str-split") re s (if (jolt-pos? limit) limit jolt-nil))))) (if (let* ((and__25__auto (jolt-zero? limit))) (if (jolt-truthy? and__25__auto) (jolt-n> (jolt-count parts) 1) and__25__auto)) (let* ((v parts)) (let loop2461 ((v v)) (if (jolt-truthy? (let* ((and__25__auto (jolt-seq v))) (if (jolt-truthy? and__25__auto) (jolt= "" (jolt-peek v)) and__25__auto))) (loop2461 (jolt-pop v)) v))) parts))))))) split)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.string" "split-lines" (letrec ((split-lines (lambda (s) (let fnrec2462 ((s s)) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "clojure.core" "str-split") (jolt-regex "\\r?\\n") s)))))) split-lines) (let* ((_o$2463 (keyword #f "doc")) (_o$2464 "Split s on \\n or \\r\\n, returning a vector of lines.")) (jolt-hash-map _o$2463 _o$2464))))
(guard (e (#t #f))
(def-var! "clojure.string" "starts-with?" (letrec ((starts-with? (lambda (s substr) (let fnrec2465 ((s s) (substr substr)) (begin (if (jolt-nil? substr) (jolt-throw (host-new "NullPointerException" "substr")) jolt-nil) (let* ((s (jolt-invoke (var-deref "clojure.string" "to-str") s)) (slen (jolt-count s)) (slen2 (jolt-count substr))) (let* ((and__25__auto (jolt-n>= slen slen2))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-invoke (var-deref "clojure.core" "subs") s 0 slen2) substr) and__25__auto)))))))) starts-with?)))
(guard (e (#t #f))
(def-var! "clojure.string" "ends-with?" (letrec ((ends-with? (lambda (s substr) (let fnrec2466 ((s s) (substr substr)) (begin (if (jolt-nil? substr) (jolt-throw (host-new "NullPointerException" "substr")) jolt-nil) (let* ((s (jolt-invoke (var-deref "clojure.string" "to-str") s)) (slen (jolt-count s)) (slen2 (jolt-count substr))) (let* ((and__25__auto (jolt-n>= slen slen2))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-invoke (var-deref "clojure.core" "subs") s (jolt-n- slen slen2)) substr) and__25__auto)))))))) ends-with?)))
(guard (e (#t #f))
(def-var! "clojure.string" "trim" (letrec ((trim (lambda (s) (let fnrec2467 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-trim") s))))) trim)))
(guard (e (#t #f))
(def-var! "clojure.string" "triml" (letrec ((triml (lambda (s) (let fnrec2468 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-triml") s))))) triml)))
(guard (e (#t #f))
(def-var! "clojure.string" "trimr" (letrec ((trimr (lambda (s) (let fnrec2469 ((s s)) (jolt-invoke (var-deref "clojure.core" "str-trimr") s))))) trimr)))
(guard (e (#t #f))
(def-var! "clojure.string" "escape" (letrec ((escape (lambda (s cmap) (let fnrec2470 ((s s) (cmap cmap)) (begin (if (jolt-nil? s) (jolt-throw (host-new "NullPointerException" "s")) jolt-nil) (jolt-apply (var-deref "clojure.core" "str") (jolt-map (lambda (ch) (let fnrec2471 ((ch ch)) (let* ((temp__16__auto (jolt-invoke cmap ch))) (if (jolt-truthy? temp__16__auto) (let* ((rep temp__16__auto)) rep) (jolt-invoke (var-deref "clojure.core" "str") ch))))) s))))))) escape)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.string" "index-of" (letrec ((index-of (case-lambda ((s value) (let fnrec2472 ((s s) (value value)) (jolt-invoke (var-deref "clojure.core" "str-find") value (jolt-invoke (var-deref "clojure.string" "to-str") s)))) ((s value from) (let fnrec2473 ((s s) (value value) (from from)) (let* ((idx (jolt-invoke (var-deref "clojure.core" "str-find") value (jolt-invoke (var-deref "clojure.core" "subs") (jolt-invoke (var-deref "clojure.string" "to-str") s) from)))) (if (jolt-truthy? idx) (jolt-n+ from idx) jolt-nil))))))) index-of) (let* ((_o$2474 (keyword #f "doc")) (_o$2475 "0-based index of the first occurrence of value in s, or nil.")) (jolt-hash-map _o$2474 _o$2475))))
(guard (e (#t #f))
(def-var! "clojure.string" "last-index-of" (letrec ((last-index-of (case-lambda ((s value) (let fnrec2476 ((s s) (value value)) (let* ((r (jolt-invoke (var-deref "clojure.core" "str-reverse-b") s)) (sval (jolt-invoke (var-deref "clojure.core" "str-reverse-b") value)) (idx (jolt-invoke (var-deref "clojure.core" "str-find") sval r))) (if (jolt-truthy? idx) (let* ((_a$2477 (jolt-count s)) (_a$2478 (jolt-n+ idx (jolt-count value)))) (jolt-n- _a$2477 _a$2478)) jolt-nil)))) ((s value from) (let fnrec2479 ((s s) (value value) (from from)) (let* ((sub (jolt-invoke (var-deref "clojure.core" "subs") s 0 from)) (r (jolt-invoke (var-deref "clojure.core" "str-reverse-b") sub)) (sval (jolt-invoke (var-deref "clojure.core" "str-reverse-b") value)) (idx (jolt-invoke (var-deref "clojure.core" "str-find") sval r))) (if (jolt-truthy? idx) (jolt-n- from (jolt-n+ idx (jolt-count value))) jolt-nil))))))) last-index-of)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.string" "re-quote-replacement" (letrec ((re-quote-replacement (lambda (replacement) (let fnrec2480 ((replacement replacement)) (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$2482 (lambda (ch) (let fnrec2481 ((ch ch)) (let* ((c (jolt-invoke (var-deref "clojure.core" "str") ch))) (if (let* ((or__26__auto (jolt= c "\\"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= c "$"))) (jolt-invoke (var-deref "clojure.core" "str") "\\" c) c))))) (_a$2483 (jolt-seq replacement))) (jolt-map _a$2482 _a$2483))))))) re-quote-replacement) (let* ((_o$2484 (keyword #f "doc")) (_o$2485 "Escape special characters (backslash and dollar) in a regex replacement\n string so it is used literally rather than interpreted.")) (jolt-hash-map _o$2484 _o$2485))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.string" "trim-newline" (letrec ((trim-newline (lambda (s) (let fnrec2486 ((s s)) (let* ((index (jolt-count s))) (let loop2487 ((index index)) (if (jolt-zero? index) "" (let* ((c (jolt-invoke (var-deref "clojure.core" "subs") s (jolt-dec index) index))) (if (let* ((or__26__auto (jolt= c "\n"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= c "\r"))) (loop2487 (jolt-dec index)) (jolt-invoke (var-deref "clojure.core" "subs") s 0 index)))))))))) trim-newline) (let* ((_o$2488 (keyword #f "doc")) (_o$2489 "Removes all trailing newline \\n or return \\r characters from\n string. Similar to Perl's chomp.")) (jolt-hash-map _o$2488 _o$2489))))
(guard (e (#t #f))
(def-var! "clojure.walk" "walk" (letrec ((walk (lambda (inner outer form) (let fnrec2490 ((inner inner) (outer outer) (form form)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") form)) (jolt-invoke outer (let* ((_a$2491 (var-deref "clojure.core" "with-meta")) (_a$2492 (jolt-invoke (var-deref "clojure.core" "vec") (jolt-map inner form))) (_a$2493 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2491 _a$2492 _a$2493))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "record?") form)) (jolt-invoke outer (jolt-reduce (lambda (r x) (let fnrec2494 ((r r) (x x)) (jolt-conj r (jolt-invoke inner x)))) form form)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") form)) (jolt-invoke outer (let* ((_a$2497 (var-deref "clojure.core" "with-meta")) (_a$2498 (let* ((_a$2495 (jolt-invoke (var-deref "clojure.core" "empty") form)) (_a$2496 (jolt-map inner form))) (jolt-into _a$2495 _a$2496))) (_a$2499 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2497 _a$2498 _a$2499))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "list?") form)) (jolt-invoke outer (let* ((_a$2500 (var-deref "clojure.core" "with-meta")) (_a$2501 (jolt-apply jolt-list (jolt-map inner form))) (_a$2502 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2500 _a$2501 _a$2502))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (jolt-invoke outer (let* ((_a$2503 (var-deref "clojure.core" "with-meta")) (_a$2504 (jolt-invoke (var-deref "clojure.core" "doall") (jolt-map inner form))) (_a$2505 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2503 _a$2504 _a$2505))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke outer form) jolt-nil)))))))))) walk)))
(guard (e (#t #f))
(def-var! "clojure.walk" "postwalk" (letrec ((postwalk (lambda (f form) (let fnrec2506 ((f f) (form form)) (jolt-invoke (var-deref "clojure.walk" "walk") (jolt-invoke (var-deref "clojure.core" "partial") postwalk f) f form))))) postwalk)))
(guard (e (#t #f))
(def-var! "clojure.walk" "prewalk" (letrec ((prewalk (lambda (f form) (let fnrec2507 ((f f) (form form)) (let* ((_a$2508 (var-deref "clojure.walk" "walk")) (_a$2509 (jolt-invoke (var-deref "clojure.core" "partial") prewalk f)) (_a$2510 jolt-identity) (_a$2511 (jolt-invoke f form))) (jolt-invoke _a$2508 _a$2509 _a$2510 _a$2511)))))) prewalk)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.walk" "postwalk-demo" (letrec ((postwalk-demo (lambda (form) (let fnrec2512 ((form form)) (jolt-invoke (var-deref "clojure.walk" "postwalk") (lambda (x) (let fnrec2513 ((x x)) (begin (jolt-invoke (var-deref "clojure.core" "print") "Walked: ") (jolt-invoke (var-deref "clojure.core" "prn") x) x))) form))))) postwalk-demo) (let* ((_o$2514 (keyword #f "doc")) (_o$2515 "Demonstrates the behavior of postwalk by printing each form as it is walked.")) (jolt-hash-map _o$2514 _o$2515))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.walk" "prewalk-demo" (letrec ((prewalk-demo (lambda (form) (let fnrec2516 ((form form)) (jolt-invoke (var-deref "clojure.walk" "prewalk") (lambda (x) (let fnrec2517 ((x x)) (begin (jolt-invoke (var-deref "clojure.core" "print") "Walked: ") (jolt-invoke (var-deref "clojure.core" "prn") x) x))) form))))) prewalk-demo) (let* ((_o$2518 (keyword #f "doc")) (_o$2519 "Demonstrates the behavior of prewalk by printing each form as it is walked.")) (jolt-hash-map _o$2518 _o$2519))))
(guard (e (#t #f))
(def-var! "clojure.walk" "postwalk-replace" (letrec ((postwalk-replace (lambda (smap form) (let fnrec2520 ((smap smap) (form form)) (jolt-invoke (var-deref "clojure.walk" "postwalk") (lambda (x) (let fnrec2521 ((x x)) (if (jolt-contains? smap x) (jolt-get smap x) x))) form))))) postwalk-replace)))
(guard (e (#t #f))
(def-var! "clojure.walk" "prewalk-replace" (letrec ((prewalk-replace (lambda (smap form) (let fnrec2522 ((smap smap) (form form)) (jolt-invoke (var-deref "clojure.walk" "prewalk") (lambda (x) (let fnrec2523 ((x x)) (if (jolt-contains? smap x) (jolt-get smap x) x))) form))))) prewalk-replace)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.walk" "macroexpand-all" (letrec ((macroexpand-all (lambda (form) (let fnrec2524 ((form form)) (jolt-invoke (var-deref "clojure.walk" "prewalk") (lambda (x) (let fnrec2525 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") x)) (jolt-invoke (var-deref "clojure.core" "macroexpand") x) x))) form))))) macroexpand-all) (let* ((_o$2526 (keyword #f "doc")) (_o$2527 "Recursively performs all possible macroexpansions in form.")) (jolt-hash-map _o$2526 _o$2527))))
(guard (e (#t #f))
(def-var! "clojure.walk" "keywordize-keys" (letrec ((keywordize-keys (lambda (m) (let fnrec2528 ((m m)) (let* ((f (lambda (G__108) (let fnrec2529 ((G__108 G__108)) (let* ((G__109 G__108) (k (jolt-nth G__109 0 jolt-nil)) (v (jolt-nth G__109 1 jolt-nil))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") k)) (let* ((_o$2530 (jolt-invoke (var-deref "clojure.core" "keyword") k)) (_o$2531 v)) (jolt-vector _o$2530 _o$2531)) (let* ((_o$2532 k) (_o$2533 v)) (jolt-vector _o$2532 _o$2533)))))))) (jolt-invoke (var-deref "clojure.walk" "postwalk") (lambda (x) (let fnrec2534 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") x)) (let* ((_a$2535 (jolt-hash-map)) (_a$2536 (jolt-map f x))) (jolt-into _a$2535 _a$2536)) x))) m)))))) keywordize-keys)))
(guard (e (#t #f))
(def-var! "clojure.walk" "stringify-keys" (letrec ((stringify-keys (lambda (m) (let fnrec2537 ((m m)) (let* ((f (lambda (G__110) (let fnrec2538 ((G__110 G__110)) (let* ((G__111 G__110) (k (jolt-nth G__111 0 jolt-nil)) (v (jolt-nth G__111 1 jolt-nil))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") k)) (let* ((_o$2539 (jolt-invoke (var-deref "clojure.core" "name") k)) (_o$2540 v)) (jolt-vector _o$2539 _o$2540)) (let* ((_o$2541 k) (_o$2542 v)) (jolt-vector _o$2541 _o$2542)))))))) (jolt-invoke (var-deref "clojure.walk" "postwalk") (lambda (x) (let fnrec2543 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") x)) (let* ((_a$2544 (jolt-hash-map)) (_a$2545 (jolt-map f x))) (jolt-into _a$2544 _a$2545)) x))) m)))))) stringify-keys)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.template" "apply-template" (letrec ((apply-template (lambda (argv expr _values) (let fnrec2375 ((argv argv) (expr expr) (_values _values)) (begin (if (jolt-not (jolt-invoke (var-deref "clojure.core" "vector?") argv)) (jolt-throw (host-new "AssertionError" "Assert failed: (vector? argv)")) jolt-nil) (if (jolt-not (jolt-invoke (var-deref "clojure.core" "every?") (var-deref "clojure.core" "symbol?") argv)) (jolt-throw (host-new "AssertionError" "Assert failed: (every? symbol? argv)")) jolt-nil) (jolt-invoke (var-deref "clojure.walk" "postwalk-replace") (jolt-invoke (var-deref "clojure.core" "zipmap") argv _values) expr)))))) apply-template) (let* ((_o$2376 (keyword #f "doc")) (_o$2377 "For use in macros. argv is an argument list, as in defn. expr is\n a quoted expression using the symbols in argv. values is a sequence\n of values to be used for the arguments.\n\n apply-template will recursively replace argument symbols in expr\n with their corresponding values, returning a modified expr.\n\n Example: (apply-template '[x] '(+ x x) '[2])\n ;=> (+ 2 2)")) (jolt-hash-map _o$2376 _o$2377))))
(guard (e (#t #f))
(def-var! "clojure.template" "do-template"
(lambda (argv expr . _values) (let fnrec2378 ((argv argv) (expr expr) (_values (list->cseq _values))) (let* ((c (jolt-count argv))) (let* ((_a$2382 (var-deref "clojure.core" "__sqcat")) (_a$2383 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$2384 (let* ((_a$2380 (lambda (a) (let fnrec2379 ((a a)) (jolt-invoke (var-deref "clojure.template" "apply-template") argv expr a)))) (_a$2381 (jolt-invoke (var-deref "clojure.core" "partition") c _values))) (jolt-map _a$2380 _a$2381)))) (jolt-invoke _a$2382 _a$2383 _a$2384))))))
(mark-macro! "clojure.template" "do-template"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.edn" "edn->value" (letrec ((edn->value (lambda (opts x) (let fnrec2385 ((opts opts) (x x)) (if (jolt= (keyword "jolt" "set") (jolt-get x (keyword "jolt" "type"))) (let* ((vs (let* ((_a$2387 (lambda (v) (let fnrec2386 ((v v)) (edn->value opts v)))) (_a$2388 (jolt-get x (keyword #f "value")))) (jolt-map _a$2387 _a$2388))) (st (jolt-invoke (var-deref "clojure.core" "set") vs))) (begin (if (let* ((_a$2389 (jolt-count st)) (_a$2390 (jolt-count vs))) (jolt-n< _a$2389 _a$2390)) (jolt-throw (host-new "IllegalArgumentException" (jolt-invoke (var-deref "clojure.core" "str") "Duplicate key: " (jolt-invoke (var-deref "clojure.core" "pr-str") (let* ((_a$2392 (var-deref "clojure.core" "some")) (_a$2393 (lambda (G__106) (let fnrec2391 ((G__106 G__106)) (let* ((G__107 G__106) (k (jolt-nth G__107 0 jolt-nil)) (n (jolt-nth G__107 1 jolt-nil))) (if (jolt-n< 1 n) k jolt-nil))))) (_a$2394 (jolt-invoke (var-deref "clojure.core" "frequencies") vs))) (jolt-invoke _a$2392 _a$2393 _a$2394)))))) jolt-nil) (jolt-invoke (var-deref "clojure.core" "with-meta") st (edn->value opts (jolt-invoke (var-deref "clojure.core" "meta") x))))) (if (jolt= (keyword "jolt" "tagged") (jolt-get x (keyword "jolt" "type"))) (let* ((tag (jolt-get x (keyword #f "tag"))) (v (edn->value opts (jolt-get x (keyword #f "form")))) (tag-sym (let* ((n (jolt-invoke (var-deref "clojure.core" "name") tag))) (jolt-invoke (var-deref "clojure.core" "symbol") (if (jolt= "#" (jolt-invoke (var-deref "clojure.core" "subs") n 0 1)) (jolt-invoke (var-deref "clojure.core" "subs") n 1) n)))) (custom (jolt-get (jolt-get opts (keyword #f "readers")) tag-sym))) (if (jolt-truthy? custom) (jolt-invoke custom v) (if (jolt-contains? (let* ((_o$2395 (jolt-symbol #f "inst")) (_o$2396 (jolt-symbol #f "uuid")) (_o$2397 (jolt-symbol #f "bigdec"))) (jolt-hash-set _o$2395 _o$2396 _o$2397)) tag-sym) (jolt-invoke (var-deref "clojure.core" "__read-tagged") tag v) (if (jolt-truthy? (jolt-get opts (keyword #f "default"))) (jolt-invoke (jolt-get opts (keyword #f "default")) tag-sym v) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "__read-tagged") tag v) jolt-nil))))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") x)) (let* ((_a$2403 (var-deref "clojure.core" "with-meta")) (_a$2404 (let* ((_a$2401 (jolt-hash-map)) (_a$2402 (jolt-map (lambda (e) (let fnrec2398 ((e e)) (let* ((_o$2399 (edn->value opts (jolt-invoke (var-deref "clojure.core" "key") e))) (_o$2400 (edn->value opts (jolt-invoke (var-deref "clojure.core" "val") e)))) (jolt-vector _o$2399 _o$2400)))) x))) (jolt-into _a$2401 _a$2402))) (_a$2405 (edn->value opts (jolt-invoke (var-deref "clojure.core" "meta") x)))) (jolt-invoke _a$2403 _a$2404 _a$2405)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") x)) (let* ((_a$2407 (var-deref "clojure.core" "with-meta")) (_a$2408 (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (v) (let fnrec2406 ((v v)) (edn->value opts v))) x)) (_a$2409 (edn->value opts (jolt-invoke (var-deref "clojure.core" "meta") x)))) (jolt-invoke _a$2407 _a$2408 _a$2409)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "set?") x)) (let* ((_a$2411 (var-deref "clojure.core" "with-meta")) (_a$2412 (jolt-invoke (var-deref "clojure.core" "set") (jolt-map (lambda (v) (let fnrec2410 ((v v)) (edn->value opts v))) x))) (_a$2413 (edn->value opts (jolt-invoke (var-deref "clojure.core" "meta") x)))) (jolt-invoke _a$2411 _a$2412 _a$2413)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") x)) (let* ((_a$2415 (var-deref "clojure.core" "with-meta")) (_a$2416 (jolt-apply jolt-list (jolt-map (lambda (v) (let fnrec2414 ((v v)) (edn->value opts v))) x))) (_a$2417 (edn->value opts (jolt-invoke (var-deref "clojure.core" "meta") x)))) (jolt-invoke _a$2415 _a$2416 _a$2417)) (if (jolt-truthy? (keyword #f "else")) x jolt-nil))))))))))) edn->value) (let* ((_o$2418 (keyword #f "private")) (_o$2419 #t)) (jolt-hash-map _o$2418 _o$2419))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.edn" "read-edn" (letrec ((read-edn (lambda (opts s) (let fnrec2420 ((opts opts) (s s)) (let* ((v (jolt-invoke (var-deref "clojure.core" "__read-form-edn") s (lambda (form) (let fnrec2421 ((form form)) (begin (jolt-invoke (var-deref "clojure.edn" "edn->value") opts form) jolt-nil)))))) (if (jolt= v (keyword "jolt" "reader-eof")) (if (jolt-contains? opts (keyword #f "eof")) (jolt-get opts (keyword #f "eof")) (jolt-throw (jolt-ex-info "EOF while reading" (jolt-hash-map)))) (jolt-invoke (var-deref "clojure.edn" "edn->value") opts v))))))) read-edn) (let* ((_o$2422 (keyword #f "private")) (_o$2423 #t)) (jolt-hash-map _o$2422 _o$2423))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.edn" "read-string" (letrec ((read-string (case-lambda ((s) (let fnrec2424 ((s s)) (jolt-invoke (var-deref "clojure.edn" "read-edn") (let* ((_o$2425 (keyword #f "eof")) (_o$2426 jolt-nil)) (jolt-hash-map _o$2425 _o$2426)) s))) ((opts s) (let fnrec2427 ((opts opts) (s s)) (jolt-invoke (var-deref "clojure.edn" "read-edn") opts s)))))) read-string) (let* ((_o$2428 (keyword #f "doc")) (_o$2429 "Reads one object from the string s. The no-opts arity returns nil at end of\n input; with an opts map, :eof sets the value returned at end of input and its\n absence makes end-of-input an error.")) (jolt-hash-map _o$2428 _o$2429))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.edn" "drain-reader" (letrec ((drain-reader (lambda (reader) (let fnrec2430 ((reader reader)) (let* ((acc (jolt-invoke (var-deref "clojure.core" "transient") (jolt-vector))) (c (record-method-dispatch reader "read" (jolt-vector)))) (let loop2431 ((acc acc) (c c)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "==") -1 c)) (jolt-apply (var-deref "clojure.core" "str") (jolt-map (var-deref "clojure.core" "char") (jolt-invoke (var-deref "clojure.core" "persistent!") acc))) (let* ((_a$2432 (jolt-invoke (var-deref "clojure.core" "conj!") acc c)) (_a$2433 (record-method-dispatch reader "read" (jolt-vector)))) (loop2431 _a$2432 _a$2433))))))))) drain-reader) (let* ((_o$2434 (keyword #f "private")) (_o$2435 #t) (_o$2436 (keyword #f "doc")) (_o$2437 "All remaining content of a reader as a string. Shim readers (StringReader,\n PushbackReader, io/reader results) expose char-wise .read; a raw file\n handle is read whole.")) (jolt-hash-map _o$2434 _o$2435 _o$2436 _o$2437))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.edn" "read" (letrec ((read (case-lambda ((reader) (let fnrec2438 ((reader reader)) (read (jolt-hash-map) reader))) ((opts reader) (let fnrec2439 ((opts opts) (reader reader)) (jolt-invoke (var-deref "clojure.edn" "read-edn") opts (jolt-invoke (var-deref "clojure.edn" "drain-reader") reader))))))) read) (let* ((_o$2440 (keyword #f "doc")) (_o$2441 "Reads one EDN object from reader (a PushbackReader or any jolt reader).\n Returns the :eof option value (default nil) at end of input.")) (jolt-hash-map _o$2440 _o$2441))))
(guard (e (#t #f))
(def-var! "clojure.set" "union" (letrec ((union (case-lambda (() (let fnrec1 () (jolt-hash-set))) ((s1) (let fnrec2 ((s1 s1)) s1)) ((s1 s2) (let fnrec3 ((s1 s1) (s2 s2)) (if (let* ((_a$4 (jolt-count s1)) (_a$5 (jolt-count s2))) (jolt-n< _a$4 _a$5)) (jolt-reduce jolt-conj s2 s1) (jolt-reduce jolt-conj s1 s2)))) ((s1 s2 . sets) (let fnrec6 ((s1 s1) (s2 s2) (sets (list->cseq sets))) (jolt-reduce union (union s1 s2) sets)))))) union)))
(guard (e (#t #f))
(def-var! "clojure.set" "intersection" (letrec ((intersection (case-lambda ((s1) (let fnrec7 ((s1 s1)) s1)) ((s1 s2) (let fnrec8 ((s1 s1) (s2 s2)) (jolt-reduce (lambda (acc item) (let fnrec9 ((acc acc) (item item)) (if (jolt-contains? s2 item) acc (jolt-invoke (var-deref "clojure.core" "disj") acc item)))) s1 s1))) ((s1 s2 . sets) (let fnrec10 ((s1 s1) (s2 s2) (sets (list->cseq sets))) (jolt-reduce intersection (intersection s1 s2) sets)))))) intersection)))
(guard (e (#t #f))
(def-var! "clojure.set" "difference" (letrec ((difference (case-lambda ((s1) (let fnrec11 ((s1 s1)) s1)) ((s1 s2) (let fnrec12 ((s1 s1) (s2 s2)) (jolt-reduce (var-deref "clojure.core" "disj") s1 s2))) ((s1 s2 . sets) (let fnrec13 ((s1 s1) (s2 s2) (sets (list->cseq sets))) (jolt-reduce difference (difference s1 s2) sets)))))) difference)))
(guard (e (#t #f))
(def-var! "clojure.set" "select" (letrec ((select (lambda (pred s) (let fnrec14 ((pred pred) (s s)) (jolt-reduce (lambda (acc item) (let fnrec15 ((acc acc) (item item)) (if (jolt-truthy? (jolt-invoke pred item)) acc (jolt-invoke (var-deref "clojure.core" "disj") acc item)))) s s))))) select)))
(guard (e (#t #f))
(def-var! "clojure.set" "project" (letrec ((project (lambda (xrel ks) (let fnrec16 ((xrel xrel) (ks ks)) (jolt-invoke (var-deref "clojure.core" "set") (jolt-map (lambda (p__1_) (let fnrec17 ((p__1_ p__1_)) (jolt-invoke (var-deref "clojure.core" "select-keys") p__1_ ks))) xrel)))))) project)))
(guard (e (#t #f))
(def-var! "clojure.set" "rename-keys" (letrec ((rename-keys (lambda (map kmap) (let fnrec18 ((map map) (kmap kmap)) (let* ((_a$20 (lambda (m G__1) (let fnrec19 ((m m) (G__1 G__1)) (let* ((G__2 G__1) (old (jolt-nth G__2 0 jolt-nil)) (new (jolt-nth G__2 1 jolt-nil))) (if (jolt-contains? map old) (jolt-assoc m new (jolt-get map old)) m))))) (_a$21 (jolt-apply jolt-dissoc map (jolt-keys kmap))) (_a$22 kmap)) (jolt-reduce _a$20 _a$21 _a$22)))))) rename-keys)))
(guard (e (#t #f))
(def-var! "clojure.set" "map-invert" (letrec ((map-invert (lambda (m) (let fnrec23 ((m m)) (let* ((_a$25 (lambda (acc G__3) (let fnrec24 ((acc acc) (G__3 G__3)) (let* ((G__4 G__3) (k (jolt-nth G__4 0 jolt-nil)) (v (jolt-nth G__4 1 jolt-nil))) (jolt-assoc acc v k))))) (_a$26 (jolt-hash-map)) (_a$27 m)) (jolt-reduce _a$25 _a$26 _a$27)))))) map-invert)))
(guard (e (#t #f))
(def-var! "clojure.set" "rename" (letrec ((rename (lambda (xrel kmap) (let fnrec28 ((xrel xrel) (kmap kmap)) (jolt-invoke (var-deref "clojure.core" "set") (jolt-map (lambda (m) (let fnrec29 ((m m)) (let* ((_a$31 (lambda (acc G__5) (let fnrec30 ((acc acc) (G__5 G__5)) (let* ((G__6 G__5) (old (jolt-nth G__6 0 jolt-nil)) (new (jolt-nth G__6 1 jolt-nil))) (if (jolt-contains? m old) (jolt-assoc acc new (jolt-get m old)) acc))))) (_a$32 (jolt-apply jolt-dissoc m (jolt-keys kmap))) (_a$33 kmap)) (jolt-reduce _a$31 _a$32 _a$33)))) xrel)))))) rename)))
(guard (e (#t #f))
(def-var! "clojure.set" "index" (letrec ((index (lambda (xrel ks) (let fnrec34 ((xrel xrel) (ks ks)) (let* ((_a$36 (lambda (m x) (let fnrec35 ((m m) (x x)) (let* ((ik (jolt-invoke (var-deref "clojure.core" "select-keys") x ks))) (jolt-assoc m ik (jolt-conj (jolt-get m ik (jolt-hash-set)) x)))))) (_a$37 (jolt-hash-map)) (_a$38 xrel)) (jolt-reduce _a$36 _a$37 _a$38)))))) index)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.set" "join" (letrec ((join (case-lambda ((xrel yrel) (let fnrec39 ((xrel xrel) (yrel yrel)) (if (jolt-truthy? (let* ((and__25__auto (jolt-seq xrel))) (if (jolt-truthy? and__25__auto) (jolt-seq yrel) and__25__auto))) (let* ((ks (let* ((_a$40 (var-deref "clojure.set" "intersection")) (_a$41 (jolt-invoke (var-deref "clojure.core" "set") (jolt-keys (jolt-first xrel)))) (_a$42 (jolt-invoke (var-deref "clojure.core" "set") (jolt-keys (jolt-first yrel))))) (jolt-invoke _a$40 _a$41 _a$42))) (G__7 (if (let* ((_a$43 (jolt-count xrel)) (_a$44 (jolt-count yrel))) (jolt-n<= _a$43 _a$44)) (let* ((_o$45 xrel) (_o$46 yrel)) (jolt-vector _o$45 _o$46)) (let* ((_o$47 yrel) (_o$48 xrel)) (jolt-vector _o$47 _o$48)))) (r (jolt-nth G__7 0 jolt-nil)) (s (jolt-nth G__7 1 jolt-nil)) (idx (jolt-invoke (var-deref "clojure.set" "index") r ks))) (let* ((_a$51 (lambda (ret x) (let fnrec49 ((ret ret) (x x)) (let* ((found (jolt-invoke idx (jolt-invoke (var-deref "clojure.core" "select-keys") x ks)))) (if (jolt-truthy? found) (jolt-reduce (lambda (acc y) (let fnrec50 ((acc acc) (y y)) (jolt-conj acc (jolt-invoke (var-deref "clojure.core" "merge") y x)))) ret found) ret))))) (_a$52 (jolt-hash-set)) (_a$53 s)) (jolt-reduce _a$51 _a$52 _a$53))) (jolt-hash-set)))) ((xrel yrel km) (let fnrec54 ((xrel xrel) (yrel yrel) (km km)) (let* ((G__8 (if (let* ((_a$55 (jolt-count xrel)) (_a$56 (jolt-count yrel))) (jolt-n<= _a$55 _a$56)) (let* ((_o$57 xrel) (_o$58 yrel) (_o$59 (jolt-invoke (var-deref "clojure.set" "map-invert") km))) (jolt-vector _o$57 _o$58 _o$59)) (let* ((_o$60 yrel) (_o$61 xrel) (_o$62 km)) (jolt-vector _o$60 _o$61 _o$62)))) (r (jolt-nth G__8 0 jolt-nil)) (s (jolt-nth G__8 1 jolt-nil)) (k (jolt-nth G__8 2 jolt-nil)) (idx (jolt-invoke (var-deref "clojure.set" "index") r (jolt-vals k)))) (let* ((_a$65 (lambda (ret x) (let fnrec63 ((ret ret) (x x)) (let* ((found (jolt-invoke idx (jolt-invoke (var-deref "clojure.set" "rename-keys") (jolt-invoke (var-deref "clojure.core" "select-keys") x (jolt-keys k)) k)))) (if (jolt-truthy? found) (jolt-reduce (lambda (acc y) (let fnrec64 ((acc acc) (y y)) (jolt-conj acc (jolt-invoke (var-deref "clojure.core" "merge") y x)))) ret found) ret))))) (_a$66 (jolt-hash-set)) (_a$67 s)) (jolt-reduce _a$65 _a$66 _a$67)))))))) join) (let* ((_o$68 (keyword #f "doc")) (_o$69 "When passed 2 rels, returns the rel corresponding to the natural join.\n When passed an additional keymap, joins on the corresponding keys.")) (jolt-hash-map _o$68 _o$69))))
(guard (e (#t #f))
(def-var! "clojure.set" "subset?" (letrec ((subset? (lambda (set1 set2) (let fnrec70 ((set1 set1) (set2 set2)) (let* ((and__25__auto (let* ((_a$71 (jolt-count set1)) (_a$72 (jolt-count set2))) (jolt-n<= _a$71 _a$72)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (p__2_) (let fnrec73 ((p__2_ p__2_)) (jolt-contains? set2 p__2_))) set1) and__25__auto)))))) subset?)))
(guard (e (#t #f))
(def-var! "clojure.set" "superset?" (letrec ((superset? (lambda (set1 set2) (let fnrec74 ((set1 set1) (set2 set2)) (let* ((and__25__auto (let* ((_a$75 (jolt-count set1)) (_a$76 (jolt-count set2))) (jolt-n>= _a$75 _a$76)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (p__3_) (let fnrec77 ((p__3_ p__3_)) (jolt-contains? set1 p__3_))) set2) and__25__auto)))))) superset?)))
(guard (e (#t #f))
(def-var! "clojure.pprint" "getf"
(lambda (sym) (let fnrec78 ((sym sym)) (let* ((_a$85 (var-deref "clojure.core" "__sqcat")) (_a$86 (jolt-invoke (var-deref "clojure.core" "__sq1") sym)) (_a$87 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$82 (var-deref "clojure.core" "__sqcat")) (_a$83 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "deref"))) (_a$84 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$79 (var-deref "clojure.core" "__sqcat")) (_a$80 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f ".-fields"))) (_a$81 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "this")))) (jolt-invoke _a$79 _a$80 _a$81))))) (jolt-invoke _a$82 _a$83 _a$84))))) (jolt-invoke _a$85 _a$86 _a$87)))))
(mark-macro! "clojure.pprint" "getf"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "setf"
(lambda (sym new-val) (let fnrec88 ((sym sym) (new-val new-val)) (let* ((_a$92 (var-deref "clojure.core" "__sqcat")) (_a$93 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "swap!"))) (_a$94 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$89 (var-deref "clojure.core" "__sqcat")) (_a$90 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f ".-fields"))) (_a$91 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "this")))) (jolt-invoke _a$89 _a$90 _a$91)))) (_a$95 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "assoc"))) (_a$96 (jolt-invoke (var-deref "clojure.core" "__sq1") sym)) (_a$97 (jolt-invoke (var-deref "clojure.core" "__sq1") new-val))) (jolt-invoke _a$92 _a$93 _a$94 _a$95 _a$96 _a$97)))))
(mark-macro! "clojure.pprint" "setf"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "deftype"
(lambda (type-name . fields) (let fnrec98 ((type-name type-name) (fields (list->cseq fields))) (let* ((name-str (jolt-invoke (var-deref "clojure.core" "name") type-name)) (fields (jolt-map (jolt-invoke (var-deref "clojure.core" "comp") (var-deref "clojure.core" "symbol") (var-deref "clojure.core" "name")) fields))) (let* ((_a$124 (var-deref "clojure.core" "__sqcat")) (_a$125 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$126 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$99 (var-deref "clojure.core" "__sqcat")) (_a$100 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defrecord"))) (_a$101 (jolt-invoke (var-deref "clojure.core" "__sq1") type-name)) (_a$102 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "type-tag")) fields)))) (jolt-invoke _a$99 _a$100 _a$101 _a$102)))) (_a$127 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$107 (var-deref "clojure.core" "__sqcat")) (_a$108 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defn-"))) (_a$109 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "make-" name-str)))) (_a$110 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "vec") fields))) (_a$111 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$103 (var-deref "clojure.core" "__sqcat")) (_a$104 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") "->" type-name)))) (_a$105 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "keyword") name-str))) (_a$106 fields)) (jolt-invoke _a$103 _a$104 _a$105 _a$106))))) (jolt-invoke _a$107 _a$108 _a$109 _a$110 _a$111)))) (_a$128 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$119 (var-deref "clojure.core" "__sqcat")) (_a$120 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "defn-"))) (_a$121 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "symbol") (jolt-invoke (var-deref "clojure.core" "str") name-str "?")))) (_a$122 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "x__1__auto"))))) (_a$123 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$115 (var-deref "clojure.core" "__sqcat")) (_a$116 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$117 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$112 (var-deref "clojure.core" "__sqcat")) (_a$113 (jolt-invoke (var-deref "clojure.core" "__sq1") (keyword #f "type-tag"))) (_a$114 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "x__1__auto")))) (jolt-invoke _a$112 _a$113 _a$114)))) (_a$118 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "keyword") name-str)))) (jolt-invoke _a$115 _a$116 _a$117 _a$118))))) (jolt-invoke _a$119 _a$120 _a$121 _a$122 _a$123))))) (jolt-invoke _a$124 _a$125 _a$126 _a$127 _a$128))))))
(mark-macro! "clojure.pprint" "deftype"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "pprint-logical-block"
(lambda args (let fnrec129 ((args (list->cseq args))) (let* ((G__9 (let* ((body args) (acc (jolt-vector))) (let loop130 ((body body) (acc acc)) (if (jolt-truthy? (let* ((_a$134 (let* ((_o$131 (keyword #f "prefix")) (_o$132 (keyword #f "per-line-prefix")) (_o$133 (keyword #f "suffix"))) (jolt-hash-set _o$131 _o$132 _o$133))) (_a$135 (jolt-first body))) (jolt-get _a$134 _a$135))) (let* ((_a$136 (jolt-drop 2 body)) (_a$137 (jolt-concat acc (jolt-take 2 body)))) (loop130 _a$136 _a$137)) (let* ((_o$138 (jolt-apply jolt-hash-map-fn acc)) (_o$139 body)) (jolt-vector _o$138 _o$139)))))) (options (jolt-nth G__9 0 jolt-nil)) (body (jolt-nth G__9 1 jolt-nil))) (let* ((_a$172 (var-deref "clojure.core" "__sqcat")) (_a$173 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "do"))) (_a$174 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$167 (var-deref "clojure.core" "__sqcat")) (_a$168 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$169 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "level-exceeded"))))) (_a$170 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$140 (var-deref "clojure.core" "__sqcat")) (_a$141 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "-write"))) (_a$142 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*out*"))) (_a$143 (jolt-invoke (var-deref "clojure.core" "__sq1") "#"))) (jolt-invoke _a$140 _a$141 _a$142 _a$143)))) (_a$171 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$161 (var-deref "clojure.core" "__sqcat")) (_a$162 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "binding"))) (_a$163 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$147 (var-deref "clojure.core" "__sqvec")) (_a$148 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*current-level*"))) (_a$149 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$144 (var-deref "clojure.core" "__sqcat")) (_a$145 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "inc"))) (_a$146 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*current-level*")))) (jolt-invoke _a$144 _a$145 _a$146)))) (_a$150 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*current-length*"))) (_a$151 (jolt-invoke (var-deref "clojure.core" "__sq1") 0))) (jolt-invoke _a$147 _a$148 _a$149 _a$150 _a$151)))) (_a$164 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$152 (var-deref "clojure.core" "__sqcat")) (_a$153 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "start-block"))) (_a$154 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*out*"))) (_a$155 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-get options (keyword #f "prefix")))) (_a$156 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-get options (keyword #f "per-line-prefix")))) (_a$157 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-get options (keyword #f "suffix"))))) (jolt-invoke _a$152 _a$153 _a$154 _a$155 _a$156 _a$157)))) (_a$165 body) (_a$166 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$158 (var-deref "clojure.core" "__sqcat")) (_a$159 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "end-block"))) (_a$160 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*out*")))) (jolt-invoke _a$158 _a$159 _a$160))))) (jolt-invoke _a$161 _a$162 _a$163 _a$164 _a$165 _a$166))))) (jolt-invoke _a$167 _a$168 _a$169 _a$170 _a$171)))) (_a$175 (jolt-invoke (var-deref "clojure.core" "__sq1") jolt-nil))) (jolt-invoke _a$172 _a$173 _a$174 _a$175))))))
(mark-macro! "clojure.pprint" "pprint-logical-block"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "print-length-loop"
(lambda (bindings . body) (let fnrec176 ((bindings bindings) (body (list->cseq body))) (let* ((_a$177 (var-deref "clojure.core" "__sqcat")) (_a$178 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "loop"))) (_a$179 (jolt-invoke (var-deref "clojure.core" "__sq1") bindings)) (_a$180 body)) (jolt-invoke _a$177 _a$178 _a$179 _a$180)))))
(mark-macro! "clojure.pprint" "print-length-loop"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "formatter-out"
(lambda (format-in) (let fnrec181 ((format-in format-in)) (let* ((_a$219 (var-deref "clojure.core" "__sqcat")) (_a$220 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$221 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$193 (var-deref "clojure.core" "__sqvec")) (_a$194 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__5__auto"))) (_a$195 (jolt-invoke (var-deref "clojure.core" "__sq1") format-in)) (_a$196 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "cf__3__auto"))) (_a$197 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$188 (var-deref "clojure.core" "__sqcat")) (_a$189 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$190 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$182 (var-deref "clojure.core" "__sqcat")) (_a$183 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "string?"))) (_a$184 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__5__auto")))) (jolt-invoke _a$182 _a$183 _a$184)))) (_a$191 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$185 (var-deref "clojure.core" "__sqcat")) (_a$186 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "cached-compile"))) (_a$187 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__5__auto")))) (jolt-invoke _a$185 _a$186 _a$187)))) (_a$192 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__5__auto")))) (jolt-invoke _a$188 _a$189 _a$190 _a$191 _a$192))))) (jolt-invoke _a$193 _a$194 _a$195 _a$196 _a$197)))) (_a$222 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$215 (var-deref "clojure.core" "__sqcat")) (_a$216 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$217 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$198 (var-deref "clojure.core" "__sqvec")) (_a$199 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "&"))) (_a$200 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "args__4__auto")))) (jolt-invoke _a$198 _a$199 _a$200)))) (_a$218 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$211 (var-deref "clojure.core" "__sqcat")) (_a$212 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$213 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$204 (var-deref "clojure.core" "__sqvec")) (_a$205 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "navigator__2__auto"))) (_a$206 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$201 (var-deref "clojure.core" "__sqcat")) (_a$202 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "init-navigator"))) (_a$203 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "args__4__auto")))) (jolt-invoke _a$201 _a$202 _a$203))))) (jolt-invoke _a$204 _a$205 _a$206)))) (_a$214 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$207 (var-deref "clojure.core" "__sqcat")) (_a$208 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "execute-format"))) (_a$209 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "cf__3__auto"))) (_a$210 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "navigator__2__auto")))) (jolt-invoke _a$207 _a$208 _a$209 _a$210))))) (jolt-invoke _a$211 _a$212 _a$213 _a$214))))) (jolt-invoke _a$215 _a$216 _a$217 _a$218))))) (jolt-invoke _a$219 _a$220 _a$221 _a$222)))))
(mark-macro! "clojure.pprint" "formatter-out"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "formatter"
(lambda (format-in) (let fnrec223 ((format-in format-in)) (let* ((_a$263 (var-deref "clojure.core" "__sqcat")) (_a$264 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$265 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$235 (var-deref "clojure.core" "__sqvec")) (_a$236 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__10__auto"))) (_a$237 (jolt-invoke (var-deref "clojure.core" "__sq1") format-in)) (_a$238 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "cf__6__auto"))) (_a$239 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$230 (var-deref "clojure.core" "__sqcat")) (_a$231 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$232 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$224 (var-deref "clojure.core" "__sqcat")) (_a$225 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "string?"))) (_a$226 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__10__auto")))) (jolt-invoke _a$224 _a$225 _a$226)))) (_a$233 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$227 (var-deref "clojure.core" "__sqcat")) (_a$228 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "cached-compile"))) (_a$229 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__10__auto")))) (jolt-invoke _a$227 _a$228 _a$229)))) (_a$234 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "format-in__10__auto")))) (jolt-invoke _a$230 _a$231 _a$232 _a$233 _a$234))))) (jolt-invoke _a$235 _a$236 _a$237 _a$238 _a$239)))) (_a$266 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$259 (var-deref "clojure.core" "__sqcat")) (_a$260 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$261 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$240 (var-deref "clojure.core" "__sqvec")) (_a$241 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "stream__8__auto"))) (_a$242 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "&"))) (_a$243 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "args__9__auto")))) (jolt-invoke _a$240 _a$241 _a$242 _a$243)))) (_a$262 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$255 (var-deref "clojure.core" "__sqcat")) (_a$256 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$257 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$247 (var-deref "clojure.core" "__sqvec")) (_a$248 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "navigator__7__auto"))) (_a$249 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$244 (var-deref "clojure.core" "__sqcat")) (_a$245 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "init-navigator"))) (_a$246 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "args__9__auto")))) (jolt-invoke _a$244 _a$245 _a$246))))) (jolt-invoke _a$247 _a$248 _a$249)))) (_a$258 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$250 (var-deref "clojure.core" "__sqcat")) (_a$251 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "execute-format"))) (_a$252 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "stream__8__auto"))) (_a$253 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "cf__6__auto"))) (_a$254 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "navigator__7__auto")))) (jolt-invoke _a$250 _a$251 _a$252 _a$253 _a$254))))) (jolt-invoke _a$255 _a$256 _a$257 _a$258))))) (jolt-invoke _a$259 _a$260 _a$261 _a$262))))) (jolt-invoke _a$263 _a$264 _a$265 _a$266)))))
(mark-macro! "clojure.pprint" "formatter"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "with-pprint-dispatch"
(lambda (function . body) (let fnrec267 ((function function) (body (list->cseq body))) (let* ((_a$271 (var-deref "clojure.core" "__sqcat")) (_a$272 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "binding"))) (_a$273 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$268 (var-deref "clojure.core" "__sqvec")) (_a$269 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*print-pprint-dispatch*"))) (_a$270 (jolt-invoke (var-deref "clojure.core" "__sq1") function))) (jolt-invoke _a$268 _a$269 _a$270)))) (_a$274 body)) (jolt-invoke _a$271 _a$272 _a$273 _a$274)))))
(mark-macro! "clojure.pprint" "with-pprint-dispatch"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "pp"
(lambda () (let fnrec275 () jolt-nil)))
(mark-macro! "clojure.pprint" "pp"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "print" (letrec ((print (lambda more (let fnrec276 ((more (list->cseq more))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") (jolt-apply (var-deref "clojure.core" "print-str") more)))))) print) (let* ((_o$277 (keyword #f "private")) (_o$278 #t)) (jolt-hash-map _o$277 _o$278))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "println" (letrec ((println (lambda more (let fnrec279 ((more (list->cseq more))) (begin (jolt-apply (var-deref "clojure.pprint" "print") more) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "\n")))))) println) (let* ((_o$280 (keyword #f "private")) (_o$281 #t)) (jolt-hash-map _o$280 _o$281))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "print-char" (letrec ((print-char (lambda (c) (let fnrec282 ((c c)) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") (let* ((G__10 jolt=) (G__11 c)) (if (jolt-truthy? (jolt-invoke G__10 (integer->char 8) G__11)) "\\backspace" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 32) G__11)) "\\space" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 9) G__11)) "\\tab" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 10) G__11)) "\\newline" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 12) G__11)) "\\formfeed" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 13) G__11)) "\\return" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 34) G__11)) "\\\"" (if (jolt-truthy? (jolt-invoke G__10 (integer->char 92) G__11)) "\\\\" (jolt-invoke (var-deref "clojure.core" "str") "\\" c))))))))))))))) print-char) (let* ((_o$283 (keyword #f "private")) (_o$284 #t)) (jolt-hash-map _o$283 _o$284))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pr" (letrec ((pr (lambda more (let fnrec285 ((more (list->cseq more))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") (jolt-apply (var-deref "clojure.core" "pr-str") more)))))) pr) (let* ((_o$286 (keyword #f "dynamic")) (_o$287 #t) (_o$288 (keyword #f "private")) (_o$289 #t)) (jolt-hash-map _o$286 _o$287 _o$288 _o$289))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "prn" (letrec ((prn (lambda more (let fnrec290 ((more (list->cseq more))) (begin (jolt-apply (var-deref "clojure.pprint" "pr") more) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "\n")))))) prn) (let* ((_o$291 (keyword #f "private")) (_o$292 #t)) (jolt-hash-map _o$291 _o$292))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "float?" (letrec ((float? (lambda (n) (let fnrec293 ((n n)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") n))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "integer?") n)) and__25__auto)))))) float?) (let* ((_o$294 (keyword #f "private")) (_o$295 #t)) (jolt-hash-map _o$294 _o$295))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "char-code" (letrec ((char-code (lambda (c) (let fnrec296 ((c c)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") c)) c (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "char?") c)) (jolt-invoke (var-deref "clojure.core" "int") c) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "string?") c))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-count c) 1) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "int") (record-method-dispatch c "charAt" (jolt-vector 0))) (if (jolt-truthy? (keyword #f "else")) (jolt-throw (host-new "Exception" "Argument to char must be a character or number")) jolt-nil)))))))) char-code) (let* ((_o$297 (keyword #f "private")) (_o$298 #t)) (jolt-hash-map _o$297 _o$298))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "map-passing-context" (letrec ((map-passing-context (lambda (func initial-context lis) (let fnrec299 ((func func) (initial-context initial-context) (lis lis)) (let* ((context initial-context) (lis lis) (acc (jolt-vector))) (let loop300 ((context context) (lis lis) (acc acc)) (if (jolt-empty? lis) (let* ((_o$301 acc) (_o$302 context)) (jolt-vector _o$301 _o$302)) (let* ((this (jolt-first lis)) (remainder (jolt-next lis)) (G__12 (jolt-apply func (let* ((_o$303 this) (_o$304 context)) (jolt-vector _o$303 _o$304)))) (result (jolt-nth G__12 0 jolt-nil)) (new-context (jolt-nth G__12 1 jolt-nil))) (loop300 new-context remainder (jolt-conj acc result)))))))))) map-passing-context) (let* ((_o$305 (keyword #f "private")) (_o$306 #t)) (jolt-hash-map _o$305 _o$306))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "consume" (letrec ((consume (lambda (func initial-context) (let fnrec307 ((func func) (initial-context initial-context)) (let* ((context initial-context) (acc (jolt-vector))) (let loop308 ((context context) (acc acc)) (let* ((G__13 (jolt-apply func (jolt-vector context))) (result (jolt-nth G__13 0 jolt-nil)) (new-context (jolt-nth G__13 1 jolt-nil))) (if (jolt-not result) (let* ((_o$309 acc) (_o$310 new-context)) (jolt-vector _o$309 _o$310)) (loop308 new-context (jolt-conj acc result)))))))))) consume) (let* ((_o$311 (keyword #f "private")) (_o$312 #t)) (jolt-hash-map _o$311 _o$312))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "unzip-map" (letrec ((unzip-map (lambda (m) (let fnrec313 ((m m)) (let* ((_o$324 (let* ((_a$317 (jolt-hash-map)) (_a$318 (jolt-map (lambda (G__14) (let fnrec314 ((G__14 G__14)) (let* ((G__15 G__14) (k (jolt-nth G__15 0 jolt-nil)) (G__16 (jolt-nth G__15 1 jolt-nil)) (v1 (jolt-nth G__16 0 jolt-nil)) (v2 (jolt-nth G__16 1 jolt-nil))) (let* ((_o$315 k) (_o$316 v1)) (jolt-vector _o$315 _o$316))))) m))) (jolt-into _a$317 _a$318))) (_o$325 (let* ((_a$322 (jolt-hash-map)) (_a$323 (jolt-map (lambda (G__17) (let fnrec319 ((G__17 G__17)) (let* ((G__18 G__17) (k (jolt-nth G__18 0 jolt-nil)) (G__19 (jolt-nth G__18 1 jolt-nil)) (v1 (jolt-nth G__19 0 jolt-nil)) (v2 (jolt-nth G__19 1 jolt-nil))) (let* ((_o$320 k) (_o$321 v2)) (jolt-vector _o$320 _o$321))))) m))) (jolt-into _a$322 _a$323)))) (jolt-vector _o$324 _o$325)))))) unzip-map) (let* ((_o$326 (keyword #f "private")) (_o$327 #t)) (jolt-hash-map _o$326 _o$327))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "tuple-map" (letrec ((tuple-map (lambda (m v1) (let fnrec328 ((m m) (v1 v1)) (let* ((_a$334 (jolt-hash-map)) (_a$335 (jolt-map (lambda (G__20) (let fnrec329 ((G__20 G__20)) (let* ((G__21 G__20) (k (jolt-nth G__21 0 jolt-nil)) (v (jolt-nth G__21 1 jolt-nil))) (let* ((_o$332 k) (_o$333 (let* ((_o$330 v) (_o$331 v1)) (jolt-vector _o$330 _o$331)))) (jolt-vector _o$332 _o$333))))) m))) (jolt-into _a$334 _a$335)))))) tuple-map) (let* ((_o$336 (keyword #f "private")) (_o$337 #t)) (jolt-hash-map _o$336 _o$337))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "rtrim" (letrec ((rtrim (lambda (s c) (let fnrec338 ((s s) (c c)) (let* ((len (jolt-count s))) (if (let* ((and__25__auto (jolt-pos? len))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-nth s (jolt-dec (jolt-count s))) c) and__25__auto)) (let* ((n (jolt-dec len))) (let loop339 ((n n)) (if (jolt-neg? n) "" (if (jolt-not (jolt= (jolt-nth s n) c)) (jolt-invoke (var-deref "clojure.core" "subs") s 0 (jolt-inc n)) (if #t (loop339 (jolt-dec n)) jolt-nil))))) s)))))) rtrim) (let* ((_o$340 (keyword #f "private")) (_o$341 #t)) (jolt-hash-map _o$340 _o$341))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "ltrim" (letrec ((ltrim (lambda (s c) (let fnrec342 ((s s) (c c)) (let* ((len (jolt-count s))) (if (let* ((and__25__auto (jolt-pos? len))) (if (jolt-truthy? and__25__auto) (jolt= (jolt-nth s 0) c) and__25__auto)) (let* ((n 0)) (let loop343 ((n n)) (if (let* ((or__26__auto (jolt= n len))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-not (jolt= (jolt-nth s n) c)))) (jolt-invoke (var-deref "clojure.core" "subs") s n) (loop343 (jolt-inc n))))) s)))))) ltrim) (let* ((_o$344 (keyword #f "private")) (_o$345 #t)) (jolt-hash-map _o$344 _o$345))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "prefix-count" (letrec ((prefix-count (lambda (aseq val) (let fnrec346 ((aseq aseq) (val val)) (let* ((test (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "coll?") val)) (jolt-invoke (var-deref "clojure.core" "set") val) (jolt-hash-set val)))) (let* ((pos 0)) (let loop347 ((pos pos)) (if (let* ((or__26__auto (jolt= pos (jolt-count aseq)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-not (jolt-invoke test (jolt-nth aseq pos))))) pos (loop347 (jolt-inc pos)))))))))) prefix-count) (let* ((_o$348 (keyword #f "private")) (_o$349 #t)) (jolt-hash-map _o$348 _o$349))))
(guard (e (#t #f))
(begin (def-var! "clojure.pprint" "IPrettyFlush" (jolt-invoke (var-deref "clojure.core" "make-protocol") "IPrettyFlush" (let* ((_o$352 (keyword #f "-ppflush")) (_o$353 (let* ((_o$350 (keyword #f "name")) (_o$351 "-ppflush")) (jolt-hash-map _o$350 _o$351)))) (jolt-hash-map _o$352 _o$353)))) (jolt-invoke (var-deref "clojure.core" "register-protocol-methods!") "IPrettyFlush" (jolt-vector "-ppflush")) (def-var! "clojure.pprint" "-ppflush" (lambda (G__22) (let fnrec354 ((G__22 G__22)) (protocol-dispatch1 "IPrettyFlush" "-ppflush" G__22))))))
(guard (e (#t #f))
(begin (def-var! "clojure.pprint" "IPrettyWriter" (jolt-invoke (var-deref "clojure.core" "make-protocol") "IPrettyWriter" (let* ((_o$359 (keyword #f "-write")) (_o$360 (let* ((_o$355 (keyword #f "name")) (_o$356 "-write")) (jolt-hash-map _o$355 _o$356))) (_o$361 (keyword #f "-pflush")) (_o$362 (let* ((_o$357 (keyword #f "name")) (_o$358 "-pflush")) (jolt-hash-map _o$357 _o$358)))) (jolt-hash-map _o$359 _o$360 _o$361 _o$362)))) (jolt-invoke (var-deref "clojure.core" "register-protocol-methods!") "IPrettyWriter" (let* ((_o$363 "-write") (_o$364 "-pflush")) (jolt-vector _o$363 _o$364))) (def-var! "clojure.pprint" "-write" (lambda (G__23 G__24) (let fnrec365 ((G__23 G__23) (G__24 G__24)) (protocol-dispatch2 "IPrettyWriter" "-write" G__23 G__24)))) (def-var! "clojure.pprint" "-pflush" (lambda (G__25) (let fnrec366 ((G__25 G__25)) (protocol-dispatch1 "IPrettyWriter" "-pflush" G__25))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*default-page-width*" 72 (let* ((_o$367 (keyword #f "private")) (_o$368 #t) (_o$369 (keyword #f "dynamic")) (_o$370 #t)) (jolt-hash-map _o$367 _o$368 _o$369 _o$370))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-field" (letrec ((get-field (lambda (this sym) (let fnrec371 ((this this) (sym sym)) (jolt-invoke sym (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector)))))))) get-field) (let* ((_o$372 (keyword #f "private")) (_o$373 #t)) (jolt-hash-map _o$372 _o$373))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "set-field" (letrec ((set-field (lambda (this sym new-val) (let fnrec374 ((this this) (sym sym) (new-val new-val)) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc sym new-val))))) set-field) (let* ((_o$375 (keyword #f "private")) (_o$376 #t)) (jolt-hash-map _o$375 _o$376))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-column" (letrec ((get-column (lambda (this) (let fnrec377 ((this this)) (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "cur")))))) get-column) (let* ((_o$378 (keyword #f "private")) (_o$379 #t)) (jolt-hash-map _o$378 _o$379))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-line" (letrec ((get-line (lambda (this) (let fnrec380 ((this this)) (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "line")))))) get-line) (let* ((_o$381 (keyword #f "private")) (_o$382 #t)) (jolt-hash-map _o$381 _o$382))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-max-column" (letrec ((get-max-column (lambda (this) (let fnrec383 ((this this)) (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "max")))))) get-max-column) (let* ((_o$384 (keyword #f "private")) (_o$385 #t)) (jolt-hash-map _o$384 _o$385))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "set-max-column" (letrec ((set-max-column (lambda (this new-max) (let fnrec386 ((this this) (new-max new-max)) (begin (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "max") new-max) jolt-nil))))) set-max-column) (let* ((_o$387 (keyword #f "private")) (_o$388 #t)) (jolt-hash-map _o$387 _o$388))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-writer" (letrec ((get-writer (lambda (this) (let fnrec389 ((this this)) (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "base")))))) get-writer) (let* ((_o$390 (keyword #f "private")) (_o$391 #t)) (jolt-hash-map _o$390 _o$391))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "c-write-char" (letrec ((c-write-char (lambda (this c) (let fnrec392 ((this this) (c c)) (begin (if (jolt= c (integer->char 10)) (begin (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "cur") 0) (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "line") (jolt-inc (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "line"))))) (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "cur") (jolt-inc (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "cur"))))) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "base")) c)))))) c-write-char) (let* ((_o$393 (keyword #f "private")) (_o$394 #t)) (jolt-hash-map _o$393 _o$394))))
(guard (e (#t #f))
(begin (begin (def-var! "clojure.pprint" "StringBufferWriter" (let* ((_a$395 (var-deref "clojure.core" "make-deftype-ctor")) (_a$396 (jolt-symbol #f "StringBufferWriter")) (_a$397 (jolt-vector (keyword #f "sb"))) (_a$398 (jolt-vector jolt-nil)) (_a$399 (jolt-vector #f))) (jolt-invoke _a$395 _a$396 _a$397 _a$398 _a$399))) (def-var! "clojure.pprint" "->StringBufferWriter" (var-deref "clojure.pprint" "StringBufferWriter")) (var-deref "clojure.pprint" "StringBufferWriter")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "StringBufferWriter")) (def-var! "clojure.pprint" "map->StringBufferWriter" (lambda (G__26) (let fnrec400 ((G__26 G__26)) (let* ((_a$401 (var-deref "clojure.core" "reduce-kv")) (_a$402 jolt-assoc) (_a$403 (jolt-invoke (var-deref "clojure.pprint" "->StringBufferWriter") (jolt-get G__26 (keyword #f "sb")))) (_a$404 (jolt-dissoc G__26 (keyword #f "sb")))) (jolt-invoke _a$401 _a$402 _a$403 _a$404))))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "StringBufferWriter" "IPrettyWriter") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "StringBufferWriter" "IPrettyWriter" "-write" (lambda (_p27 x) (let fnrec405 ((_p27 _p27) (x x)) (let* ((sb (jolt-get _p27 (keyword #f "sb")))) (begin (record-method-dispatch sb "append" (jolt-vector (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "char?") x)) (jolt-invoke (var-deref "clojure.core" "str") x) x))) jolt-nil))))) (jolt-invoke (var-deref "clojure.core" "register-inline-method") "StringBufferWriter" "IPrettyWriter" "-pflush" (lambda (_p28) (let fnrec406 ((_p28 _p28)) (let* ((sb (jolt-get _p28 (keyword #f "sb")))) jolt-nil)))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "StringBufferWriter" "IPrettyFlush") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "StringBufferWriter" "IPrettyFlush" "-ppflush" (lambda (_p29) (let fnrec407 ((_p29 _p29)) (let* ((sb (jolt-get _p29 (keyword #f "sb")))) jolt-nil))))))
(guard (e (#t #f))
(begin (begin (def-var! "clojure.pprint" "ColumnWriter" (let* ((_a$408 (var-deref "clojure.core" "make-deftype-ctor")) (_a$409 (jolt-symbol #f "ColumnWriter")) (_a$410 (jolt-vector (keyword #f "fields"))) (_a$411 (jolt-vector jolt-nil)) (_a$412 (jolt-vector #f))) (jolt-invoke _a$408 _a$409 _a$410 _a$411 _a$412))) (def-var! "clojure.pprint" "->ColumnWriter" (var-deref "clojure.pprint" "ColumnWriter")) (var-deref "clojure.pprint" "ColumnWriter")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "ColumnWriter")) (def-var! "clojure.pprint" "map->ColumnWriter" (lambda (G__30) (let fnrec413 ((G__30 G__30)) (let* ((_a$414 (var-deref "clojure.core" "reduce-kv")) (_a$415 jolt-assoc) (_a$416 (jolt-invoke (var-deref "clojure.pprint" "->ColumnWriter") (jolt-get G__30 (keyword #f "fields")))) (_a$417 (jolt-dissoc G__30 (keyword #f "fields")))) (jolt-invoke _a$414 _a$415 _a$416 _a$417))))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "ColumnWriter" "IPrettyWriter") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "ColumnWriter" "IPrettyWriter" "-write" (lambda (this x) (let fnrec418 ((this this) (x x)) (let* ((fields (jolt-get this (keyword #f "fields")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") x)) (let* ((s x) (nl (record-method-dispatch s "lastIndexOf" (jolt-vector "\n")))) (begin (if (jolt-neg? nl) (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "cur") (let* ((_a$419 (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "cur"))) (_a$420 (jolt-count s))) (jolt-n+ _a$419 _a$420))) (begin (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "cur") (jolt-n- (jolt-count s) nl 1)) (jolt-invoke (var-deref "clojure.pprint" "set-field") this (keyword #f "line") (let* ((_a$422 (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "line"))) (_a$423 (jolt-count (jolt-filter (lambda (p__4_) (let fnrec421 ((p__4_ p__4_)) (jolt= p__4_ (integer->char 10)))) s)))) (jolt-n+ _a$422 _a$423))))) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "base")) s))) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "char?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "number?") x)))) (jolt-invoke (var-deref "clojure.pprint" "c-write-char") this x) jolt-nil)))))) (jolt-invoke (var-deref "clojure.core" "register-inline-method") "ColumnWriter" "IPrettyWriter" "-pflush" (lambda (this) (let fnrec424 ((this this)) (let* ((fields (jolt-get this (keyword #f "fields")))) (jolt-invoke (var-deref "clojure.pprint" "-pflush") (jolt-invoke (var-deref "clojure.pprint" "get-field") this (keyword #f "base"))))))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "ColumnWriter" "IPrettyFlush") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "ColumnWriter" "IPrettyFlush" "-ppflush" (lambda (_p31) (let fnrec425 ((_p31 _p31)) (let* ((fields (jolt-get _p31 (keyword #f "fields")))) jolt-nil))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "column-writer" (letrec ((column-writer (case-lambda ((writer) (let fnrec426 ((writer writer)) (column-writer writer (var-deref "clojure.pprint" "*default-page-width*")))) ((writer max-columns) (let fnrec427 ((writer writer) (max-columns max-columns)) (jolt-invoke (var-deref "clojure.pprint" "->ColumnWriter") (jolt-invoke (var-deref "clojure.core" "atom") (let* ((_o$428 (keyword #f "max")) (_o$429 max-columns) (_o$430 (keyword #f "cur")) (_o$431 0) (_o$432 (keyword #f "line")) (_o$433 0) (_o$434 (keyword #f "base")) (_o$435 writer)) (jolt-hash-map _o$428 _o$429 _o$430 _o$431 _o$432 _o$433 _o$434 _o$435))))))))) column-writer) (let* ((_o$436 (keyword #f "private")) (_o$437 #t)) (jolt-hash-map _o$436 _o$437))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "get-miser-width"))
(guard (e (#t #f))
(begin (begin (def-var! "clojure.pprint" "logical-block" (let* ((_a$468 (var-deref "clojure.core" "make-deftype-ctor")) (_a$469 (jolt-symbol #f "logical-block")) (_a$470 (let* ((_o$438 (keyword #f "parent")) (_o$439 (keyword #f "section")) (_o$440 (keyword #f "start-col")) (_o$441 (keyword #f "indent")) (_o$442 (keyword #f "done-nl")) (_o$443 (keyword #f "intra-block-nl")) (_o$444 (keyword #f "prefix")) (_o$445 (keyword #f "per-line-prefix")) (_o$446 (keyword #f "suffix")) (_o$447 (keyword #f "logical-block-callback"))) (jolt-vector _o$438 _o$439 _o$440 _o$441 _o$442 _o$443 _o$444 _o$445 _o$446 _o$447))) (_a$471 (let* ((_o$448 jolt-nil) (_o$449 jolt-nil) (_o$450 jolt-nil) (_o$451 jolt-nil) (_o$452 jolt-nil) (_o$453 jolt-nil) (_o$454 jolt-nil) (_o$455 jolt-nil) (_o$456 jolt-nil) (_o$457 jolt-nil)) (jolt-vector _o$448 _o$449 _o$450 _o$451 _o$452 _o$453 _o$454 _o$455 _o$456 _o$457))) (_a$472 (let* ((_o$458 #f) (_o$459 #f) (_o$460 #f) (_o$461 #f) (_o$462 #f) (_o$463 #f) (_o$464 #f) (_o$465 #f) (_o$466 #f) (_o$467 #f)) (jolt-vector _o$458 _o$459 _o$460 _o$461 _o$462 _o$463 _o$464 _o$465 _o$466 _o$467)))) (jolt-invoke _a$468 _a$469 _a$470 _a$471 _a$472))) (def-var! "clojure.pprint" "->logical-block" (var-deref "clojure.pprint" "logical-block")) (var-deref "clojure.pprint" "logical-block")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "logical-block")) (def-var! "clojure.pprint" "map->logical-block" (lambda (G__32) (let fnrec473 ((G__32 G__32)) (let* ((_a$485 (var-deref "clojure.core" "reduce-kv")) (_a$486 jolt-assoc) (_a$487 (let* ((_a$474 (var-deref "clojure.pprint" "->logical-block")) (_a$475 (jolt-get G__32 (keyword #f "parent"))) (_a$476 (jolt-get G__32 (keyword #f "section"))) (_a$477 (jolt-get G__32 (keyword #f "start-col"))) (_a$478 (jolt-get G__32 (keyword #f "indent"))) (_a$479 (jolt-get G__32 (keyword #f "done-nl"))) (_a$480 (jolt-get G__32 (keyword #f "intra-block-nl"))) (_a$481 (jolt-get G__32 (keyword #f "prefix"))) (_a$482 (jolt-get G__32 (keyword #f "per-line-prefix"))) (_a$483 (jolt-get G__32 (keyword #f "suffix"))) (_a$484 (jolt-get G__32 (keyword #f "logical-block-callback")))) (jolt-invoke _a$474 _a$475 _a$476 _a$477 _a$478 _a$479 _a$480 _a$481 _a$482 _a$483 _a$484))) (_a$488 (jolt-dissoc G__32 (keyword #f "parent") (keyword #f "section") (keyword #f "start-col") (keyword #f "indent") (keyword #f "done-nl") (keyword #f "intra-block-nl") (keyword #f "prefix") (keyword #f "per-line-prefix") (keyword #f "suffix") (keyword #f "logical-block-callback")))) (jolt-invoke _a$485 _a$486 _a$487 _a$488)))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "ancestor?" (letrec ((ancestor? (lambda (parent child) (let fnrec489 ((parent parent) (child child)) (let* ((child (jolt-get child (keyword #f "parent")))) (let loop490 ((child child)) (if (jolt-nil? child) #f (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "identical?") parent child)) #t (if (jolt-truthy? (keyword #f "else")) (loop490 (jolt-get child (keyword #f "parent"))) jolt-nil))))))))) ancestor?) (let* ((_o$491 (keyword #f "private")) (_o$492 #t)) (jolt-hash-map _o$491 _o$492))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "buffer-length" (letrec ((buffer-length (lambda (l) (let fnrec493 ((l l)) (let* ((l (jolt-seq l))) (if (jolt-truthy? l) (let* ((_a$494 (jolt-get (jolt-last l) (keyword #f "end-pos"))) (_a$495 (jolt-get (jolt-first l) (keyword #f "start-pos")))) (jolt-n- _a$494 _a$495)) 0)))))) buffer-length) (let* ((_o$496 (keyword #f "private")) (_o$497 #t)) (jolt-hash-map _o$496 _o$497))))
(guard (e (#t #f))
(begin (begin (begin (def-var! "clojure.pprint" "buffer-blob" (let* ((_a$513 (var-deref "clojure.core" "make-deftype-ctor")) (_a$514 (jolt-symbol #f "buffer-blob")) (_a$515 (let* ((_o$498 (keyword #f "type-tag")) (_o$499 (keyword #f "data")) (_o$500 (keyword #f "trailing-white-space")) (_o$501 (keyword #f "start-pos")) (_o$502 (keyword #f "end-pos"))) (jolt-vector _o$498 _o$499 _o$500 _o$501 _o$502))) (_a$516 (let* ((_o$503 jolt-nil) (_o$504 jolt-nil) (_o$505 jolt-nil) (_o$506 jolt-nil) (_o$507 jolt-nil)) (jolt-vector _o$503 _o$504 _o$505 _o$506 _o$507))) (_a$517 (let* ((_o$508 #f) (_o$509 #f) (_o$510 #f) (_o$511 #f) (_o$512 #f)) (jolt-vector _o$508 _o$509 _o$510 _o$511 _o$512)))) (jolt-invoke _a$513 _a$514 _a$515 _a$516 _a$517))) (def-var! "clojure.pprint" "->buffer-blob" (var-deref "clojure.pprint" "buffer-blob")) (var-deref "clojure.pprint" "buffer-blob")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "buffer-blob")) (def-var! "clojure.pprint" "map->buffer-blob" (lambda (G__33) (let fnrec518 ((G__33 G__33)) (let* ((_a$525 (var-deref "clojure.core" "reduce-kv")) (_a$526 jolt-assoc) (_a$527 (let* ((_a$519 (var-deref "clojure.pprint" "->buffer-blob")) (_a$520 (jolt-get G__33 (keyword #f "type-tag"))) (_a$521 (jolt-get G__33 (keyword #f "data"))) (_a$522 (jolt-get G__33 (keyword #f "trailing-white-space"))) (_a$523 (jolt-get G__33 (keyword #f "start-pos"))) (_a$524 (jolt-get G__33 (keyword #f "end-pos")))) (jolt-invoke _a$519 _a$520 _a$521 _a$522 _a$523 _a$524))) (_a$528 (jolt-dissoc G__33 (keyword #f "type-tag") (keyword #f "data") (keyword #f "trailing-white-space") (keyword #f "start-pos") (keyword #f "end-pos")))) (jolt-invoke _a$525 _a$526 _a$527 _a$528)))))) (def-var-with-meta! "clojure.pprint" "make-buffer-blob" (letrec ((make-buffer-blob (lambda (data trailing-white-space start-pos end-pos) (let fnrec529 ((data data) (trailing-white-space trailing-white-space) (start-pos start-pos) (end-pos end-pos)) (jolt-invoke (var-deref "clojure.pprint" "->buffer-blob") (keyword #f "buffer-blob") data trailing-white-space start-pos end-pos))))) make-buffer-blob) (let* ((_o$530 (keyword #f "private")) (_o$531 #t)) (jolt-hash-map _o$530 _o$531))) (def-var-with-meta! "clojure.pprint" "buffer-blob?" (letrec ((buffer-blob? (lambda (x__1__auto) (let fnrec532 ((x__1__auto x__1__auto)) (jolt= (jolt-get x__1__auto (keyword #f "type-tag")) (keyword #f "buffer-blob")))))) buffer-blob?) (let* ((_o$533 (keyword #f "private")) (_o$534 #t)) (jolt-hash-map _o$533 _o$534)))))
(guard (e (#t #f))
(begin (begin (begin (def-var! "clojure.pprint" "nl-t" (let* ((_a$550 (var-deref "clojure.core" "make-deftype-ctor")) (_a$551 (jolt-symbol #f "nl-t")) (_a$552 (let* ((_o$535 (keyword #f "type-tag")) (_o$536 (keyword #f "type")) (_o$537 (keyword #f "logical-block")) (_o$538 (keyword #f "start-pos")) (_o$539 (keyword #f "end-pos"))) (jolt-vector _o$535 _o$536 _o$537 _o$538 _o$539))) (_a$553 (let* ((_o$540 jolt-nil) (_o$541 jolt-nil) (_o$542 jolt-nil) (_o$543 jolt-nil) (_o$544 jolt-nil)) (jolt-vector _o$540 _o$541 _o$542 _o$543 _o$544))) (_a$554 (let* ((_o$545 #f) (_o$546 #f) (_o$547 #f) (_o$548 #f) (_o$549 #f)) (jolt-vector _o$545 _o$546 _o$547 _o$548 _o$549)))) (jolt-invoke _a$550 _a$551 _a$552 _a$553 _a$554))) (def-var! "clojure.pprint" "->nl-t" (var-deref "clojure.pprint" "nl-t")) (var-deref "clojure.pprint" "nl-t")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "nl-t")) (def-var! "clojure.pprint" "map->nl-t" (lambda (G__34) (let fnrec555 ((G__34 G__34)) (let* ((_a$562 (var-deref "clojure.core" "reduce-kv")) (_a$563 jolt-assoc) (_a$564 (let* ((_a$556 (var-deref "clojure.pprint" "->nl-t")) (_a$557 (jolt-get G__34 (keyword #f "type-tag"))) (_a$558 (jolt-get G__34 (keyword #f "type"))) (_a$559 (jolt-get G__34 (keyword #f "logical-block"))) (_a$560 (jolt-get G__34 (keyword #f "start-pos"))) (_a$561 (jolt-get G__34 (keyword #f "end-pos")))) (jolt-invoke _a$556 _a$557 _a$558 _a$559 _a$560 _a$561))) (_a$565 (jolt-dissoc G__34 (keyword #f "type-tag") (keyword #f "type") (keyword #f "logical-block") (keyword #f "start-pos") (keyword #f "end-pos")))) (jolt-invoke _a$562 _a$563 _a$564 _a$565)))))) (def-var-with-meta! "clojure.pprint" "make-nl-t" (letrec ((make-nl-t (lambda (type logical-block start-pos end-pos) (let fnrec566 ((type type) (logical-block logical-block) (start-pos start-pos) (end-pos end-pos)) (jolt-invoke (var-deref "clojure.pprint" "->nl-t") (keyword #f "nl-t") type logical-block start-pos end-pos))))) make-nl-t) (let* ((_o$567 (keyword #f "private")) (_o$568 #t)) (jolt-hash-map _o$567 _o$568))) (def-var-with-meta! "clojure.pprint" "nl-t?" (letrec ((nl-t? (lambda (x__1__auto) (let fnrec569 ((x__1__auto x__1__auto)) (jolt= (jolt-get x__1__auto (keyword #f "type-tag")) (keyword #f "nl-t")))))) nl-t?) (let* ((_o$570 (keyword #f "private")) (_o$571 #t)) (jolt-hash-map _o$570 _o$571)))))
(guard (e (#t #f))
(begin (begin (begin (def-var! "clojure.pprint" "start-block-t" (let* ((_a$584 (var-deref "clojure.core" "make-deftype-ctor")) (_a$585 (jolt-symbol #f "start-block-t")) (_a$586 (let* ((_o$572 (keyword #f "type-tag")) (_o$573 (keyword #f "logical-block")) (_o$574 (keyword #f "start-pos")) (_o$575 (keyword #f "end-pos"))) (jolt-vector _o$572 _o$573 _o$574 _o$575))) (_a$587 (let* ((_o$576 jolt-nil) (_o$577 jolt-nil) (_o$578 jolt-nil) (_o$579 jolt-nil)) (jolt-vector _o$576 _o$577 _o$578 _o$579))) (_a$588 (let* ((_o$580 #f) (_o$581 #f) (_o$582 #f) (_o$583 #f)) (jolt-vector _o$580 _o$581 _o$582 _o$583)))) (jolt-invoke _a$584 _a$585 _a$586 _a$587 _a$588))) (def-var! "clojure.pprint" "->start-block-t" (var-deref "clojure.pprint" "start-block-t")) (var-deref "clojure.pprint" "start-block-t")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "start-block-t")) (def-var! "clojure.pprint" "map->start-block-t" (lambda (G__35) (let fnrec589 ((G__35 G__35)) (let* ((_a$595 (var-deref "clojure.core" "reduce-kv")) (_a$596 jolt-assoc) (_a$597 (let* ((_a$590 (var-deref "clojure.pprint" "->start-block-t")) (_a$591 (jolt-get G__35 (keyword #f "type-tag"))) (_a$592 (jolt-get G__35 (keyword #f "logical-block"))) (_a$593 (jolt-get G__35 (keyword #f "start-pos"))) (_a$594 (jolt-get G__35 (keyword #f "end-pos")))) (jolt-invoke _a$590 _a$591 _a$592 _a$593 _a$594))) (_a$598 (jolt-dissoc G__35 (keyword #f "type-tag") (keyword #f "logical-block") (keyword #f "start-pos") (keyword #f "end-pos")))) (jolt-invoke _a$595 _a$596 _a$597 _a$598)))))) (def-var-with-meta! "clojure.pprint" "make-start-block-t" (letrec ((make-start-block-t (lambda (logical-block start-pos end-pos) (let fnrec599 ((logical-block logical-block) (start-pos start-pos) (end-pos end-pos)) (jolt-invoke (var-deref "clojure.pprint" "->start-block-t") (keyword #f "start-block-t") logical-block start-pos end-pos))))) make-start-block-t) (let* ((_o$600 (keyword #f "private")) (_o$601 #t)) (jolt-hash-map _o$600 _o$601))) (def-var-with-meta! "clojure.pprint" "start-block-t?" (letrec ((start-block-t? (lambda (x__1__auto) (let fnrec602 ((x__1__auto x__1__auto)) (jolt= (jolt-get x__1__auto (keyword #f "type-tag")) (keyword #f "start-block-t")))))) start-block-t?) (let* ((_o$603 (keyword #f "private")) (_o$604 #t)) (jolt-hash-map _o$603 _o$604)))))
(guard (e (#t #f))
(begin (begin (begin (def-var! "clojure.pprint" "end-block-t" (let* ((_a$617 (var-deref "clojure.core" "make-deftype-ctor")) (_a$618 (jolt-symbol #f "end-block-t")) (_a$619 (let* ((_o$605 (keyword #f "type-tag")) (_o$606 (keyword #f "logical-block")) (_o$607 (keyword #f "start-pos")) (_o$608 (keyword #f "end-pos"))) (jolt-vector _o$605 _o$606 _o$607 _o$608))) (_a$620 (let* ((_o$609 jolt-nil) (_o$610 jolt-nil) (_o$611 jolt-nil) (_o$612 jolt-nil)) (jolt-vector _o$609 _o$610 _o$611 _o$612))) (_a$621 (let* ((_o$613 #f) (_o$614 #f) (_o$615 #f) (_o$616 #f)) (jolt-vector _o$613 _o$614 _o$615 _o$616)))) (jolt-invoke _a$617 _a$618 _a$619 _a$620 _a$621))) (def-var! "clojure.pprint" "->end-block-t" (var-deref "clojure.pprint" "end-block-t")) (var-deref "clojure.pprint" "end-block-t")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "end-block-t")) (def-var! "clojure.pprint" "map->end-block-t" (lambda (G__36) (let fnrec622 ((G__36 G__36)) (let* ((_a$628 (var-deref "clojure.core" "reduce-kv")) (_a$629 jolt-assoc) (_a$630 (let* ((_a$623 (var-deref "clojure.pprint" "->end-block-t")) (_a$624 (jolt-get G__36 (keyword #f "type-tag"))) (_a$625 (jolt-get G__36 (keyword #f "logical-block"))) (_a$626 (jolt-get G__36 (keyword #f "start-pos"))) (_a$627 (jolt-get G__36 (keyword #f "end-pos")))) (jolt-invoke _a$623 _a$624 _a$625 _a$626 _a$627))) (_a$631 (jolt-dissoc G__36 (keyword #f "type-tag") (keyword #f "logical-block") (keyword #f "start-pos") (keyword #f "end-pos")))) (jolt-invoke _a$628 _a$629 _a$630 _a$631)))))) (def-var-with-meta! "clojure.pprint" "make-end-block-t" (letrec ((make-end-block-t (lambda (logical-block start-pos end-pos) (let fnrec632 ((logical-block logical-block) (start-pos start-pos) (end-pos end-pos)) (jolt-invoke (var-deref "clojure.pprint" "->end-block-t") (keyword #f "end-block-t") logical-block start-pos end-pos))))) make-end-block-t) (let* ((_o$633 (keyword #f "private")) (_o$634 #t)) (jolt-hash-map _o$633 _o$634))) (def-var-with-meta! "clojure.pprint" "end-block-t?" (letrec ((end-block-t? (lambda (x__1__auto) (let fnrec635 ((x__1__auto x__1__auto)) (jolt= (jolt-get x__1__auto (keyword #f "type-tag")) (keyword #f "end-block-t")))))) end-block-t?) (let* ((_o$636 (keyword #f "private")) (_o$637 #t)) (jolt-hash-map _o$636 _o$637)))))
(guard (e (#t #f))
(begin (begin (begin (def-var! "clojure.pprint" "indent-t" (let* ((_a$656 (var-deref "clojure.core" "make-deftype-ctor")) (_a$657 (jolt-symbol #f "indent-t")) (_a$658 (let* ((_o$638 (keyword #f "type-tag")) (_o$639 (keyword #f "logical-block")) (_o$640 (keyword #f "relative-to")) (_o$641 (keyword #f "offset")) (_o$642 (keyword #f "start-pos")) (_o$643 (keyword #f "end-pos"))) (jolt-vector _o$638 _o$639 _o$640 _o$641 _o$642 _o$643))) (_a$659 (let* ((_o$644 jolt-nil) (_o$645 jolt-nil) (_o$646 jolt-nil) (_o$647 jolt-nil) (_o$648 jolt-nil) (_o$649 jolt-nil)) (jolt-vector _o$644 _o$645 _o$646 _o$647 _o$648 _o$649))) (_a$660 (let* ((_o$650 #f) (_o$651 #f) (_o$652 #f) (_o$653 #f) (_o$654 #f) (_o$655 #f)) (jolt-vector _o$650 _o$651 _o$652 _o$653 _o$654 _o$655)))) (jolt-invoke _a$656 _a$657 _a$658 _a$659 _a$660))) (def-var! "clojure.pprint" "->indent-t" (var-deref "clojure.pprint" "indent-t")) (var-deref "clojure.pprint" "indent-t")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "indent-t")) (def-var! "clojure.pprint" "map->indent-t" (lambda (G__37) (let fnrec661 ((G__37 G__37)) (let* ((_a$669 (var-deref "clojure.core" "reduce-kv")) (_a$670 jolt-assoc) (_a$671 (let* ((_a$662 (var-deref "clojure.pprint" "->indent-t")) (_a$663 (jolt-get G__37 (keyword #f "type-tag"))) (_a$664 (jolt-get G__37 (keyword #f "logical-block"))) (_a$665 (jolt-get G__37 (keyword #f "relative-to"))) (_a$666 (jolt-get G__37 (keyword #f "offset"))) (_a$667 (jolt-get G__37 (keyword #f "start-pos"))) (_a$668 (jolt-get G__37 (keyword #f "end-pos")))) (jolt-invoke _a$662 _a$663 _a$664 _a$665 _a$666 _a$667 _a$668))) (_a$672 (jolt-dissoc G__37 (keyword #f "type-tag") (keyword #f "logical-block") (keyword #f "relative-to") (keyword #f "offset") (keyword #f "start-pos") (keyword #f "end-pos")))) (jolt-invoke _a$669 _a$670 _a$671 _a$672)))))) (def-var-with-meta! "clojure.pprint" "make-indent-t" (letrec ((make-indent-t (lambda (logical-block relative-to offset start-pos end-pos) (let fnrec673 ((logical-block logical-block) (relative-to relative-to) (offset offset) (start-pos start-pos) (end-pos end-pos)) (jolt-invoke (var-deref "clojure.pprint" "->indent-t") (keyword #f "indent-t") logical-block relative-to offset start-pos end-pos))))) make-indent-t) (let* ((_o$674 (keyword #f "private")) (_o$675 #t)) (jolt-hash-map _o$674 _o$675))) (def-var-with-meta! "clojure.pprint" "indent-t?" (letrec ((indent-t? (lambda (x__1__auto) (let fnrec676 ((x__1__auto x__1__auto)) (jolt= (jolt-get x__1__auto (keyword #f "type-tag")) (keyword #f "indent-t")))))) indent-t?) (let* ((_o$677 (keyword #f "private")) (_o$678 #t)) (jolt-hash-map _o$677 _o$678)))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pp-newline" (lambda () (let fnrec679 () "\n")) (let* ((_o$680 (keyword #f "private")) (_o$681 #t)) (jolt-hash-map _o$680 _o$681))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "emit-nl"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmulti-setup") (jolt-symbol "clojure.pprint" "write-token") (lambda (this token) (let fnrec682 ((this this) (token token)) (jolt-get token (keyword #f "type-tag"))))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "write-token") (keyword #f "start-block-t") (lambda (this token) (let fnrec683 ((this this) (token token)) (begin (let* ((temp__27__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-block-callback")))) (if (jolt-truthy? temp__27__auto) (let* ((cb temp__27__auto)) (jolt-invoke cb (keyword #f "start"))) jolt-nil)) (let* ((lb (jolt-get token (keyword #f "logical-block")))) (begin (let* ((temp__27__auto (jolt-get lb (keyword #f "prefix")))) (if (jolt-truthy? temp__27__auto) (let* ((prefix temp__27__auto)) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) prefix)) jolt-nil)) (let* ((col (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "start-col")) col) (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "indent")) col)))))))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "write-token") (keyword #f "end-block-t") (lambda (this token) (let fnrec684 ((this this) (token token)) (begin (let* ((temp__27__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-block-callback")))) (if (jolt-truthy? temp__27__auto) (let* ((cb temp__27__auto)) (jolt-invoke cb (keyword #f "end"))) jolt-nil)) (let* ((temp__27__auto (jolt-get (jolt-get token (keyword #f "logical-block")) (keyword #f "suffix")))) (if (jolt-truthy? temp__27__auto) (let* ((suffix temp__27__auto)) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) suffix)) jolt-nil))))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "write-token") (keyword #f "indent-t") (lambda (this token) (let fnrec685 ((this this) (token token)) (let* ((lb (jolt-get token (keyword #f "logical-block")))) (let* ((_a$690 (var-deref "clojure.core" "reset!")) (_a$691 (jolt-get lb (keyword #f "indent"))) (_a$692 (let* ((_a$688 (jolt-get token (keyword #f "offset"))) (_a$689 (let* ((G__38 jolt=) (G__39 (jolt-get token (keyword #f "relative-to")))) (if (jolt-truthy? (jolt-invoke G__38 (keyword #f "block") G__39)) (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "start-col"))) (if (jolt-truthy? (jolt-invoke G__38 (keyword #f "current") G__39)) (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))) (jolt-throw (let* ((_a$686 (jolt-invoke (var-deref "clojure.core" "str") "No matching clause: " G__39)) (_a$687 (jolt-hash-map))) (jolt-ex-info _a$686 _a$687)))))))) (jolt-n+ _a$688 _a$689)))) (jolt-invoke _a$690 _a$691 _a$692))))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "write-token") (keyword #f "buffer-blob") (lambda (this token) (let fnrec693 ((this this) (token token)) (let* ((_a$694 (var-deref "clojure.pprint" "-write")) (_a$695 (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))) (_a$696 (jolt-get token (keyword #f "data")))) (jolt-invoke _a$694 _a$695 _a$696)))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "write-token") (keyword #f "nl-t") (lambda (this token) (let fnrec697 ((this this) (token token)) (begin (if (jolt-truthy? (let* ((or__26__auto (jolt= (jolt-get token (keyword #f "type")) (keyword #f "mandatory")))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt-not (jolt= (jolt-get token (keyword #f "type")) (keyword #f "fill"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get (jolt-get token (keyword #f "logical-block")) (keyword #f "done-nl"))) and__25__auto))))) (jolt-invoke (var-deref "clojure.pprint" "emit-nl") this token) (let* ((temp__16__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "trailing-white-space")))) (if (jolt-truthy? temp__16__auto) (let* ((tws temp__16__auto)) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) tws)) jolt-nil))) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "trailing-white-space") jolt-nil)))) "clojure.pprint"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-tokens" (letrec ((write-tokens (lambda (this tokens force-trailing-whitespace) (let fnrec698 ((this this) (tokens tokens) (force-trailing-whitespace force-trailing-whitespace)) (begin (jolt-count (jolt-map (lambda (token) (let fnrec699 ((token token)) (begin (if (jolt-not (jolt= (jolt-get token (keyword #f "type-tag")) (keyword #f "nl-t"))) (let* ((temp__16__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "trailing-white-space")))) (if (jolt-truthy? temp__16__auto) (let* ((tws temp__16__auto)) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) tws)) jolt-nil)) jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "write-token") this token) (let* ((_a$700 (var-deref "clojure.core" "swap!")) (_a$701 (record-method-dispatch this "-fields" (jolt-vector))) (_a$702 jolt-assoc) (_a$703 (keyword #f "trailing-white-space")) (_a$704 (jolt-get token (keyword #f "trailing-white-space")))) (jolt-invoke _a$700 _a$701 _a$702 _a$703 _a$704)) (let* ((tws (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "trailing-white-space")))) (if (jolt-truthy? (let* ((and__25__auto force-trailing-whitespace)) (if (jolt-truthy? and__25__auto) tws and__25__auto))) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) tws) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "trailing-white-space") jolt-nil)) jolt-nil)) jolt-nil))) tokens)) jolt-nil))))) write-tokens) (let* ((_o$705 (keyword #f "private")) (_o$706 #t)) (jolt-hash-map _o$705 _o$706))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "tokens-fit?" (letrec ((tokens-fit? (lambda (this tokens) (let fnrec707 ((this this) (tokens tokens)) (let* ((maxcol (jolt-invoke (var-deref "clojure.pprint" "get-max-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))))) (let* ((or__26__auto (jolt-nil? maxcol))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n< (let* ((_a$708 (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")))) (_a$709 (jolt-invoke (var-deref "clojure.pprint" "buffer-length") tokens))) (jolt-n+ _a$708 _a$709)) maxcol)))))))) tokens-fit?) (let* ((_o$710 (keyword #f "private")) (_o$711 #t)) (jolt-hash-map _o$710 _o$711))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "linear-nl?" (letrec ((linear-nl? (lambda (this lb section) (let fnrec712 ((this this) (lb lb) (section section)) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "done-nl"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-not (jolt-invoke (var-deref "clojure.pprint" "tokens-fit?") this section)))))))) linear-nl?) (let* ((_o$713 (keyword #f "private")) (_o$714 #t)) (jolt-hash-map _o$713 _o$714))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "miser-nl?" (letrec ((miser-nl? (lambda (this lb section) (let fnrec715 ((this this) (lb lb) (section section)) (let* ((miser-width (jolt-invoke (var-deref "clojure.pprint" "get-miser-width") this)) (maxcol (jolt-invoke (var-deref "clojure.pprint" "get-max-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))))) (let* ((and__25__auto miser-width)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto maxcol)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (let* ((_a$716 (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "start-col")))) (_a$717 (jolt-n- maxcol miser-width))) (jolt-n>= _a$716 _a$717)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.pprint" "linear-nl?") this lb section) and__25__auto)) and__25__auto)) and__25__auto))))))) miser-nl?) (let* ((_o$718 (keyword #f "private")) (_o$719 #t)) (jolt-hash-map _o$718 _o$719))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmulti-setup") (jolt-symbol "clojure.pprint" "emit-nl?") (lambda (t _r$__119 _r$__120 _) (let fnrec720 ((t t) (_r$__119 _r$__119) (_r$__120 _r$__120) (_ _)) (jolt-get t (keyword #f "type"))))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "emit-nl?") (keyword #f "linear") (lambda (newl this section _) (let fnrec721 ((newl newl) (this this) (section section) (_ _)) (let* ((lb (jolt-get newl (keyword #f "logical-block")))) (jolt-invoke (var-deref "clojure.pprint" "linear-nl?") this lb section)))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "emit-nl?") (keyword #f "miser") (lambda (newl this section _) (let fnrec722 ((newl newl) (this this) (section section) (_ _)) (let* ((lb (jolt-get newl (keyword #f "logical-block")))) (jolt-invoke (var-deref "clojure.pprint" "miser-nl?") this lb section)))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "emit-nl?") (keyword #f "fill") (lambda (newl this section subsection) (let fnrec723 ((newl newl) (this this) (section section) (subsection subsection)) (let* ((lb (jolt-get newl (keyword #f "logical-block")))) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "intra-block-nl"))))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-not (jolt-invoke (var-deref "clojure.pprint" "tokens-fit?") this subsection)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.pprint" "miser-nl?") this lb section)))))))) "clojure.pprint"))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "defmethod-setup") (jolt-symbol #f "emit-nl?") (keyword #f "mandatory") (lambda (_r$__125 _r$__126 _r$__127 _) (let fnrec724 ((_r$__125 _r$__125) (_r$__126 _r$__126) (_r$__127 _r$__127) (_ _)) #t)) "clojure.pprint"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-section" (letrec ((get-section (lambda (buffer) (let fnrec725 ((buffer buffer)) (let* ((nl (jolt-first buffer)) (lb (jolt-get nl (keyword #f "logical-block"))) (section (jolt-seq (let* ((_a$727 (var-deref "clojure.core" "take-while")) (_a$728 (lambda (p__5_) (let fnrec726 ((p__5_ p__5_)) (jolt-not (let* ((and__25__auto (jolt-invoke (var-deref "clojure.pprint" "nl-t?") p__5_))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.pprint" "ancestor?") (jolt-get p__5_ (keyword #f "logical-block")) lb) and__25__auto)))))) (_a$729 (jolt-next buffer))) (jolt-invoke _a$727 _a$728 _a$729))))) (let* ((_o$730 section) (_o$731 (jolt-seq (jolt-drop (jolt-inc (jolt-count section)) buffer)))) (jolt-vector _o$730 _o$731))))))) get-section) (let* ((_o$732 (keyword #f "private")) (_o$733 #t)) (jolt-hash-map _o$732 _o$733))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-sub-section" (letrec ((get-sub-section (lambda (buffer) (let fnrec734 ((buffer buffer)) (let* ((nl (jolt-first buffer)) (lb (jolt-get nl (keyword #f "logical-block"))) (section (jolt-seq (let* ((_a$736 (var-deref "clojure.core" "take-while")) (_a$737 (lambda (p__6_) (let fnrec735 ((p__6_ p__6_)) (let* ((nl-lb (jolt-get p__6_ (keyword #f "logical-block")))) (jolt-not (let* ((and__25__auto (jolt-invoke (var-deref "clojure.pprint" "nl-t?") p__6_))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= nl-lb lb))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.pprint" "ancestor?") nl-lb lb))) and__25__auto))))))) (_a$738 (jolt-next buffer))) (jolt-invoke _a$736 _a$737 _a$738))))) section))))) get-sub-section) (let* ((_o$739 (keyword #f "private")) (_o$740 #t)) (jolt-hash-map _o$739 _o$740))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "update-nl-state" (letrec ((update-nl-state (lambda (lb) (let fnrec741 ((lb lb)) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "intra-block-nl")) #t) (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "done-nl")) #t) (let* ((lb (jolt-get lb (keyword #f "parent")))) (let loop742 ((lb lb)) (if (jolt-truthy? lb) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "done-nl")) #t) (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "intra-block-nl")) #t) (loop742 (jolt-get lb (keyword #f "parent")))) jolt-nil)))))))) update-nl-state) (let* ((_o$743 (keyword #f "private")) (_o$744 #t)) (jolt-hash-map _o$743 _o$744))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "emit-nl" (letrec ((emit-nl (lambda (this nl) (let fnrec745 ((this this) (nl nl)) (begin (let* ((_a$746 (var-deref "clojure.pprint" "-write")) (_a$747 (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))) (_a$748 (jolt-invoke (var-deref "clojure.pprint" "pp-newline")))) (jolt-invoke _a$746 _a$747 _a$748)) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "trailing-white-space") jolt-nil) (let* ((lb (jolt-get nl (keyword #f "logical-block"))) (prefix (jolt-get lb (keyword #f "per-line-prefix")))) (begin (if (jolt-truthy? prefix) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) prefix) jolt-nil) (let* ((istr (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") (let* ((_a$749 (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "indent")))) (_a$750 (jolt-count prefix))) (jolt-n- _a$749 _a$750)) (integer->char 32))))) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) istr)) (jolt-invoke (var-deref "clojure.pprint" "update-nl-state") lb)))))))) emit-nl) (let* ((_o$751 (keyword #f "private")) (_o$752 #t)) (jolt-hash-map _o$751 _o$752))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "split-at-newline" (letrec ((split-at-newline (lambda (tokens) (let fnrec753 ((tokens tokens)) (let* ((pre (jolt-seq (jolt-invoke (var-deref "clojure.core" "take-while") (lambda (p__7_) (let fnrec754 ((p__7_ p__7_)) (jolt-not (jolt-invoke (var-deref "clojure.pprint" "nl-t?") p__7_)))) tokens)))) (let* ((_o$755 pre) (_o$756 (jolt-seq (jolt-drop (jolt-count pre) tokens)))) (jolt-vector _o$755 _o$756))))))) split-at-newline) (let* ((_o$757 (keyword #f "private")) (_o$758 #t)) (jolt-hash-map _o$757 _o$758))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-token-string" (letrec ((write-token-string (lambda (this tokens) (let fnrec759 ((this this) (tokens tokens)) (let* ((G__40 (jolt-invoke (var-deref "clojure.pprint" "split-at-newline") tokens)) (a (jolt-nth G__40 0 jolt-nil)) (b (jolt-nth G__40 1 jolt-nil))) (begin (if (jolt-truthy? a) (jolt-invoke (var-deref "clojure.pprint" "write-tokens") this a #f) jolt-nil) (if (jolt-truthy? b) (let* ((G__41 (jolt-invoke (var-deref "clojure.pprint" "get-section") b)) (section (jolt-nth G__41 0 jolt-nil)) (remainder (jolt-nth G__41 1 jolt-nil)) (newl (jolt-first b))) (let* ((do-nl (jolt-invoke (var-deref "clojure.pprint" "emit-nl?") newl this section (jolt-invoke (var-deref "clojure.pprint" "get-sub-section") b))) (result (if (jolt-truthy? do-nl) (begin (jolt-invoke (var-deref "clojure.pprint" "emit-nl") this newl) (jolt-next b)) b)) (long-section (jolt-not (jolt-invoke (var-deref "clojure.pprint" "tokens-fit?") this result))) (result (if (jolt-truthy? long-section) (let* ((rem2 (write-token-string this section))) (if (jolt= rem2 section) (begin (jolt-invoke (var-deref "clojure.pprint" "write-tokens") this section #f) remainder) (let* ((_a$760 (jolt-vector)) (_a$761 (jolt-concat rem2 remainder))) (jolt-into _a$760 _a$761)))) result))) result)) jolt-nil))))))) write-token-string) (let* ((_o$762 (keyword #f "private")) (_o$763 #t)) (jolt-hash-map _o$762 _o$763))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-line" (letrec ((write-line (lambda (this) (let fnrec764 ((this this)) (let* ((buffer (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "buffer")))) (let loop765 ((buffer buffer)) (begin (let* ((_a$766 (var-deref "clojure.core" "swap!")) (_a$767 (record-method-dispatch this "-fields" (jolt-vector))) (_a$768 jolt-assoc) (_a$769 (keyword #f "buffer")) (_a$770 (jolt-into (jolt-vector) buffer))) (jolt-invoke _a$766 _a$767 _a$768 _a$769 _a$770)) (if (jolt-not (jolt-invoke (var-deref "clojure.pprint" "tokens-fit?") this buffer)) (let* ((new-buffer (jolt-invoke (var-deref "clojure.pprint" "write-token-string") this buffer))) (if (jolt-not (jolt-invoke (var-deref "clojure.core" "identical?") buffer new-buffer)) (loop765 new-buffer) jolt-nil)) jolt-nil)))))))) write-line) (let* ((_o$771 (keyword #f "private")) (_o$772 #t)) (jolt-hash-map _o$771 _o$772))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "add-to-buffer" (letrec ((add-to-buffer (lambda (this token) (let fnrec773 ((this this) (token token)) (begin (let* ((_a$774 (var-deref "clojure.core" "swap!")) (_a$775 (record-method-dispatch this "-fields" (jolt-vector))) (_a$776 jolt-assoc) (_a$777 (keyword #f "buffer")) (_a$778 (jolt-conj (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "buffer")) token))) (jolt-invoke _a$774 _a$775 _a$776 _a$777 _a$778)) (if (jolt-not (jolt-invoke (var-deref "clojure.pprint" "tokens-fit?") this (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "buffer")))) (jolt-invoke (var-deref "clojure.pprint" "write-line") this) jolt-nil)))))) add-to-buffer) (let* ((_o$779 (keyword #f "private")) (_o$780 #t)) (jolt-hash-map _o$779 _o$780))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-buffered-output" (letrec ((write-buffered-output (lambda (this) (let fnrec781 ((this this)) (begin (jolt-invoke (var-deref "clojure.pprint" "write-line") this) (let* ((temp__16__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "buffer")))) (if (jolt-truthy? temp__16__auto) (let* ((buf temp__16__auto)) (begin (jolt-invoke (var-deref "clojure.pprint" "write-tokens") this buf #t) (let* ((_a$782 (var-deref "clojure.core" "swap!")) (_a$783 (record-method-dispatch this "-fields" (jolt-vector))) (_a$784 jolt-assoc) (_a$785 (keyword #f "buffer")) (_a$786 (jolt-vector))) (jolt-invoke _a$782 _a$783 _a$784 _a$785 _a$786)))) jolt-nil))))))) write-buffered-output) (let* ((_o$787 (keyword #f "private")) (_o$788 #t)) (jolt-hash-map _o$787 _o$788))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-white-space" (letrec ((write-white-space (lambda (this) (let fnrec789 ((this this)) (let* ((temp__27__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "trailing-white-space")))) (if (jolt-truthy? temp__27__auto) (let* ((tws temp__27__auto)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) tws) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "trailing-white-space") jolt-nil))) jolt-nil)))))) write-white-space) (let* ((_o$790 (keyword #f "private")) (_o$791 #t)) (jolt-hash-map _o$790 _o$791))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-initial-lines" (letrec ((write-initial-lines (lambda (this s) (let fnrec792 ((this this) (s s)) (let* ((lines (jolt-invoke (var-deref "clojure.string" "split") s (jolt-regex "\\n") -1))) (if (jolt= (jolt-count lines) 1) s (let* ((prefix (jolt-get (jolt-first (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-blocks"))) (keyword #f "per-line-prefix"))) (l (jolt-first lines))) (begin (if (jolt= (keyword #f "buffering") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode"))) (let* ((oldpos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos"))) (newpos (jolt-n+ oldpos (jolt-count l)))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "pos") newpos) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-buffer-blob") l jolt-nil oldpos newpos)) (jolt-invoke (var-deref "clojure.pprint" "write-buffered-output") this))) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) l))) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) "\n") (begin (jolt-count (let* ((_a$797 (lambda (l) (let fnrec793 ((l l)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) l) (let* ((_a$794 (var-deref "clojure.pprint" "-write")) (_a$795 (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))) (_a$796 (jolt-invoke (var-deref "clojure.pprint" "pp-newline")))) (jolt-invoke _a$794 _a$795 _a$796)) (if (jolt-truthy? prefix) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) prefix) jolt-nil) jolt-nil)))) (_a$798 (jolt-next (jolt-invoke (var-deref "clojure.core" "butlast") lines)))) (jolt-map _a$797 _a$798))) jolt-nil) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "buffering") (keyword #f "writing")) (jolt-last lines))))))))) write-initial-lines) (let* ((_o$799 (keyword #f "private")) (_o$800 #t)) (jolt-hash-map _o$799 _o$800))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "p-write-char" (letrec ((p-write-char (lambda (this c) (let fnrec801 ((this this) (c c)) (if (jolt= (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")) (keyword #f "writing")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) c)) (if (jolt= c (integer->char 10)) (jolt-invoke (var-deref "clojure.pprint" "write-initial-lines") this "\n") (let* ((oldpos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos"))) (newpos (jolt-inc oldpos))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "pos") newpos) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-buffer-blob") (jolt-invoke (var-deref "clojure.core" "str") c) jolt-nil oldpos newpos)))))))))) p-write-char) (let* ((_o$802 (keyword #f "private")) (_o$803 #t)) (jolt-hash-map _o$802 _o$803))))
(guard (e (#t #f))
(begin (begin (def-var! "clojure.pprint" "PrettyWriter" (let* ((_a$804 (var-deref "clojure.core" "make-deftype-ctor")) (_a$805 (jolt-symbol #f "PrettyWriter")) (_a$806 (jolt-vector (keyword #f "fields"))) (_a$807 (jolt-vector jolt-nil)) (_a$808 (jolt-vector #f))) (jolt-invoke _a$804 _a$805 _a$806 _a$807 _a$808))) (def-var! "clojure.pprint" "->PrettyWriter" (var-deref "clojure.pprint" "PrettyWriter")) (var-deref "clojure.pprint" "PrettyWriter")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-symbol #f "PrettyWriter")) (def-var! "clojure.pprint" "map->PrettyWriter" (lambda (G__42) (let fnrec809 ((G__42 G__42)) (let* ((_a$810 (var-deref "clojure.core" "reduce-kv")) (_a$811 jolt-assoc) (_a$812 (jolt-invoke (var-deref "clojure.pprint" "->PrettyWriter") (jolt-get G__42 (keyword #f "fields")))) (_a$813 (jolt-dissoc G__42 (keyword #f "fields")))) (jolt-invoke _a$810 _a$811 _a$812 _a$813))))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "PrettyWriter" "IPrettyWriter") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "PrettyWriter" "IPrettyWriter" "-write" (lambda (this x) (let fnrec814 ((this this) (x x)) (let* ((fields (jolt-get this (keyword #f "fields")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") x)) (let* ((s0 (jolt-invoke (var-deref "clojure.pprint" "write-initial-lines") this x)) (s (jolt-invoke (var-deref "clojure.string" "replace-first") s0 (jolt-regex "\\s+$") "")) (white-space (jolt-invoke (var-deref "clojure.core" "subs") s0 (jolt-count s))) (mode (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")))) (if (jolt= mode (keyword #f "writing")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) s) (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "trailing-white-space") white-space)) (let* ((oldpos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos"))) (newpos (jolt-n+ oldpos (jolt-count s0)))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "pos") newpos) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-buffer-blob") s white-space oldpos newpos)))))) (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "char?") x))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "number?") x)))) (jolt-invoke (var-deref "clojure.pprint" "p-write-char") this x) jolt-nil)))))) (jolt-invoke (var-deref "clojure.core" "register-inline-method") "PrettyWriter" "IPrettyWriter" "-pflush" (lambda (this) (let fnrec815 ((this this)) (let* ((fields (jolt-get this (keyword #f "fields")))) (begin (jolt-invoke (var-deref "clojure.pprint" "-ppflush") this) (jolt-invoke (var-deref "clojure.pprint" "-pflush") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")))))))) (jolt-invoke (var-deref "clojure.core" "register-inline-protocol!") "PrettyWriter" "IPrettyFlush") (jolt-invoke (var-deref "clojure.core" "register-inline-method") "PrettyWriter" "IPrettyFlush" "-ppflush" (lambda (this) (let fnrec816 ((this this)) (let* ((fields (jolt-get this (keyword #f "fields")))) (if (jolt= (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")) (keyword #f "buffering")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-tokens") this (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "buffer")) #t) (let* ((_a$817 (var-deref "clojure.core" "swap!")) (_a$818 (record-method-dispatch this "-fields" (jolt-vector))) (_a$819 jolt-assoc) (_a$820 (keyword #f "buffer")) (_a$821 (jolt-vector))) (jolt-invoke _a$817 _a$818 _a$819 _a$820 _a$821))) (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this))))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pretty-writer" (letrec ((pretty-writer (lambda (writer max-columns miser-width) (let fnrec822 ((writer writer) (max-columns max-columns) (miser-width miser-width)) (let* ((lb (let* ((_a$823 (var-deref "clojure.pprint" "->logical-block")) (_a$824 jolt-nil) (_a$825 jolt-nil) (_a$826 (jolt-invoke (var-deref "clojure.core" "atom") 0)) (_a$827 (jolt-invoke (var-deref "clojure.core" "atom") 0)) (_a$828 (jolt-invoke (var-deref "clojure.core" "atom") #f)) (_a$829 (jolt-invoke (var-deref "clojure.core" "atom") #f)) (_a$830 jolt-nil) (_a$831 jolt-nil) (_a$832 jolt-nil) (_a$833 jolt-nil)) (jolt-invoke _a$823 _a$824 _a$825 _a$826 _a$827 _a$828 _a$829 _a$830 _a$831 _a$832 _a$833)))) (jolt-invoke (var-deref "clojure.pprint" "->PrettyWriter") (jolt-invoke (var-deref "clojure.core" "atom") (let* ((_o$834 (keyword #f "pretty-writer")) (_o$835 #t) (_o$836 (keyword #f "base")) (_o$837 (jolt-invoke (var-deref "clojure.pprint" "column-writer") writer max-columns)) (_o$838 (keyword #f "logical-blocks")) (_o$839 lb) (_o$840 (keyword #f "sections")) (_o$841 jolt-nil) (_o$842 (keyword #f "mode")) (_o$843 (keyword #f "writing")) (_o$844 (keyword #f "buffer")) (_o$845 (jolt-vector)) (_o$846 (keyword #f "buffer-block")) (_o$847 lb) (_o$848 (keyword #f "buffer-level")) (_o$849 1) (_o$850 (keyword #f "miser-width")) (_o$851 miser-width) (_o$852 (keyword #f "trailing-white-space")) (_o$853 jolt-nil) (_o$854 (keyword #f "pos")) (_o$855 0)) (jolt-hash-map _o$834 _o$835 _o$836 _o$837 _o$838 _o$839 _o$840 _o$841 _o$842 _o$843 _o$844 _o$845 _o$846 _o$847 _o$848 _o$849 _o$850 _o$851 _o$852 _o$853 _o$854 _o$855))))))))) pretty-writer) (let* ((_o$856 (keyword #f "private")) (_o$857 #t)) (jolt-hash-map _o$856 _o$857))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "start-block" (letrec ((start-block (lambda (this prefix per-line-prefix suffix) (let fnrec858 ((this this) (prefix prefix) (per-line-prefix per-line-prefix) (suffix suffix)) (let* ((lb (let* ((_a$859 (var-deref "clojure.pprint" "->logical-block")) (_a$860 (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-blocks"))) (_a$861 jolt-nil) (_a$862 (jolt-invoke (var-deref "clojure.core" "atom") 0)) (_a$863 (jolt-invoke (var-deref "clojure.core" "atom") 0)) (_a$864 (jolt-invoke (var-deref "clojure.core" "atom") #f)) (_a$865 (jolt-invoke (var-deref "clojure.core" "atom") #f)) (_a$866 prefix) (_a$867 per-line-prefix) (_a$868 suffix) (_a$869 jolt-nil)) (jolt-invoke _a$859 _a$860 _a$861 _a$862 _a$863 _a$864 _a$865 _a$866 _a$867 _a$868 _a$869)))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "logical-blocks") lb) (if (jolt= (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")) (keyword #f "writing")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (let* ((temp__27__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-block-callback")))) (if (jolt-truthy? temp__27__auto) (let* ((cb temp__27__auto)) (jolt-invoke cb (keyword #f "start"))) jolt-nil)) (if (jolt-truthy? prefix) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) prefix) jolt-nil) (let* ((col (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))))) (begin (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "start-col")) col) (jolt-invoke (var-deref "clojure.core" "reset!") (jolt-get lb (keyword #f "indent")) col)))) (let* ((oldpos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos"))) (newpos (jolt-n+ oldpos (if (jolt-truthy? prefix) (jolt-count prefix) 0)))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "pos") newpos) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-start-block-t") lb oldpos newpos))))))))))) start-block) (let* ((_o$870 (keyword #f "private")) (_o$871 #t)) (jolt-hash-map _o$870 _o$871))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "end-block" (letrec ((end-block (lambda (this) (let fnrec872 ((this this)) (let* ((lb (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-blocks"))) (suffix (jolt-get lb (keyword #f "suffix")))) (begin (if (jolt= (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")) (keyword #f "writing")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (if (jolt-truthy? suffix) (jolt-invoke (var-deref "clojure.pprint" "-write") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base")) suffix) jolt-nil) (let* ((temp__27__auto (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-block-callback")))) (if (jolt-truthy? temp__27__auto) (let* ((cb temp__27__auto)) (jolt-invoke cb (keyword #f "end"))) jolt-nil))) (let* ((oldpos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos"))) (newpos (jolt-n+ oldpos (if (jolt-truthy? suffix) (jolt-count suffix) 0)))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "pos") newpos) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-end-block-t") lb oldpos newpos))))) (let* ((_a$873 (var-deref "clojure.core" "swap!")) (_a$874 (record-method-dispatch this "-fields" (jolt-vector))) (_a$875 jolt-assoc) (_a$876 (keyword #f "logical-blocks")) (_a$877 (jolt-get lb (keyword #f "parent")))) (jolt-invoke _a$873 _a$874 _a$875 _a$876 _a$877)))))))) end-block) (let* ((_o$878 (keyword #f "private")) (_o$879 #t)) (jolt-hash-map _o$878 _o$879))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "nl" (letrec ((nl (lambda (this type) (let fnrec880 ((this this) (type type)) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (record-method-dispatch this "-fields" (jolt-vector)) jolt-assoc (keyword #f "mode") (keyword #f "buffering")) (let* ((pos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos")))) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-nl-t") type (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-blocks")) pos pos)))))))) nl) (let* ((_o$881 (keyword #f "private")) (_o$882 #t)) (jolt-hash-map _o$881 _o$882))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "indent" (letrec ((indent (lambda (this relative-to offset) (let fnrec883 ((this this) (relative-to relative-to) (offset offset)) (let* ((lb (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "logical-blocks")))) (if (jolt= (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "mode")) (keyword #f "writing")) (begin (jolt-invoke (var-deref "clojure.pprint" "write-white-space") this) (let* ((_a$886 (var-deref "clojure.core" "reset!")) (_a$887 (jolt-get lb (keyword #f "indent"))) (_a$888 (jolt-n+ offset (let* ((G__43 jolt=) (G__44 relative-to)) (if (jolt-truthy? (jolt-invoke G__43 (keyword #f "block") G__44)) (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get lb (keyword #f "start-col"))) (if (jolt-truthy? (jolt-invoke G__43 (keyword #f "current") G__44)) (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "base"))) (jolt-throw (let* ((_a$884 (jolt-invoke (var-deref "clojure.core" "str") "No matching clause: " G__44)) (_a$885 (jolt-hash-map))) (jolt-ex-info _a$884 _a$885))))))))) (jolt-invoke _a$886 _a$887 _a$888))) (let* ((pos (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "pos")))) (jolt-invoke (var-deref "clojure.pprint" "add-to-buffer") this (jolt-invoke (var-deref "clojure.pprint" "make-indent-t") lb relative-to offset pos pos))))))))) indent) (let* ((_o$889 (keyword #f "private")) (_o$890 #t)) (jolt-hash-map _o$889 _o$890))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-miser-width" (letrec ((get-miser-width (lambda (this) (let fnrec891 ((this this)) (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch this "-fields" (jolt-vector))) (keyword #f "miser-width")))))) get-miser-width) (let* ((_o$892 (keyword #f "private")) (_o$893 #t)) (jolt-hash-map _o$892 _o$893))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-pretty*" #t (let* ((_o$894 (keyword #f "dynamic")) (_o$895 #t)) (jolt-hash-map _o$894 _o$895))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-pprint-dispatch*" jolt-nil (let* ((_o$896 (keyword #f "dynamic")) (_o$897 #t)) (jolt-hash-map _o$896 _o$897))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-right-margin*" 72 (let* ((_o$898 (keyword #f "dynamic")) (_o$899 #t)) (jolt-hash-map _o$898 _o$899))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-miser-width*" 40 (let* ((_o$900 (keyword #f "dynamic")) (_o$901 #t)) (jolt-hash-map _o$900 _o$901))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-lines*" jolt-nil (let* ((_o$902 (keyword #f "private")) (_o$903 #t) (_o$904 (keyword #f "dynamic")) (_o$905 #t)) (jolt-hash-map _o$902 _o$903 _o$904 _o$905))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-circle*" jolt-nil (let* ((_o$906 (keyword #f "private")) (_o$907 #t) (_o$908 (keyword #f "dynamic")) (_o$909 #t)) (jolt-hash-map _o$906 _o$907 _o$908 _o$909))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-shared*" jolt-nil (let* ((_o$910 (keyword #f "private")) (_o$911 #t) (_o$912 (keyword #f "dynamic")) (_o$913 #t)) (jolt-hash-map _o$910 _o$911 _o$912 _o$913))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-suppress-namespaces*" jolt-nil (let* ((_o$914 (keyword #f "dynamic")) (_o$915 #t)) (jolt-hash-map _o$914 _o$915))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-radix*" jolt-nil (let* ((_o$916 (keyword #f "dynamic")) (_o$917 #t)) (jolt-hash-map _o$916 _o$917))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-base*" 10 (let* ((_o$918 (keyword #f "dynamic")) (_o$919 #t)) (jolt-hash-map _o$918 _o$919))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*current-level*" 0 (let* ((_o$920 (keyword #f "private")) (_o$921 #t) (_o$922 (keyword #f "dynamic")) (_o$923 #t)) (jolt-hash-map _o$920 _o$921 _o$922 _o$923))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*current-length*" jolt-nil (let* ((_o$924 (keyword #f "private")) (_o$925 #t) (_o$926 (keyword #f "dynamic")) (_o$927 #t)) (jolt-hash-map _o$924 _o$925 _o$926 _o$927))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-length*" jolt-nil (let* ((_o$928 (keyword #f "dynamic")) (_o$929 #t)) (jolt-hash-map _o$928 _o$929))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*print-level*" jolt-nil (let* ((_o$930 (keyword #f "dynamic")) (_o$931 #t)) (jolt-hash-map _o$930 _o$931))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "format-simple-number"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pretty-writer?" (letrec ((pretty-writer? (lambda (x) (let fnrec932 ((x x)) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "instance-check") (jolt-symbol #f "PrettyWriter") x))) (if (jolt-truthy? and__25__auto) (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch x "-fields" (jolt-vector))) (keyword #f "pretty-writer")) and__25__auto)))))) pretty-writer?) (let* ((_o$933 (keyword #f "private")) (_o$934 #t)) (jolt-hash-map _o$933 _o$934))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "make-pretty-writer" (letrec ((make-pretty-writer (lambda (base-writer right-margin miser-width) (let fnrec935 ((base-writer base-writer) (right-margin right-margin) (miser-width miser-width)) (jolt-invoke (var-deref "clojure.pprint" "pretty-writer") base-writer right-margin miser-width))))) make-pretty-writer) (let* ((_o$936 (keyword #f "private")) (_o$937 #t)) (jolt-hash-map _o$936 _o$937))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "with-pretty-writer"
(lambda (base-writer . body) (let fnrec938 ((base-writer base-writer) (body (list->cseq body))) (let* ((_a$978 (var-deref "clojure.core" "__sqcat")) (_a$979 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$980 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$945 (var-deref "clojure.core" "__sqvec")) (_a$946 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "base-writer__11__auto"))) (_a$947 (jolt-invoke (var-deref "clojure.core" "__sq1") base-writer)) (_a$948 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "new-writer__12__auto"))) (_a$949 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$942 (var-deref "clojure.core" "__sqcat")) (_a$943 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "not"))) (_a$944 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$939 (var-deref "clojure.core" "__sqcat")) (_a$940 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "pretty-writer?"))) (_a$941 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "base-writer__11__auto")))) (jolt-invoke _a$939 _a$940 _a$941))))) (jolt-invoke _a$942 _a$943 _a$944))))) (jolt-invoke _a$945 _a$946 _a$947 _a$948 _a$949)))) (_a$981 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$974 (var-deref "clojure.core" "__sqcat")) (_a$975 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "binding"))) (_a$976 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$960 (var-deref "clojure.core" "__sqvec")) (_a$961 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*out*"))) (_a$962 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$955 (var-deref "clojure.core" "__sqcat")) (_a$956 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$957 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "new-writer__12__auto"))) (_a$958 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$950 (var-deref "clojure.core" "__sqcat")) (_a$951 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "make-pretty-writer"))) (_a$952 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "base-writer__11__auto"))) (_a$953 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*print-right-margin*"))) (_a$954 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "*print-miser-width*")))) (jolt-invoke _a$950 _a$951 _a$952 _a$953 _a$954)))) (_a$959 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "base-writer__11__auto")))) (jolt-invoke _a$955 _a$956 _a$957 _a$958 _a$959))))) (jolt-invoke _a$960 _a$961 _a$962)))) (_a$977 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$971 (var-deref "clojure.core" "__sqcat")) (_a$972 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "__with-pprint-routing"))) (_a$973 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$966 (var-deref "clojure.core" "__sqcat")) (_a$967 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "fn"))) (_a$968 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqvec")))) (_a$969 body) (_a$970 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$963 (var-deref "clojure.core" "__sqcat")) (_a$964 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.pprint" "-ppflush"))) (_a$965 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "*out*")))) (jolt-invoke _a$963 _a$964 _a$965))))) (jolt-invoke _a$966 _a$967 _a$968 _a$969 _a$970))))) (jolt-invoke _a$971 _a$972 _a$973))))) (jolt-invoke _a$974 _a$975 _a$976 _a$977))))) (jolt-invoke _a$978 _a$979 _a$980 _a$981)))))
(mark-macro! "clojure.pprint" "with-pretty-writer"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write-out" (letrec ((write-out (lambda (object) (let fnrec982 ((object object)) (let* ((length-reached (let* ((and__25__auto (var-deref "clojure.pprint" "*current-length*"))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (var-deref "clojure.pprint" "*print-length*"))) (if (jolt-truthy? and__25__auto) (jolt-n>= (var-deref "clojure.pprint" "*current-length*") (var-deref "clojure.pprint" "*print-length*")) and__25__auto)) and__25__auto)))) (begin (if (jolt-not (var-deref "clojure.pprint" "*print-pretty*")) (jolt-invoke (var-deref "clojure.pprint" "pr") object) (if (jolt-truthy? length-reached) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "...") (begin (if (jolt-truthy? (var-deref "clojure.pprint" "*current-length*")) (jolt-var-set (jolt-var "clojure.pprint" "*current-length*") (jolt-inc (var-deref "clojure.pprint" "*current-length*"))) jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "*print-pprint-dispatch*") object)))) length-reached)))))) write-out) (let* ((_o$983 (keyword #f "doc")) (_o$984 "Write an object to *out* subject to the current bindings of the printer control\n variables. *out* must be a PrettyWriter when pretty printing is enabled.")) (jolt-hash-map _o$983 _o$984))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "write" (letrec ((write (lambda (object . kw-args) (let fnrec985 ((object object) (kw-args (list->cseq kw-args))) (let* ((options (let* ((_a$988 (var-deref "clojure.core" "merge")) (_a$989 (let* ((_o$986 (keyword #f "stream")) (_o$987 #t)) (jolt-hash-map _o$986 _o$987))) (_a$990 (jolt-apply jolt-hash-map-fn kw-args))) (jolt-invoke _a$988 _a$989 _a$990)))) (let* ((frame__20__auto (let* ((_a$991 (var-deref "clojure.core" "array-map")) (_a$992 (jolt-var "clojure.pprint" "*print-base*")) (_a$993 (jolt-get options (keyword #f "base") (var-deref "clojure.pprint" "*print-base*"))) (_a$994 (jolt-var "clojure.pprint" "*print-circle*")) (_a$995 (jolt-get options (keyword #f "circle") (var-deref "clojure.pprint" "*print-circle*"))) (_a$996 (jolt-var "clojure.pprint" "*print-length*")) (_a$997 (jolt-get options (keyword #f "length") (var-deref "clojure.pprint" "*print-length*"))) (_a$998 (jolt-var "clojure.pprint" "*print-level*")) (_a$999 (jolt-get options (keyword #f "level") (var-deref "clojure.pprint" "*print-level*"))) (_a$1000 (jolt-var "clojure.pprint" "*print-lines*")) (_a$1001 (jolt-get options (keyword #f "lines") (var-deref "clojure.pprint" "*print-lines*"))) (_a$1002 (jolt-var "clojure.pprint" "*print-miser-width*")) (_a$1003 (jolt-get options (keyword #f "miser-width") (var-deref "clojure.pprint" "*print-miser-width*"))) (_a$1004 (jolt-var "clojure.pprint" "*print-pprint-dispatch*")) (_a$1005 (jolt-get options (keyword #f "dispatch") (var-deref "clojure.pprint" "*print-pprint-dispatch*"))) (_a$1006 (jolt-var "clojure.pprint" "*print-pretty*")) (_a$1007 (jolt-get options (keyword #f "pretty") (var-deref "clojure.pprint" "*print-pretty*"))) (_a$1008 (jolt-var "clojure.pprint" "*print-radix*")) (_a$1009 (jolt-get options (keyword #f "radix") (var-deref "clojure.pprint" "*print-radix*"))) (_a$1010 (jolt-var "clojure.core" "*print-readably*")) (_a$1011 (jolt-get options (keyword #f "readably") (var-deref "clojure.core" "*print-readably*"))) (_a$1012 (jolt-var "clojure.pprint" "*print-right-margin*")) (_a$1013 (jolt-get options (keyword #f "right-margin") (var-deref "clojure.pprint" "*print-right-margin*"))) (_a$1014 (jolt-var "clojure.pprint" "*print-suppress-namespaces*")) (_a$1015 (jolt-get options (keyword #f "suppress-namespaces") (var-deref "clojure.pprint" "*print-suppress-namespaces*")))) (jolt-invoke _a$991 _a$992 _a$993 _a$994 _a$995 _a$996 _a$997 _a$998 _a$999 _a$1000 _a$1001 _a$1002 _a$1003 _a$1004 _a$1005 _a$1006 _a$1007 _a$1008 _a$1009 _a$1010 _a$1011 _a$1012 _a$1013 _a$1014 _a$1015)))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (let* ((sb (host-new "StringBuilder")) (optval (if (jolt-contains? options (keyword #f "stream")) (jolt-get options (keyword #f "stream")) #t)) (base-writer (if (jolt-truthy? (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "true?") optval))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-nil? optval)))) (jolt-invoke (var-deref "clojure.pprint" "->StringBufferWriter") sb) optval))) (begin (if (jolt-truthy? (var-deref "clojure.pprint" "*print-pretty*")) (let* ((base-writer__11__auto base-writer) (new-writer__12__auto (jolt-not (jolt-invoke (var-deref "clojure.pprint" "pretty-writer?") base-writer__11__auto)))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") (if (jolt-truthy? new-writer__12__auto) (jolt-invoke (var-deref "clojure.pprint" "make-pretty-writer") base-writer__11__auto (var-deref "clojure.pprint" "*print-right-margin*") (var-deref "clojure.pprint" "*print-miser-width*")) base-writer__11__auto)))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke (var-deref "clojure.core" "__with-pprint-routing") (lambda () (let fnrec1016 () (begin (jolt-invoke (var-deref "clojure.pprint" "write-out") object) (jolt-invoke (var-deref "clojure.pprint" "-ppflush") (var-deref "clojure.core" "*out*"))))))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") base-writer))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke (var-deref "clojure.pprint" "pr") object)) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "true?") optval)) (jolt-invoke (var-deref "clojure.core" "print") (jolt-invoke (var-deref "clojure.core" "str") sb)) jolt-nil) (if (jolt-nil? optval) (jolt-invoke (var-deref "clojure.core" "str") sb) jolt-nil)))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))))))) write) (let* ((_o$1017 (keyword #f "doc")) (_o$1018 "Write an object subject to the current bindings of the printer control\n variables. Returns the string result if :stream is nil, nil otherwise.")) (jolt-hash-map _o$1017 _o$1018))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint" (letrec ((pprint (case-lambda ((object) (let fnrec1019 ((object object)) (let* ((sb (host-new "StringBuilder"))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") (jolt-invoke (var-deref "clojure.pprint" "->StringBufferWriter") sb)))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (pprint object (var-deref "clojure.core" "*out*")) (jolt-invoke (var-deref "clojure.core" "print") (jolt-invoke (var-deref "clojure.core" "str") sb)))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))))) ((object writer) (let fnrec1020 ((object object) (writer writer)) (let* ((base-writer__11__auto writer) (new-writer__12__auto (jolt-not (jolt-invoke (var-deref "clojure.pprint" "pretty-writer?") base-writer__11__auto)))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") (if (jolt-truthy? new-writer__12__auto) (jolt-invoke (var-deref "clojure.pprint" "make-pretty-writer") base-writer__11__auto (var-deref "clojure.pprint" "*print-right-margin*") (var-deref "clojure.pprint" "*print-miser-width*")) base-writer__11__auto)))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke (var-deref "clojure.core" "__with-pprint-routing") (lambda () (let fnrec1021 () (begin (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*print-pretty*") #t))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke (var-deref "clojure.pprint" "write-out") object)) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings")))))) (if (jolt-not (jolt= 0 (jolt-invoke (var-deref "clojure.pprint" "get-column") (var-deref "clojure.core" "*out*")))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "\n") jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "-ppflush") (var-deref "clojure.core" "*out*"))))))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings")))))))))))) pprint) (let* ((_o$1022 (keyword #f "doc")) (_o$1023 "Pretty print object. With one arg, prints to *out* (captured by with-out-str).\n The 2-arg form writes to the supplied pretty-writer.")) (jolt-hash-map _o$1022 _o$1023))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "set-pprint-dispatch" (letrec ((set-pprint-dispatch (lambda (function) (let fnrec1024 ((function function)) (begin (jolt-var-set (jolt-var "clojure.pprint" "*print-pprint-dispatch*") function) jolt-nil))))) set-pprint-dispatch)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "check-enumerated-arg" (letrec ((check-enumerated-arg (lambda (arg choices) (let fnrec1025 ((arg arg) (choices choices)) (if (jolt-not (jolt-invoke choices arg)) (jolt-throw (host-new "Exception" (jolt-invoke (var-deref "clojure.core" "str") "Bad argument: " arg ". It must be one of " choices))) jolt-nil))))) check-enumerated-arg) (let* ((_o$1026 (keyword #f "private")) (_o$1027 #t)) (jolt-hash-map _o$1026 _o$1027))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "level-exceeded" (letrec ((level-exceeded (lambda () (let fnrec1028 () (let* ((and__25__auto (var-deref "clojure.pprint" "*print-level*"))) (if (jolt-truthy? and__25__auto) (jolt-n>= (var-deref "clojure.pprint" "*current-level*") (var-deref "clojure.pprint" "*print-level*")) and__25__auto)))))) level-exceeded) (let* ((_o$1029 (keyword #f "private")) (_o$1030 #t)) (jolt-hash-map _o$1029 _o$1030))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-newline" (letrec ((pprint-newline (lambda (kind) (let fnrec1031 ((kind kind)) (begin (jolt-invoke (var-deref "clojure.pprint" "check-enumerated-arg") kind (let* ((_o$1032 (keyword #f "linear")) (_o$1033 (keyword #f "miser")) (_o$1034 (keyword #f "fill")) (_o$1035 (keyword #f "mandatory"))) (jolt-hash-set _o$1032 _o$1033 _o$1034 _o$1035))) (jolt-invoke (var-deref "clojure.pprint" "nl") (var-deref "clojure.core" "*out*") kind)))))) pprint-newline) (let* ((_o$1036 (keyword #f "doc")) (_o$1037 "Print a conditional newline (:linear :miser :fill or :mandatory) to *out*,\n which must be a pretty-printing writer.")) (jolt-hash-map _o$1036 _o$1037))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-indent" (letrec ((pprint-indent (lambda (relative-to n) (let fnrec1038 ((relative-to relative-to) (n n)) (begin (jolt-invoke (var-deref "clojure.pprint" "check-enumerated-arg") relative-to (let* ((_o$1039 (keyword #f "block")) (_o$1040 (keyword #f "current"))) (jolt-hash-set _o$1039 _o$1040))) (jolt-invoke (var-deref "clojure.pprint" "indent") (var-deref "clojure.core" "*out*") relative-to n)))))) pprint-indent) (let* ((_o$1041 (keyword #f "doc")) (_o$1042 "Create an indent at this point in the pretty-printing stream. relative-to is\n :block or :current; n is an offset.")) (jolt-hash-map _o$1041 _o$1042))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "pprint-tab" (letrec ((pprint-tab (lambda (kind colnum colinc) (let fnrec1043 ((kind kind) (colnum colnum) (colinc colinc)) (begin (jolt-invoke (var-deref "clojure.pprint" "check-enumerated-arg") kind (let* ((_o$1044 (keyword #f "line")) (_o$1045 (keyword #f "section")) (_o$1046 (keyword #f "line-relative")) (_o$1047 (keyword #f "section-relative"))) (jolt-hash-set _o$1044 _o$1045 _o$1046 _o$1047))) (jolt-throw (host-new "Exception" "pprint-tab is not yet implemented"))))))) pprint-tab)))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "compile-format"))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "execute-format"))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "init-navigator"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "cl-format" (letrec ((cl-format (lambda (writer format-in . args) (let fnrec1048 ((writer writer) (format-in format-in) (args (list->cseq args))) (let* ((compiled-format (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") format-in)) (jolt-invoke (var-deref "clojure.pprint" "compile-format") format-in) format-in)) (navigator (jolt-invoke (var-deref "clojure.pprint" "init-navigator") args))) (jolt-invoke (var-deref "clojure.pprint" "execute-format") writer compiled-format navigator)))))) cl-format) (let* ((_o$1049 (keyword #f "doc")) (_o$1050 "A Common Lisp compatible format function. If writer is nil, returns the\n formatted string; if true, prints to *out*; otherwise writes to writer.")) (jolt-hash-map _o$1049 _o$1050))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "*format-str*" jolt-nil (let* ((_o$1051 (keyword #f "private")) (_o$1052 #t) (_o$1053 (keyword #f "dynamic")) (_o$1054 #t)) (jolt-hash-map _o$1051 _o$1052 _o$1053 _o$1054))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "format-error" (letrec ((format-error (lambda (message offset) (let fnrec1055 ((message message) (offset offset)) (let* ((full-message (jolt-invoke (var-deref "clojure.core" "str") message "\n" (var-deref "clojure.pprint" "*format-str*") "\n" (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") offset (integer->char 32))) "^" "\n"))) (jolt-throw (host-new "Exception" full-message))))))) format-error) (let* ((_o$1056 (keyword #f "private")) (_o$1057 #t)) (jolt-hash-map _o$1056 _o$1057))))
(guard (e (#t #f))
(begin (begin (def-var-with-meta! "clojure.pprint" "arg-navigator" (let* ((_a$1067 (var-deref "clojure.core" "make-deftype-ctor")) (_a$1068 (jolt-invoke (var-deref "clojure.core" "with-meta") (jolt-symbol/meta #f "arg-navigator" (jolt-hash-map (keyword #f "private") #t)) (jolt-hash-map (keyword #f "private") #t))) (_a$1069 (let* ((_o$1058 (keyword #f "seq")) (_o$1059 (keyword #f "rest")) (_o$1060 (keyword #f "pos"))) (jolt-vector _o$1058 _o$1059 _o$1060))) (_a$1070 (let* ((_o$1061 jolt-nil) (_o$1062 jolt-nil) (_o$1063 jolt-nil)) (jolt-vector _o$1061 _o$1062 _o$1063))) (_a$1071 (let* ((_o$1064 #f) (_o$1065 #f) (_o$1066 #f)) (jolt-vector _o$1064 _o$1065 _o$1066)))) (jolt-invoke _a$1067 _a$1068 _a$1069 _a$1070 _a$1071)) (let* ((_o$1072 (keyword #f "private")) (_o$1073 #t)) (jolt-hash-map _o$1072 _o$1073))) (def-var! "clojure.pprint" "->arg-navigator" (var-deref "clojure.pprint" "arg-navigator")) (var-deref "clojure.pprint" "arg-navigator")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-invoke (var-deref "clojure.core" "with-meta") (jolt-symbol/meta #f "arg-navigator" (jolt-hash-map (keyword #f "private") #t)) (jolt-hash-map (keyword #f "private") #t))) (def-var! "clojure.pprint" "map->arg-navigator" (lambda (G__45) (let fnrec1074 ((G__45 G__45)) (let* ((_a$1079 (var-deref "clojure.core" "reduce-kv")) (_a$1080 jolt-assoc) (_a$1081 (let* ((_a$1075 (var-deref "clojure.pprint" "->arg-navigator")) (_a$1076 (jolt-get G__45 (keyword #f "seq"))) (_a$1077 (jolt-get G__45 (keyword #f "rest"))) (_a$1078 (jolt-get G__45 (keyword #f "pos")))) (jolt-invoke _a$1075 _a$1076 _a$1077 _a$1078))) (_a$1082 (jolt-dissoc G__45 (keyword #f "seq") (keyword #f "rest") (keyword #f "pos")))) (jolt-invoke _a$1079 _a$1080 _a$1081 _a$1082)))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "init-navigator" (letrec ((init-navigator (lambda (s) (let fnrec1083 ((s s)) (let* ((s (jolt-seq s))) (jolt-invoke (var-deref "clojure.pprint" "->arg-navigator") s s 0)))))) init-navigator) (let* ((_o$1084 (keyword #f "private")) (_o$1085 #t)) (jolt-hash-map _o$1084 _o$1085))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "next-arg" (letrec ((next-arg (lambda (navigator) (let fnrec1086 ((navigator navigator)) (let* ((rst (jolt-get navigator (keyword #f "rest")))) (if (jolt-truthy? rst) (let* ((_o$1091 (jolt-first rst)) (_o$1092 (let* ((_a$1087 (var-deref "clojure.pprint" "->arg-navigator")) (_a$1088 (jolt-get navigator (keyword #f "seq"))) (_a$1089 (jolt-next rst)) (_a$1090 (jolt-inc (jolt-get navigator (keyword #f "pos"))))) (jolt-invoke _a$1087 _a$1088 _a$1089 _a$1090)))) (jolt-vector _o$1091 _o$1092)) (jolt-throw (host-new "Exception" "Not enough arguments for format definition")))))))) next-arg) (let* ((_o$1093 (keyword #f "private")) (_o$1094 #t)) (jolt-hash-map _o$1093 _o$1094))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "next-arg-or-nil" (letrec ((next-arg-or-nil (lambda (navigator) (let fnrec1095 ((navigator navigator)) (let* ((rst (jolt-get navigator (keyword #f "rest")))) (if (jolt-truthy? rst) (let* ((_o$1100 (jolt-first rst)) (_o$1101 (let* ((_a$1096 (var-deref "clojure.pprint" "->arg-navigator")) (_a$1097 (jolt-get navigator (keyword #f "seq"))) (_a$1098 (jolt-next rst)) (_a$1099 (jolt-inc (jolt-get navigator (keyword #f "pos"))))) (jolt-invoke _a$1096 _a$1097 _a$1098 _a$1099)))) (jolt-vector _o$1100 _o$1101)) (let* ((_o$1102 jolt-nil) (_o$1103 navigator)) (jolt-vector _o$1102 _o$1103)))))))) next-arg-or-nil) (let* ((_o$1104 (keyword #f "private")) (_o$1105 #t)) (jolt-hash-map _o$1104 _o$1105))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-format-arg" (letrec ((get-format-arg (lambda (navigator) (let fnrec1106 ((navigator navigator)) (let* ((G__46 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (raw-format (jolt-nth G__46 0 jolt-nil)) (navigator (jolt-nth G__46 1 jolt-nil)) (compiled-format (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") raw-format)) (jolt-invoke (var-deref "clojure.pprint" "compile-format") raw-format) raw-format))) (let* ((_o$1107 compiled-format) (_o$1108 navigator)) (jolt-vector _o$1107 _o$1108))))))) get-format-arg) (let* ((_o$1109 (keyword #f "private")) (_o$1110 #t)) (jolt-hash-map _o$1109 _o$1110))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "relative-reposition"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "absolute-reposition" (letrec ((absolute-reposition (lambda (navigator position) (let fnrec1111 ((navigator navigator) (position position)) (if (jolt-n>= position (jolt-get navigator (keyword #f "pos"))) (jolt-invoke (var-deref "clojure.pprint" "relative-reposition") navigator (jolt-n- (jolt-get navigator (keyword #f "pos")) position)) (let* ((_a$1112 (var-deref "clojure.pprint" "->arg-navigator")) (_a$1113 (jolt-get navigator (keyword #f "seq"))) (_a$1114 (jolt-drop position (jolt-get navigator (keyword #f "seq")))) (_a$1115 position)) (jolt-invoke _a$1112 _a$1113 _a$1114 _a$1115))))))) absolute-reposition) (let* ((_o$1116 (keyword #f "private")) (_o$1117 #t)) (jolt-hash-map _o$1116 _o$1117))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "relative-reposition" (letrec ((relative-reposition (lambda (navigator position) (let fnrec1118 ((navigator navigator) (position position)) (let* ((newpos (jolt-n+ (jolt-get navigator (keyword #f "pos")) position))) (if (jolt-neg? position) (jolt-invoke (var-deref "clojure.pprint" "absolute-reposition") navigator newpos) (let* ((_a$1119 (var-deref "clojure.pprint" "->arg-navigator")) (_a$1120 (jolt-get navigator (keyword #f "seq"))) (_a$1121 (jolt-drop position (jolt-get navigator (keyword #f "rest")))) (_a$1122 newpos)) (jolt-invoke _a$1119 _a$1120 _a$1121 _a$1122)))))))) relative-reposition) (let* ((_o$1123 (keyword #f "private")) (_o$1124 #t)) (jolt-hash-map _o$1123 _o$1124))))
(guard (e (#t #f))
(begin (begin (def-var-with-meta! "clojure.pprint" "compiled-directive" (let* ((_a$1137 (var-deref "clojure.core" "make-deftype-ctor")) (_a$1138 (jolt-invoke (var-deref "clojure.core" "with-meta") (jolt-symbol/meta #f "compiled-directive" (jolt-hash-map (keyword #f "private") #t)) (jolt-hash-map (keyword #f "private") #t))) (_a$1139 (let* ((_o$1125 (keyword #f "func")) (_o$1126 (keyword #f "dirdef")) (_o$1127 (keyword #f "params")) (_o$1128 (keyword #f "offset"))) (jolt-vector _o$1125 _o$1126 _o$1127 _o$1128))) (_a$1140 (let* ((_o$1129 jolt-nil) (_o$1130 jolt-nil) (_o$1131 jolt-nil) (_o$1132 jolt-nil)) (jolt-vector _o$1129 _o$1130 _o$1131 _o$1132))) (_a$1141 (let* ((_o$1133 #f) (_o$1134 #f) (_o$1135 #f) (_o$1136 #f)) (jolt-vector _o$1133 _o$1134 _o$1135 _o$1136)))) (jolt-invoke _a$1137 _a$1138 _a$1139 _a$1140 _a$1141)) (let* ((_o$1142 (keyword #f "private")) (_o$1143 #t)) (jolt-hash-map _o$1142 _o$1143))) (def-var! "clojure.pprint" "->compiled-directive" (var-deref "clojure.pprint" "compiled-directive")) (var-deref "clojure.pprint" "compiled-directive")) (jolt-invoke (var-deref "clojure.core" "register-record-type!") (jolt-invoke (var-deref "clojure.core" "with-meta") (jolt-symbol/meta #f "compiled-directive" (jolt-hash-map (keyword #f "private") #t)) (jolt-hash-map (keyword #f "private") #t))) (def-var! "clojure.pprint" "map->compiled-directive" (lambda (G__47) (let fnrec1144 ((G__47 G__47)) (let* ((_a$1150 (var-deref "clojure.core" "reduce-kv")) (_a$1151 jolt-assoc) (_a$1152 (let* ((_a$1145 (var-deref "clojure.pprint" "->compiled-directive")) (_a$1146 (jolt-get G__47 (keyword #f "func"))) (_a$1147 (jolt-get G__47 (keyword #f "dirdef"))) (_a$1148 (jolt-get G__47 (keyword #f "params"))) (_a$1149 (jolt-get G__47 (keyword #f "offset")))) (jolt-invoke _a$1145 _a$1146 _a$1147 _a$1148 _a$1149))) (_a$1153 (jolt-dissoc G__47 (keyword #f "func") (keyword #f "dirdef") (keyword #f "params") (keyword #f "offset")))) (jolt-invoke _a$1150 _a$1151 _a$1152 _a$1153)))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "realize-parameter" (letrec ((realize-parameter (lambda (G__48 navigator) (let fnrec1154 ((G__48 G__48) (navigator navigator)) (let* ((G__49 G__48) (param (jolt-nth G__49 0 jolt-nil)) (G__50 (jolt-nth G__49 1 jolt-nil)) (raw-val (jolt-nth G__50 0 jolt-nil)) (offset (jolt-nth G__50 1 jolt-nil))) (let* ((G__51 (if (jolt-contains? (let* ((_o$1155 (keyword #f "at")) (_o$1156 (keyword #f "colon"))) (jolt-hash-set _o$1155 _o$1156)) param) (let* ((_o$1157 raw-val) (_o$1158 navigator)) (jolt-vector _o$1157 _o$1158)) (if (jolt= raw-val (keyword #f "parameter-from-args")) (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator) (if (jolt= raw-val (keyword #f "remaining-arg-count")) (let* ((_o$1159 (jolt-count (jolt-get navigator (keyword #f "rest")))) (_o$1160 navigator)) (jolt-vector _o$1159 _o$1160)) (if #t (let* ((_o$1161 raw-val) (_o$1162 navigator)) (jolt-vector _o$1161 _o$1162)) jolt-nil))))) (real-param (jolt-nth G__51 0 jolt-nil)) (new-navigator (jolt-nth G__51 1 jolt-nil))) (let* ((_o$1167 (let* ((_o$1165 param) (_o$1166 (let* ((_o$1163 real-param) (_o$1164 offset)) (jolt-vector _o$1163 _o$1164)))) (jolt-vector _o$1165 _o$1166))) (_o$1168 new-navigator)) (jolt-vector _o$1167 _o$1168)))))))) realize-parameter) (let* ((_o$1169 (keyword #f "private")) (_o$1170 #t)) (jolt-hash-map _o$1169 _o$1170))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "realize-parameter-list" (letrec ((realize-parameter-list (lambda (parameter-map navigator) (let fnrec1171 ((parameter-map parameter-map) (navigator navigator)) (let* ((G__52 (jolt-invoke (var-deref "clojure.pprint" "map-passing-context") (var-deref "clojure.pprint" "realize-parameter") navigator parameter-map)) (pairs (jolt-nth G__52 0 jolt-nil)) (new-navigator (jolt-nth G__52 1 jolt-nil))) (let* ((_o$1172 (jolt-into (jolt-hash-map) pairs)) (_o$1173 new-navigator)) (jolt-vector _o$1172 _o$1173))))))) realize-parameter-list) (let* ((_o$1174 (keyword #f "private")) (_o$1175 #t)) (jolt-hash-map _o$1174 _o$1175))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "opt-base-str"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "special-radix-markers" (let* ((_o$1176 2) (_o$1177 "#b") (_o$1178 8) (_o$1179 "#o") (_o$1180 16) (_o$1181 "#x")) (jolt-hash-map _o$1176 _o$1177 _o$1178 _o$1179 _o$1180 _o$1181)) (let* ((_o$1182 (keyword #f "private")) (_o$1183 #t)) (jolt-hash-map _o$1182 _o$1183))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "format-simple-number" (letrec ((format-simple-number (lambda (n) (let fnrec1184 ((n n)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "integer?") n)) (if (jolt= (var-deref "clojure.pprint" "*print-base*") 10) (jolt-invoke (var-deref "clojure.core" "str") n (if (jolt-truthy? (var-deref "clojure.pprint" "*print-radix*")) "." jolt-nil)) (let* ((_a$1185 (var-deref "clojure.core" "str")) (_a$1186 (if (jolt-truthy? (var-deref "clojure.pprint" "*print-radix*")) (let* ((or__26__auto (jolt-get (var-deref "clojure.pprint" "special-radix-markers") (var-deref "clojure.pprint" "*print-base*")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "str") "#" (var-deref "clojure.pprint" "*print-base*") "r"))) jolt-nil)) (_a$1187 (jolt-invoke (var-deref "clojure.pprint" "opt-base-str") (var-deref "clojure.pprint" "*print-base*") n))) (jolt-invoke _a$1185 _a$1186 _a$1187))) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))) format-simple-number) (let* ((_o$1188 (keyword #f "private")) (_o$1189 #t)) (jolt-hash-map _o$1188 _o$1189))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "format-ascii" (letrec ((format-ascii (lambda (print-func params arg-navigator offsets) (let fnrec1190 ((print-func print-func) (params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((G__53 (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator)) (arg (jolt-nth G__53 0 jolt-nil)) (arg-navigator (jolt-nth G__53 1 jolt-nil)) (base-output (let* ((or__26__auto (jolt-invoke (var-deref "clojure.pprint" "format-simple-number") arg))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke print-func arg)))) (base-width (jolt-count base-output)) (min-width (jolt-n+ base-width (jolt-get params (keyword #f "minpad")))) (width (if (jolt-n>= min-width (jolt-get params (keyword #f "mincol"))) min-width (jolt-n+ min-width (let* ((_a$1193 (jolt-n+ (let* ((_a$1191 (jolt-n- (jolt-get params (keyword #f "mincol")) min-width 1)) (_a$1192 (jolt-get params (keyword #f "colinc")))) (jolt-quot _a$1191 _a$1192)) 1)) (_a$1194 (jolt-get params (keyword #f "colinc")))) (jolt-n* _a$1193 _a$1194))))) (chars (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$1195 (var-deref "clojure.core" "repeat")) (_a$1196 (jolt-n- width base-width)) (_a$1197 (jolt-get params (keyword #f "padchar")))) (jolt-invoke _a$1195 _a$1196 _a$1197))))) (begin (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-invoke (var-deref "clojure.core" "str") chars base-output)) (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-invoke (var-deref "clojure.core" "str") base-output chars))) arg-navigator)))))) format-ascii) (let* ((_o$1198 (keyword #f "private")) (_o$1199 #t)) (jolt-hash-map _o$1198 _o$1199))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "integral?" (letrec ((integral? (lambda (x) (let fnrec1200 ((x x)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "integer?") x)) #t (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "float?") x)) (jolt= x (host-static-call "Math" "floor" x)) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))))) integral?) (let* ((_o$1201 (keyword #f "private")) (_o$1202 #t)) (jolt-hash-map _o$1201 _o$1202))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "remainders" (letrec ((remainders (lambda (base val) (let fnrec1203 ((base base) (val val)) (jolt-reverse (jolt-first (jolt-invoke (var-deref "clojure.pprint" "consume") (lambda (p__8_) (let fnrec1204 ((p__8_ p__8_)) (if (jolt-pos? p__8_) (let* ((_o$1205 (jolt-rem p__8_ base)) (_o$1206 (jolt-quot p__8_ base))) (jolt-vector _o$1205 _o$1206)) (let* ((_o$1207 jolt-nil) (_o$1208 jolt-nil)) (jolt-vector _o$1207 _o$1208))))) val))))))) remainders) (let* ((_o$1209 (keyword #f "private")) (_o$1210 #t)) (jolt-hash-map _o$1209 _o$1210))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "base-str" (letrec ((base-str (lambda (base val) (let fnrec1211 ((base base) (val val)) (if (jolt-zero? val) "0" (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$1215 (lambda (p__9_) (let fnrec1212 ((p__9_ p__9_)) (if (jolt-n< p__9_ 10) (jolt-invoke (var-deref "clojure.core" "char") (jolt-n+ (jolt-invoke (var-deref "clojure.pprint" "char-code") (integer->char 48)) p__9_)) (jolt-invoke (var-deref "clojure.core" "char") (let* ((_a$1213 (jolt-invoke (var-deref "clojure.pprint" "char-code") (integer->char 97))) (_a$1214 (jolt-n- p__9_ 10))) (jolt-n+ _a$1213 _a$1214))))))) (_a$1216 (jolt-invoke (var-deref "clojure.pprint" "remainders") base val))) (jolt-map _a$1215 _a$1216)))))))) base-str) (let* ((_o$1217 (keyword #f "private")) (_o$1218 #t)) (jolt-hash-map _o$1217 _o$1218))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "opt-base-str" (letrec ((opt-base-str (lambda (base val) (let fnrec1219 ((base base) (val val)) (jolt-invoke (var-deref "clojure.pprint" "base-str") base val))))) opt-base-str) (let* ((_o$1220 (keyword #f "private")) (_o$1221 #t)) (jolt-hash-map _o$1220 _o$1221))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "group-by*" (letrec ((group-by* (lambda (unit lis) (let fnrec1222 ((unit unit) (lis lis)) (jolt-reverse (jolt-first (let* ((_a$1226 (var-deref "clojure.pprint" "consume")) (_a$1227 (lambda (x) (let fnrec1223 ((x x)) (let* ((_o$1224 (jolt-seq (jolt-reverse (jolt-take unit x)))) (_o$1225 (jolt-seq (jolt-drop unit x)))) (jolt-vector _o$1224 _o$1225))))) (_a$1228 (jolt-reverse lis))) (jolt-invoke _a$1226 _a$1227 _a$1228)))))))) group-by*) (let* ((_o$1229 (keyword #f "private")) (_o$1230 #t)) (jolt-hash-map _o$1229 _o$1230))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "format-integer" (letrec ((format-integer (lambda (base params arg-navigator offsets) (let fnrec1231 ((base base) (params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((G__54 (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator)) (arg (jolt-nth G__54 0 jolt-nil)) (arg-navigator (jolt-nth G__54 1 jolt-nil))) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "integral?") arg)) (let* ((neg (jolt-neg? arg)) (pos-arg (if (jolt-truthy? neg) (jolt-n- arg) arg)) (raw-str (jolt-invoke (var-deref "clojure.pprint" "opt-base-str") base pos-arg)) (group-str (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (let* ((groups (let* ((_a$1233 (lambda (p__10_) (let fnrec1232 ((p__10_ p__10_)) (jolt-apply (var-deref "clojure.core" "str") p__10_)))) (_a$1234 (jolt-invoke (var-deref "clojure.pprint" "group-by*") (jolt-get params (keyword #f "commainterval")) raw-str))) (jolt-map _a$1233 _a$1234))) (commas (let* ((_a$1235 (var-deref "clojure.core" "repeat")) (_a$1236 (jolt-count groups)) (_a$1237 (jolt-get params (keyword #f "commachar")))) (jolt-invoke _a$1235 _a$1236 _a$1237)))) (jolt-apply (var-deref "clojure.core" "str") (jolt-next (jolt-invoke (var-deref "clojure.core" "interleave") commas groups)))) raw-str)) (signed-str (if (jolt-truthy? neg) (jolt-invoke (var-deref "clojure.core" "str") "-" group-str) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (jolt-invoke (var-deref "clojure.core" "str") "+" group-str) (if #t group-str jolt-nil)))) (padded-str (if (let* ((_a$1238 (jolt-count signed-str)) (_a$1239 (jolt-get params (keyword #f "mincol")))) (jolt-n< _a$1238 _a$1239)) (jolt-invoke (var-deref "clojure.core" "str") (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$1242 (var-deref "clojure.core" "repeat")) (_a$1243 (let* ((_a$1240 (jolt-get params (keyword #f "mincol"))) (_a$1241 (jolt-count signed-str))) (jolt-n- _a$1240 _a$1241))) (_a$1244 (jolt-get params (keyword #f "padchar")))) (jolt-invoke _a$1242 _a$1243 _a$1244))) signed-str) signed-str))) (jolt-invoke (var-deref "clojure.pprint" "print") padded-str)) (let* ((_a$1255 (var-deref "clojure.pprint" "format-ascii")) (_a$1256 (var-deref "clojure.core" "print-str")) (_a$1257 (let* ((_o$1245 (keyword #f "mincol")) (_o$1246 (jolt-get params (keyword #f "mincol"))) (_o$1247 (keyword #f "colinc")) (_o$1248 1) (_o$1249 (keyword #f "minpad")) (_o$1250 0) (_o$1251 (keyword #f "padchar")) (_o$1252 (jolt-get params (keyword #f "padchar"))) (_o$1253 (keyword #f "at")) (_o$1254 #t)) (jolt-hash-map _o$1245 _o$1246 _o$1247 _o$1248 _o$1249 _o$1250 _o$1251 _o$1252 _o$1253 _o$1254))) (_a$1258 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") (jolt-vector arg))) (_a$1259 jolt-nil)) (jolt-invoke _a$1255 _a$1256 _a$1257 _a$1258 _a$1259))) arg-navigator)))))) format-integer) (let* ((_o$1260 (keyword #f "private")) (_o$1261 #t)) (jolt-hash-map _o$1260 _o$1261))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "abort?" (letrec ((abort? (lambda (context) (let fnrec1262 ((context context)) (let* ((token (jolt-first context))) (let* ((or__26__auto (jolt= (keyword #f "up-arrow") token))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= (keyword #f "colon-up-arrow") token)))))))) abort?) (let* ((_o$1263 (keyword #f "private")) (_o$1264 #t)) (jolt-hash-map _o$1263 _o$1264))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "execute-sub-format" (letrec ((execute-sub-format (lambda (format args base-args) (let fnrec1265 ((format format) (args args) (base-args base-args)) (jolt-invoke (var-deref "clojure.core" "second") (jolt-invoke (var-deref "clojure.pprint" "map-passing-context") (lambda (element context) (let fnrec1266 ((element element) (context context)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "abort?") context)) (let* ((_o$1267 jolt-nil) (_o$1268 context)) (jolt-vector _o$1267 _o$1268)) (let* ((G__55 (jolt-invoke (var-deref "clojure.pprint" "realize-parameter-list") (jolt-get element (keyword #f "params")) context)) (params (jolt-nth G__55 0 jolt-nil)) (args (jolt-nth G__55 1 jolt-nil)) (G__56 (jolt-invoke (var-deref "clojure.pprint" "unzip-map") params)) (params (jolt-nth G__56 0 jolt-nil)) (offsets (jolt-nth G__56 1 jolt-nil)) (params (jolt-assoc params (keyword #f "base-args") base-args))) (let* ((_o$1274 jolt-nil) (_o$1275 (let* ((_a$1272 (jolt-get element (keyword #f "func"))) (_a$1273 (let* ((_o$1269 params) (_o$1270 args) (_o$1271 offsets)) (jolt-vector _o$1269 _o$1270 _o$1271)))) (jolt-apply _a$1272 _a$1273)))) (jolt-vector _o$1274 _o$1275)))))) args format)))))) execute-sub-format) (let* ((_o$1276 (keyword #f "private")) (_o$1277 #t)) (jolt-hash-map _o$1276 _o$1277))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "choice-conditional" (letrec ((choice-conditional (lambda (params arg-navigator offsets) (let fnrec1278 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((arg (jolt-get params (keyword #f "selector"))) (G__57 (if (jolt-truthy? arg) (let* ((_o$1279 arg) (_o$1280 arg-navigator)) (jolt-vector _o$1279 _o$1280)) (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator))) (arg (jolt-nth G__57 0 jolt-nil)) (navigator (jolt-nth G__57 1 jolt-nil)) (clauses (jolt-get params (keyword #f "clauses"))) (clause (if (let* ((or__26__auto (jolt-neg? arg))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n>= arg (jolt-count clauses)))) (jolt-first (jolt-get params (keyword #f "else"))) (jolt-nth clauses arg)))) (if (jolt-truthy? clause) (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause navigator (jolt-get params (keyword #f "base-args"))) navigator)))))) choice-conditional) (let* ((_o$1281 (keyword #f "private")) (_o$1282 #t)) (jolt-hash-map _o$1281 _o$1282))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "boolean-conditional" (letrec ((boolean-conditional (lambda (params arg-navigator offsets) (let fnrec1283 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((G__58 (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator)) (arg (jolt-nth G__58 0 jolt-nil)) (navigator (jolt-nth G__58 1 jolt-nil)) (clauses (jolt-get params (keyword #f "clauses"))) (clause (if (jolt-truthy? arg) (jolt-invoke (var-deref "clojure.core" "second") clauses) (jolt-first clauses)))) (if (jolt-truthy? clause) (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause navigator (jolt-get params (keyword #f "base-args"))) navigator)))))) boolean-conditional) (let* ((_o$1284 (keyword #f "private")) (_o$1285 #t)) (jolt-hash-map _o$1284 _o$1285))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "check-arg-conditional" (letrec ((check-arg-conditional (lambda (params arg-navigator offsets) (let fnrec1286 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((G__59 (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator)) (arg (jolt-nth G__59 0 jolt-nil)) (navigator (jolt-nth G__59 1 jolt-nil)) (clauses (jolt-get params (keyword #f "clauses"))) (clause (if (jolt-truthy? arg) (jolt-first clauses) jolt-nil))) (if (jolt-truthy? arg) (if (jolt-truthy? clause) (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause arg-navigator (jolt-get params (keyword #f "base-args"))) arg-navigator) navigator)))))) check-arg-conditional) (let* ((_o$1287 (keyword #f "private")) (_o$1288 #t)) (jolt-hash-map _o$1287 _o$1288))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "iterate-sublist" (letrec ((iterate-sublist (lambda (params navigator offsets) (let fnrec1289 ((params params) (navigator navigator) (offsets offsets)) (let* ((max-count (jolt-get params (keyword #f "max-iterations"))) (param-clause (jolt-first (jolt-get params (keyword #f "clauses")))) (G__60 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1290 param-clause) (_o$1291 navigator)) (jolt-vector _o$1290 _o$1291)))) (clause (jolt-nth G__60 0 jolt-nil)) (navigator (jolt-nth G__60 1 jolt-nil)) (G__61 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg-list (jolt-nth G__61 0 jolt-nil)) (navigator (jolt-nth G__61 1 jolt-nil)) (args (jolt-invoke (var-deref "clojure.pprint" "init-navigator") arg-list))) (let* ((count 0) (args args) (last-pos -1)) (let loop1292 ((count count) (args args) (last-pos last-pos)) (begin (if (let* ((and__25__auto (jolt-not max-count))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= (jolt-get args (keyword #f "pos")) last-pos))) (if (jolt-truthy? and__25__auto) (jolt-n> count 1) and__25__auto)) and__25__auto)) (jolt-throw (host-new "Exception" "~{ construct not consuming any arguments: Infinite loop!")) jolt-nil) (if (jolt-truthy? (let* ((or__26__auto (let* ((and__25__auto (jolt-empty? (jolt-get args (keyword #f "rest"))))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-not (jolt-get (jolt-get params (keyword #f "right-params")) (keyword #f "colon"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n> count 0))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto max-count)) (if (jolt-truthy? and__25__auto) (jolt-n>= count max-count) and__25__auto))))) navigator (let* ((iter-result (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause args (jolt-get params (keyword #f "base-args"))))) (if (jolt= (keyword #f "up-arrow") (jolt-first iter-result)) navigator (let* ((_a$1293 (jolt-inc count)) (_a$1294 iter-result) (_a$1295 (jolt-get args (keyword #f "pos")))) (loop1292 _a$1293 _a$1294 _a$1295))))))))))))) iterate-sublist) (let* ((_o$1296 (keyword #f "private")) (_o$1297 #t)) (jolt-hash-map _o$1296 _o$1297))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "iterate-list-of-sublists" (letrec ((iterate-list-of-sublists (lambda (params navigator offsets) (let fnrec1298 ((params params) (navigator navigator) (offsets offsets)) (let* ((max-count (jolt-get params (keyword #f "max-iterations"))) (param-clause (jolt-first (jolt-get params (keyword #f "clauses")))) (G__62 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1299 param-clause) (_o$1300 navigator)) (jolt-vector _o$1299 _o$1300)))) (clause (jolt-nth G__62 0 jolt-nil)) (navigator (jolt-nth G__62 1 jolt-nil)) (G__63 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg-list (jolt-nth G__63 0 jolt-nil)) (navigator (jolt-nth G__63 1 jolt-nil))) (let* ((count 0) (arg-list arg-list)) (let loop1301 ((count count) (arg-list arg-list)) (if (jolt-truthy? (let* ((or__26__auto (let* ((and__25__auto (jolt-empty? arg-list))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-not (jolt-get (jolt-get params (keyword #f "right-params")) (keyword #f "colon"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n> count 0))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto max-count)) (if (jolt-truthy? and__25__auto) (jolt-n>= count max-count) and__25__auto))))) navigator (let* ((iter-result (let* ((_a$1302 (var-deref "clojure.pprint" "execute-sub-format")) (_a$1303 clause) (_a$1304 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") (jolt-first arg-list))) (_a$1305 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") (jolt-next arg-list)))) (jolt-invoke _a$1302 _a$1303 _a$1304 _a$1305)))) (if (jolt= (keyword #f "colon-up-arrow") (jolt-first iter-result)) navigator (let* ((_a$1306 (jolt-inc count)) (_a$1307 (jolt-next arg-list))) (loop1301 _a$1306 _a$1307)))))))))))) iterate-list-of-sublists) (let* ((_o$1308 (keyword #f "private")) (_o$1309 #t)) (jolt-hash-map _o$1308 _o$1309))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "iterate-main-list" (letrec ((iterate-main-list (lambda (params navigator offsets) (let fnrec1310 ((params params) (navigator navigator) (offsets offsets)) (let* ((max-count (jolt-get params (keyword #f "max-iterations"))) (param-clause (jolt-first (jolt-get params (keyword #f "clauses")))) (G__64 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1311 param-clause) (_o$1312 navigator)) (jolt-vector _o$1311 _o$1312)))) (clause (jolt-nth G__64 0 jolt-nil)) (navigator (jolt-nth G__64 1 jolt-nil))) (let* ((count 0) (navigator navigator) (last-pos -1)) (let loop1313 ((count count) (navigator navigator) (last-pos last-pos)) (begin (if (let* ((and__25__auto (jolt-not max-count))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= (jolt-get navigator (keyword #f "pos")) last-pos))) (if (jolt-truthy? and__25__auto) (jolt-n> count 1) and__25__auto)) and__25__auto)) (jolt-throw (host-new "Exception" "~@{ construct not consuming any arguments: Infinite loop!")) jolt-nil) (if (jolt-truthy? (let* ((or__26__auto (let* ((and__25__auto (jolt-empty? (jolt-get navigator (keyword #f "rest"))))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-not (jolt-get (jolt-get params (keyword #f "right-params")) (keyword #f "colon"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n> count 0))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto max-count)) (if (jolt-truthy? and__25__auto) (jolt-n>= count max-count) and__25__auto))))) navigator (let* ((iter-result (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause navigator (jolt-get params (keyword #f "base-args"))))) (if (jolt= (keyword #f "up-arrow") (jolt-first iter-result)) (jolt-invoke (var-deref "clojure.core" "second") iter-result) (let* ((_a$1314 (jolt-inc count)) (_a$1315 iter-result) (_a$1316 (jolt-get navigator (keyword #f "pos")))) (loop1313 _a$1314 _a$1315 _a$1316))))))))))))) iterate-main-list) (let* ((_o$1317 (keyword #f "private")) (_o$1318 #t)) (jolt-hash-map _o$1317 _o$1318))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "iterate-main-sublists" (letrec ((iterate-main-sublists (lambda (params navigator offsets) (let fnrec1319 ((params params) (navigator navigator) (offsets offsets)) (let* ((max-count (jolt-get params (keyword #f "max-iterations"))) (param-clause (jolt-first (jolt-get params (keyword #f "clauses")))) (G__65 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1320 param-clause) (_o$1321 navigator)) (jolt-vector _o$1320 _o$1321)))) (clause (jolt-nth G__65 0 jolt-nil)) (navigator (jolt-nth G__65 1 jolt-nil))) (let* ((count 0) (navigator navigator)) (let loop1322 ((count count) (navigator navigator)) (if (jolt-truthy? (let* ((or__26__auto (let* ((and__25__auto (jolt-empty? (jolt-get navigator (keyword #f "rest"))))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-not (jolt-get (jolt-get params (keyword #f "right-params")) (keyword #f "colon"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-n> count 0))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto max-count)) (if (jolt-truthy? and__25__auto) (jolt-n>= count max-count) and__25__auto))))) navigator (let* ((G__66 (jolt-invoke (var-deref "clojure.pprint" "next-arg-or-nil") navigator)) (sublist (jolt-nth G__66 0 jolt-nil)) (navigator (jolt-nth G__66 1 jolt-nil)) (iter-result (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause (jolt-invoke (var-deref "clojure.pprint" "init-navigator") sublist) navigator))) (if (jolt= (keyword #f "colon-up-arrow") (jolt-first iter-result)) navigator (loop1322 (jolt-inc count) navigator))))))))))) iterate-main-sublists) (let* ((_o$1323 (keyword #f "private")) (_o$1324 #t)) (jolt-hash-map _o$1323 _o$1324))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "format-logical-block"))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "justify-clauses"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "logical-block-or-justify" (letrec ((logical-block-or-justify (lambda (params navigator offsets) (let fnrec1325 ((params params) (navigator navigator) (offsets offsets)) (if (jolt-truthy? (jolt-get (jolt-get params (keyword #f "right-params")) (keyword #f "colon"))) (jolt-invoke (var-deref "clojure.pprint" "format-logical-block") params navigator offsets) (jolt-invoke (var-deref "clojure.pprint" "justify-clauses") params navigator offsets)))))) logical-block-or-justify) (let* ((_o$1326 (keyword #f "private")) (_o$1327 #t)) (jolt-hash-map _o$1326 _o$1327))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "render-clauses" (letrec ((render-clauses (lambda (clauses navigator base-navigator) (let fnrec1328 ((clauses clauses) (navigator navigator) (base-navigator base-navigator)) (let* ((clauses clauses) (acc (jolt-vector)) (navigator navigator)) (let loop1329 ((clauses clauses) (acc acc) (navigator navigator)) (if (jolt-empty? clauses) (let* ((_o$1330 acc) (_o$1331 navigator)) (jolt-vector _o$1330 _o$1331)) (let* ((clause (jolt-first clauses)) (G__67 (let* ((sb (host-new "StringBuilder"))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") (jolt-invoke (var-deref "clojure.pprint" "->StringBufferWriter") sb)))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (let* ((_o$1332 (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") clause navigator base-navigator)) (_o$1333 (jolt-invoke (var-deref "clojure.core" "str") sb))) (jolt-vector _o$1332 _o$1333))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings")))))))) (iter-result (jolt-nth G__67 0 jolt-nil)) (result-str (jolt-nth G__67 1 jolt-nil))) (if (jolt= (keyword #f "up-arrow") (jolt-first iter-result)) (let* ((_o$1334 acc) (_o$1335 (jolt-invoke (var-deref "clojure.core" "second") iter-result))) (jolt-vector _o$1334 _o$1335)) (let* ((_a$1336 (jolt-next clauses)) (_a$1337 (jolt-conj acc result-str)) (_a$1338 iter-result)) (loop1329 _a$1336 _a$1337 _a$1338))))))))))) render-clauses) (let* ((_o$1339 (keyword #f "private")) (_o$1340 #t)) (jolt-hash-map _o$1339 _o$1340))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "justify-clauses" (letrec ((justify-clauses (lambda (params navigator offsets) (let fnrec1341 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__68 (let* ((temp__27__auto (jolt-get params (keyword #f "else")))) (if (jolt-truthy? temp__27__auto) (let* ((_else temp__27__auto)) (jolt-invoke (var-deref "clojure.pprint" "render-clauses") _else navigator (jolt-get params (keyword #f "base-args")))) jolt-nil))) (G__69 (jolt-nth G__68 0 jolt-nil)) (eol-str (jolt-nth G__69 0 jolt-nil)) (new-navigator (jolt-nth G__68 1 jolt-nil)) (navigator (let* ((or__26__auto new-navigator)) (if (jolt-truthy? or__26__auto) or__26__auto navigator))) (G__70 (let* ((temp__27__auto (jolt-get params (keyword #f "else-params")))) (if (jolt-truthy? temp__27__auto) (let* ((p temp__27__auto)) (jolt-invoke (var-deref "clojure.pprint" "realize-parameter-list") p navigator)) jolt-nil))) (else-params (jolt-nth G__70 0 jolt-nil)) (new-navigator (jolt-nth G__70 1 jolt-nil)) (navigator (let* ((or__26__auto new-navigator)) (if (jolt-truthy? or__26__auto) or__26__auto navigator))) (min-remaining (let* ((or__26__auto (jolt-first (jolt-get else-params (keyword #f "min-remaining"))))) (if (jolt-truthy? or__26__auto) or__26__auto 0))) (max-columns (let* ((or__26__auto (jolt-first (jolt-get else-params (keyword #f "max-columns"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.pprint" "get-max-column") (var-deref "clojure.core" "*out*"))))) (clauses (jolt-get params (keyword #f "clauses"))) (G__71 (jolt-invoke (var-deref "clojure.pprint" "render-clauses") clauses navigator (jolt-get params (keyword #f "base-args")))) (strs (jolt-nth G__71 0 jolt-nil)) (navigator (jolt-nth G__71 1 jolt-nil)) (slots (jolt-n-max 1 (let* ((_a$1342 (jolt-dec (jolt-count strs))) (_a$1343 (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) 1 0)) (_a$1344 (if (jolt-truthy? (jolt-get params (keyword #f "at"))) 1 0))) (jolt-n+ _a$1342 _a$1343 _a$1344)))) (chars (jolt-reduce jolt-add (jolt-map jolt-count strs))) (mincol (jolt-get params (keyword #f "mincol"))) (minpad (jolt-get params (keyword #f "minpad"))) (colinc (jolt-get params (keyword #f "colinc"))) (minout (jolt-n+ chars (jolt-n* slots minpad))) (result-columns (if (jolt-n<= minout mincol) mincol (jolt-n+ mincol (jolt-n* colinc (jolt-n+ 1 (jolt-quot (jolt-n- minout mincol 1) colinc)))))) (total-pad (jolt-n- result-columns chars)) (pad (jolt-n-max minpad (jolt-quot total-pad slots))) (extra-pad (jolt-n- total-pad (jolt-n* pad slots))) (pad-str (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") pad (jolt-get params (keyword #f "padchar")))))) (begin (if (jolt-truthy? (let* ((and__25__auto eol-str)) (if (jolt-truthy? and__25__auto) (jolt-n> (jolt-n+ (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch (var-deref "clojure.core" "*out*") "-fields" (jolt-vector))) (keyword #f "base"))) min-remaining result-columns) max-columns) and__25__auto))) (jolt-invoke (var-deref "clojure.pprint" "print") eol-str) jolt-nil) (let* ((slots slots) (extra-pad extra-pad) (strs strs) (pad-only (let* ((or__26__auto (jolt-get params (keyword #f "colon")))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt= (jolt-count strs) 1))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-get params (keyword #f "at"))) and__25__auto)))))) (let loop1345 ((slots slots) (extra-pad extra-pad) (strs strs) (pad-only pad-only)) (if (jolt-truthy? (jolt-seq strs)) (begin (jolt-invoke (var-deref "clojure.pprint" "print") (let* ((_a$1346 (var-deref "clojure.core" "str")) (_a$1347 (if (jolt-not pad-only) (jolt-first strs) jolt-nil)) (_a$1348 (if (jolt-truthy? (let* ((or__26__auto pad-only)) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-next strs))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get params (keyword #f "at"))))))) pad-str jolt-nil)) (_a$1349 (if (jolt-pos? extra-pad) (jolt-get params (keyword #f "padchar")) jolt-nil))) (jolt-invoke _a$1346 _a$1347 _a$1348 _a$1349))) (let* ((_a$1350 (jolt-dec slots)) (_a$1351 (jolt-dec extra-pad)) (_a$1352 (if (jolt-truthy? pad-only) strs (jolt-next strs))) (_a$1353 #f)) (loop1345 _a$1350 _a$1351 _a$1352 _a$1353))) jolt-nil))) navigator)))))) justify-clauses) (let* ((_o$1354 (keyword #f "private")) (_o$1355 #t)) (jolt-hash-map _o$1354 _o$1355))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "get-pretty-writer" (letrec ((get-pretty-writer (lambda (writer) (let fnrec1356 ((writer writer)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "pretty-writer?") writer)) writer (jolt-invoke (var-deref "clojure.pprint" "pretty-writer") writer (var-deref "clojure.pprint" "*print-right-margin*") (var-deref "clojure.pprint" "*print-miser-width*"))))))) get-pretty-writer) (let* ((_o$1357 (keyword #f "doc")) (_o$1358 "Returns writer wrapped in a pretty writer unless it already is one.")) (jolt-hash-map _o$1357 _o$1358))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "fresh-line" (letrec ((fresh-line (lambda () (let fnrec1359 () (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "instance-check") (jolt-symbol #f "PrettyWriter") (var-deref "clojure.core" "*out*"))) (if (jolt-not (jolt= 0 (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch (var-deref "clojure.core" "*out*") "-fields" (jolt-vector))) (keyword #f "base"))))) (jolt-invoke (var-deref "clojure.pprint" "prn")) jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "prn"))))))) fresh-line)))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "absolute-tabulation" (letrec ((absolute-tabulation (lambda (params navigator offsets) (let fnrec1360 ((params params) (navigator navigator) (offsets offsets)) (begin (let* ((colnum (jolt-get params (keyword #f "colnum"))) (colinc (jolt-get params (keyword #f "colinc"))) (current (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch (var-deref "clojure.core" "*out*") "-fields" (jolt-vector))) (keyword #f "base")))) (space-count (if (jolt-n< current colnum) (jolt-n- colnum current) (if (jolt= colinc 0) 0 (if (jolt-truthy? (keyword #f "else")) (jolt-n- colinc (jolt-rem (jolt-n- current colnum) colinc)) jolt-nil))))) (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") space-count (integer->char 32))))) navigator))))) absolute-tabulation) (let* ((_o$1361 (keyword #f "private")) (_o$1362 #t)) (jolt-hash-map _o$1361 _o$1362))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "relative-tabulation" (letrec ((relative-tabulation (lambda (params navigator offsets) (let fnrec1363 ((params params) (navigator navigator) (offsets offsets)) (begin (let* ((colrel (jolt-get params (keyword #f "colnum"))) (colinc (jolt-get params (keyword #f "colinc"))) (start-col (jolt-n+ colrel (jolt-invoke (var-deref "clojure.pprint" "get-column") (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (record-method-dispatch (var-deref "clojure.core" "*out*") "-fields" (jolt-vector))) (keyword #f "base"))))) (offset (if (jolt-pos? colinc) (jolt-rem start-col colinc) 0)) (space-count (jolt-n+ colrel (if (jolt= 0 offset) 0 (jolt-n- colinc offset))))) (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") space-count (integer->char 32))))) navigator))))) relative-tabulation) (let* ((_o$1364 (keyword #f "private")) (_o$1365 #t)) (jolt-hash-map _o$1364 _o$1365))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "format-logical-block" (letrec ((format-logical-block (lambda (params navigator offsets) (let fnrec1366 ((params params) (navigator navigator) (offsets offsets)) (let* ((clauses (jolt-get params (keyword #f "clauses"))) (clause-count (jolt-count clauses)) (prefix (if (jolt-n> clause-count 1) (jolt-get (jolt-get (jolt-first (jolt-first clauses)) (keyword #f "params")) (keyword #f "string")) (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) "(" jolt-nil))) (body (jolt-nth clauses (if (jolt-n> clause-count 1) 1 0))) (suffix (if (jolt-n> clause-count 2) (jolt-get (jolt-get (jolt-first (jolt-nth clauses 2)) (keyword #f "params")) (keyword #f "string")) (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) ")" jolt-nil))) (G__72 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__72 0 jolt-nil)) (navigator (jolt-nth G__72 1 jolt-nil))) (begin (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") prefix jolt-nil suffix) (let* ((_a$1367 (var-deref "clojure.pprint" "execute-sub-format")) (_a$1368 body) (_a$1369 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") arg)) (_a$1370 (jolt-get params (keyword #f "base-args")))) (jolt-invoke _a$1367 _a$1368 _a$1369 _a$1370)) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil) navigator)))))) format-logical-block) (let* ((_o$1371 (keyword #f "private")) (_o$1372 #t)) (jolt-hash-map _o$1371 _o$1372))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "set-indent" (letrec ((set-indent (lambda (params navigator offsets) (let fnrec1373 ((params params) (navigator navigator) (offsets offsets)) (let* ((relative-to (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (keyword #f "current") (keyword #f "block")))) (begin (jolt-invoke (var-deref "clojure.pprint" "pprint-indent") relative-to (jolt-get params (keyword #f "n"))) navigator)))))) set-indent) (let* ((_o$1374 (keyword #f "private")) (_o$1375 #t)) (jolt-hash-map _o$1374 _o$1375))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "conditional-newline" (letrec ((conditional-newline (lambda (params navigator offsets) (let fnrec1376 ((params params) (navigator navigator) (offsets offsets)) (let* ((kind (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (keyword #f "mandatory") (keyword #f "fill")) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (keyword #f "miser") (keyword #f "linear"))))) (begin (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") kind) navigator)))))) conditional-newline) (let* ((_o$1377 (keyword #f "private")) (_o$1378 #t)) (jolt-hash-map _o$1377 _o$1378))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "defdirectives"
(lambda directives (let fnrec1379 ((directives (list->cseq directives))) (let* ((process (lambda (G__73) (let fnrec1380 ((G__73 G__73)) (let* ((G__74 G__73) (char (jolt-nth G__74 0 jolt-nil)) (params (jolt-nth G__74 1 jolt-nil)) (flags (jolt-nth G__74 2 jolt-nil)) (bracket-info (jolt-nth G__74 3 jolt-nil)) (generator-fn (jolt-invoke (var-deref "clojure.core" "nthnext") G__74 4))) (let* ((_o$1391 char) (_o$1392 (let* ((_o$1381 (keyword #f "directive")) (_o$1382 char) (_o$1383 (keyword #f "params")) (_o$1384 (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "array-map")) params)) (_o$1385 (keyword #f "flags")) (_o$1386 flags) (_o$1387 (keyword #f "bracket-info")) (_o$1388 bracket-info) (_o$1389 (keyword #f "generator-fn")) (_o$1390 (jolt-concat (jolt-list (jolt-symbol #f "fn") (jolt-vector (jolt-symbol #f "params") (jolt-symbol #f "offset"))) generator-fn))) (jolt-hash-map _o$1381 _o$1382 _o$1383 _o$1384 _o$1385 _o$1386 _o$1387 _o$1388 _o$1389 _o$1390)))) (jolt-vector _o$1391 _o$1392))))))) (let* ((_a$1396 (var-deref "clojure.core" "__sqcat")) (_a$1397 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$1398 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "directive-table"))) (_a$1399 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$1393 (var-deref "clojure.core" "__sqcat")) (_a$1394 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "hash-map"))) (_a$1395 (jolt-invoke (var-deref "clojure.core" "mapcat") process directives))) (jolt-invoke _a$1393 _a$1394 _a$1395))))) (jolt-invoke _a$1396 _a$1397 _a$1398 _a$1399))))))
(mark-macro! "clojure.pprint" "defdirectives"))
(guard (e (#t #f))
(def-var! "clojure.pprint" "directive-table" (let* ((_a$1952 (integer->char 65)) (_a$1953 (let* ((_o$1422 (keyword #f "directive")) (_o$1423 (integer->char 65)) (_o$1424 (keyword #f "params")) (_o$1425 (let* ((_a$1408 (var-deref "clojure.core" "array-map")) (_a$1409 (keyword #f "mincol")) (_a$1410 (let* ((_o$1400 0) (_o$1401 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1400 _o$1401))) (_a$1411 (keyword #f "colinc")) (_a$1412 (let* ((_o$1402 1) (_o$1403 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1402 _o$1403))) (_a$1413 (keyword #f "minpad")) (_a$1414 (let* ((_o$1404 0) (_o$1405 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1404 _o$1405))) (_a$1415 (keyword #f "padchar")) (_a$1416 (let* ((_o$1406 (integer->char 32)) (_o$1407 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1406 _o$1407)))) (jolt-invoke _a$1408 _a$1409 _a$1410 _a$1411 _a$1412 _a$1413 _a$1414 _a$1415 _a$1416))) (_o$1426 (keyword #f "flags")) (_o$1427 (let* ((_o$1417 (keyword #f "at")) (_o$1418 (keyword #f "colon")) (_o$1419 (keyword #f "both"))) (jolt-hash-set _o$1417 _o$1418 _o$1419))) (_o$1428 (keyword #f "bracket-info")) (_o$1429 (jolt-hash-map)) (_o$1430 (keyword #f "generator-fn")) (_o$1431 (lambda (params offset) (let fnrec1420 ((params params) (offset offset)) (lambda (p__11_ p__12_ p__13_) (let fnrec1421 ((p__11_ p__11_) (p__12_ p__12_) (p__13_ p__13_)) (jolt-invoke (var-deref "clojure.pprint" "format-ascii") (var-deref "clojure.core" "print-str") p__11_ p__12_ p__13_))))))) (jolt-hash-map _o$1422 _o$1423 _o$1424 _o$1425 _o$1426 _o$1427 _o$1428 _o$1429 _o$1430 _o$1431))) (_a$1954 (integer->char 83)) (_a$1955 (let* ((_o$1454 (keyword #f "directive")) (_o$1455 (integer->char 83)) (_o$1456 (keyword #f "params")) (_o$1457 (let* ((_a$1440 (var-deref "clojure.core" "array-map")) (_a$1441 (keyword #f "mincol")) (_a$1442 (let* ((_o$1432 0) (_o$1433 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1432 _o$1433))) (_a$1443 (keyword #f "colinc")) (_a$1444 (let* ((_o$1434 1) (_o$1435 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1434 _o$1435))) (_a$1445 (keyword #f "minpad")) (_a$1446 (let* ((_o$1436 0) (_o$1437 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1436 _o$1437))) (_a$1447 (keyword #f "padchar")) (_a$1448 (let* ((_o$1438 (integer->char 32)) (_o$1439 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1438 _o$1439)))) (jolt-invoke _a$1440 _a$1441 _a$1442 _a$1443 _a$1444 _a$1445 _a$1446 _a$1447 _a$1448))) (_o$1458 (keyword #f "flags")) (_o$1459 (let* ((_o$1449 (keyword #f "at")) (_o$1450 (keyword #f "colon")) (_o$1451 (keyword #f "both"))) (jolt-hash-set _o$1449 _o$1450 _o$1451))) (_o$1460 (keyword #f "bracket-info")) (_o$1461 (jolt-hash-map)) (_o$1462 (keyword #f "generator-fn")) (_o$1463 (lambda (params offset) (let fnrec1452 ((params params) (offset offset)) (lambda (p__14_ p__15_ p__16_) (let fnrec1453 ((p__14_ p__14_) (p__15_ p__15_) (p__16_ p__16_)) (jolt-invoke (var-deref "clojure.pprint" "format-ascii") (var-deref "clojure.core" "pr-str") p__14_ p__15_ p__16_))))))) (jolt-hash-map _o$1454 _o$1455 _o$1456 _o$1457 _o$1458 _o$1459 _o$1460 _o$1461 _o$1462 _o$1463))) (_a$1956 (integer->char 68)) (_a$1957 (let* ((_o$1486 (keyword #f "directive")) (_o$1487 (integer->char 68)) (_o$1488 (keyword #f "params")) (_o$1489 (let* ((_a$1472 (var-deref "clojure.core" "array-map")) (_a$1473 (keyword #f "mincol")) (_a$1474 (let* ((_o$1464 0) (_o$1465 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1464 _o$1465))) (_a$1475 (keyword #f "padchar")) (_a$1476 (let* ((_o$1466 (integer->char 32)) (_o$1467 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1466 _o$1467))) (_a$1477 (keyword #f "commachar")) (_a$1478 (let* ((_o$1468 (integer->char 44)) (_o$1469 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1468 _o$1469))) (_a$1479 (keyword #f "commainterval")) (_a$1480 (let* ((_o$1470 3) (_o$1471 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1470 _o$1471)))) (jolt-invoke _a$1472 _a$1473 _a$1474 _a$1475 _a$1476 _a$1477 _a$1478 _a$1479 _a$1480))) (_o$1490 (keyword #f "flags")) (_o$1491 (let* ((_o$1481 (keyword #f "at")) (_o$1482 (keyword #f "colon")) (_o$1483 (keyword #f "both"))) (jolt-hash-set _o$1481 _o$1482 _o$1483))) (_o$1492 (keyword #f "bracket-info")) (_o$1493 (jolt-hash-map)) (_o$1494 (keyword #f "generator-fn")) (_o$1495 (lambda (params offset) (let fnrec1484 ((params params) (offset offset)) (lambda (p__17_ p__18_ p__19_) (let fnrec1485 ((p__17_ p__17_) (p__18_ p__18_) (p__19_ p__19_)) (jolt-invoke (var-deref "clojure.pprint" "format-integer") 10 p__17_ p__18_ p__19_))))))) (jolt-hash-map _o$1486 _o$1487 _o$1488 _o$1489 _o$1490 _o$1491 _o$1492 _o$1493 _o$1494 _o$1495))) (_a$1958 (integer->char 66)) (_a$1959 (let* ((_o$1518 (keyword #f "directive")) (_o$1519 (integer->char 66)) (_o$1520 (keyword #f "params")) (_o$1521 (let* ((_a$1504 (var-deref "clojure.core" "array-map")) (_a$1505 (keyword #f "mincol")) (_a$1506 (let* ((_o$1496 0) (_o$1497 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1496 _o$1497))) (_a$1507 (keyword #f "padchar")) (_a$1508 (let* ((_o$1498 (integer->char 32)) (_o$1499 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1498 _o$1499))) (_a$1509 (keyword #f "commachar")) (_a$1510 (let* ((_o$1500 (integer->char 44)) (_o$1501 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1500 _o$1501))) (_a$1511 (keyword #f "commainterval")) (_a$1512 (let* ((_o$1502 3) (_o$1503 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1502 _o$1503)))) (jolt-invoke _a$1504 _a$1505 _a$1506 _a$1507 _a$1508 _a$1509 _a$1510 _a$1511 _a$1512))) (_o$1522 (keyword #f "flags")) (_o$1523 (let* ((_o$1513 (keyword #f "at")) (_o$1514 (keyword #f "colon")) (_o$1515 (keyword #f "both"))) (jolt-hash-set _o$1513 _o$1514 _o$1515))) (_o$1524 (keyword #f "bracket-info")) (_o$1525 (jolt-hash-map)) (_o$1526 (keyword #f "generator-fn")) (_o$1527 (lambda (params offset) (let fnrec1516 ((params params) (offset offset)) (lambda (p__20_ p__21_ p__22_) (let fnrec1517 ((p__20_ p__20_) (p__21_ p__21_) (p__22_ p__22_)) (jolt-invoke (var-deref "clojure.pprint" "format-integer") 2 p__20_ p__21_ p__22_))))))) (jolt-hash-map _o$1518 _o$1519 _o$1520 _o$1521 _o$1522 _o$1523 _o$1524 _o$1525 _o$1526 _o$1527))) (_a$1960 (integer->char 79)) (_a$1961 (let* ((_o$1550 (keyword #f "directive")) (_o$1551 (integer->char 79)) (_o$1552 (keyword #f "params")) (_o$1553 (let* ((_a$1536 (var-deref "clojure.core" "array-map")) (_a$1537 (keyword #f "mincol")) (_a$1538 (let* ((_o$1528 0) (_o$1529 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1528 _o$1529))) (_a$1539 (keyword #f "padchar")) (_a$1540 (let* ((_o$1530 (integer->char 32)) (_o$1531 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1530 _o$1531))) (_a$1541 (keyword #f "commachar")) (_a$1542 (let* ((_o$1532 (integer->char 44)) (_o$1533 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1532 _o$1533))) (_a$1543 (keyword #f "commainterval")) (_a$1544 (let* ((_o$1534 3) (_o$1535 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1534 _o$1535)))) (jolt-invoke _a$1536 _a$1537 _a$1538 _a$1539 _a$1540 _a$1541 _a$1542 _a$1543 _a$1544))) (_o$1554 (keyword #f "flags")) (_o$1555 (let* ((_o$1545 (keyword #f "at")) (_o$1546 (keyword #f "colon")) (_o$1547 (keyword #f "both"))) (jolt-hash-set _o$1545 _o$1546 _o$1547))) (_o$1556 (keyword #f "bracket-info")) (_o$1557 (jolt-hash-map)) (_o$1558 (keyword #f "generator-fn")) (_o$1559 (lambda (params offset) (let fnrec1548 ((params params) (offset offset)) (lambda (p__23_ p__24_ p__25_) (let fnrec1549 ((p__23_ p__23_) (p__24_ p__24_) (p__25_ p__25_)) (jolt-invoke (var-deref "clojure.pprint" "format-integer") 8 p__23_ p__24_ p__25_))))))) (jolt-hash-map _o$1550 _o$1551 _o$1552 _o$1553 _o$1554 _o$1555 _o$1556 _o$1557 _o$1558 _o$1559))) (_a$1962 (integer->char 88)) (_a$1963 (let* ((_o$1582 (keyword #f "directive")) (_o$1583 (integer->char 88)) (_o$1584 (keyword #f "params")) (_o$1585 (let* ((_a$1568 (var-deref "clojure.core" "array-map")) (_a$1569 (keyword #f "mincol")) (_a$1570 (let* ((_o$1560 0) (_o$1561 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1560 _o$1561))) (_a$1571 (keyword #f "padchar")) (_a$1572 (let* ((_o$1562 (integer->char 32)) (_o$1563 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1562 _o$1563))) (_a$1573 (keyword #f "commachar")) (_a$1574 (let* ((_o$1564 (integer->char 44)) (_o$1565 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1564 _o$1565))) (_a$1575 (keyword #f "commainterval")) (_a$1576 (let* ((_o$1566 3) (_o$1567 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1566 _o$1567)))) (jolt-invoke _a$1568 _a$1569 _a$1570 _a$1571 _a$1572 _a$1573 _a$1574 _a$1575 _a$1576))) (_o$1586 (keyword #f "flags")) (_o$1587 (let* ((_o$1577 (keyword #f "at")) (_o$1578 (keyword #f "colon")) (_o$1579 (keyword #f "both"))) (jolt-hash-set _o$1577 _o$1578 _o$1579))) (_o$1588 (keyword #f "bracket-info")) (_o$1589 (jolt-hash-map)) (_o$1590 (keyword #f "generator-fn")) (_o$1591 (lambda (params offset) (let fnrec1580 ((params params) (offset offset)) (lambda (p__26_ p__27_ p__28_) (let fnrec1581 ((p__26_ p__26_) (p__27_ p__27_) (p__28_ p__28_)) (jolt-invoke (var-deref "clojure.pprint" "format-integer") 16 p__26_ p__27_ p__28_))))))) (jolt-hash-map _o$1582 _o$1583 _o$1584 _o$1585 _o$1586 _o$1587 _o$1588 _o$1589 _o$1590 _o$1591))) (_a$1964 (integer->char 37)) (_a$1965 (let* ((_o$1597 (keyword #f "directive")) (_o$1598 (integer->char 37)) (_o$1599 (keyword #f "params")) (_o$1600 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1592 1) (_o$1593 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1592 _o$1593)))) (_o$1601 (keyword #f "flags")) (_o$1602 (jolt-hash-set)) (_o$1603 (keyword #f "bracket-info")) (_o$1604 (jolt-hash-map)) (_o$1605 (keyword #f "generator-fn")) (_o$1606 (lambda (params offset) (let fnrec1594 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1595 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1596 ((i i)) (if (jolt-n< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1596 (jolt-inc i))) jolt-nil)))) arg-navigator))))))) (jolt-hash-map _o$1597 _o$1598 _o$1599 _o$1600 _o$1601 _o$1602 _o$1603 _o$1604 _o$1605 _o$1606))) (_a$1966 (integer->char 38)) (_a$1967 (let* ((_o$1612 (keyword #f "directive")) (_o$1613 (integer->char 38)) (_o$1614 (keyword #f "params")) (_o$1615 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1607 1) (_o$1608 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1607 _o$1608)))) (_o$1616 (keyword #f "flags")) (_o$1617 (jolt-hash-set (keyword #f "pretty"))) (_o$1618 (keyword #f "bracket-info")) (_o$1619 (jolt-hash-map)) (_o$1620 (keyword #f "generator-fn")) (_o$1621 (lambda (params offset) (let fnrec1609 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1610 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((cnt (jolt-get params (keyword #f "count")))) (begin (if (jolt-pos? cnt) (jolt-invoke (var-deref "clojure.pprint" "fresh-line")) jolt-nil) (let* ((n__19__auto (jolt-dec cnt))) (let* ((i 0)) (let loop1611 ((i i)) (if (jolt-n< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1611 (jolt-inc i))) jolt-nil)))))) arg-navigator))))))) (jolt-hash-map _o$1612 _o$1613 _o$1614 _o$1615 _o$1616 _o$1617 _o$1618 _o$1619 _o$1620 _o$1621))) (_a$1968 (integer->char 124)) (_a$1969 (let* ((_o$1627 (keyword #f "directive")) (_o$1628 (integer->char 124)) (_o$1629 (keyword #f "params")) (_o$1630 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1622 1) (_o$1623 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1622 _o$1623)))) (_o$1631 (keyword #f "flags")) (_o$1632 (jolt-hash-set)) (_o$1633 (keyword #f "bracket-info")) (_o$1634 (jolt-hash-map)) (_o$1635 (keyword #f "generator-fn")) (_o$1636 (lambda (params offset) (let fnrec1624 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1625 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1626 ((i i)) (if (jolt-n< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "print") (integer->char 12)) (loop1626 (jolt-inc i))) jolt-nil)))) arg-navigator))))))) (jolt-hash-map _o$1627 _o$1628 _o$1629 _o$1630 _o$1631 _o$1632 _o$1633 _o$1634 _o$1635 _o$1636))) (_a$1970 (integer->char 126)) (_a$1971 (let* ((_o$1641 (keyword #f "directive")) (_o$1642 (integer->char 126)) (_o$1643 (keyword #f "params")) (_o$1644 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1637 1) (_o$1638 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1637 _o$1638)))) (_o$1645 (keyword #f "flags")) (_o$1646 (jolt-hash-set)) (_o$1647 (keyword #f "bracket-info")) (_o$1648 (jolt-hash-map)) (_o$1649 (keyword #f "generator-fn")) (_o$1650 (lambda (params offset) (let fnrec1639 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1640 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((n (jolt-get params (keyword #f "n")))) (begin (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") n (integer->char 126)))) arg-navigator)))))))) (jolt-hash-map _o$1641 _o$1642 _o$1643 _o$1644 _o$1645 _o$1646 _o$1647 _o$1648 _o$1649 _o$1650))) (_a$1972 (integer->char 10)) (_a$1973 (let* ((_o$1655 (keyword #f "directive")) (_o$1656 (integer->char 10)) (_o$1657 (keyword #f "params")) (_o$1658 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1659 (keyword #f "flags")) (_o$1660 (let* ((_o$1651 (keyword #f "colon")) (_o$1652 (keyword #f "at"))) (jolt-hash-set _o$1651 _o$1652))) (_o$1661 (keyword #f "bracket-info")) (_o$1662 (jolt-hash-map)) (_o$1663 (keyword #f "generator-fn")) (_o$1664 (lambda (params offset) (let fnrec1653 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1654 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (jolt-invoke (var-deref "clojure.pprint" "prn")) jolt-nil) arg-navigator))))))) (jolt-hash-map _o$1655 _o$1656 _o$1657 _o$1658 _o$1659 _o$1660 _o$1661 _o$1662 _o$1663 _o$1664))) (_a$1974 (integer->char 84)) (_a$1975 (let* ((_o$1679 (keyword #f "directive")) (_o$1680 (integer->char 84)) (_o$1681 (keyword #f "params")) (_o$1682 (let* ((_a$1669 (var-deref "clojure.core" "array-map")) (_a$1670 (keyword #f "colnum")) (_a$1671 (let* ((_o$1665 1) (_o$1666 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1665 _o$1666))) (_a$1672 (keyword #f "colinc")) (_a$1673 (let* ((_o$1667 1) (_o$1668 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1667 _o$1668)))) (jolt-invoke _a$1669 _a$1670 _a$1671 _a$1672 _a$1673))) (_o$1683 (keyword #f "flags")) (_o$1684 (let* ((_o$1674 (keyword #f "at")) (_o$1675 (keyword #f "pretty"))) (jolt-hash-set _o$1674 _o$1675))) (_o$1685 (keyword #f "bracket-info")) (_o$1686 (jolt-hash-map)) (_o$1687 (keyword #f "generator-fn")) (_o$1688 (lambda (params offset) (let fnrec1676 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (p__29_ p__30_ p__31_) (let fnrec1677 ((p__29_ p__29_) (p__30_ p__30_) (p__31_ p__31_)) (jolt-invoke (var-deref "clojure.pprint" "relative-tabulation") p__29_ p__30_ p__31_))) (lambda (p__32_ p__33_ p__34_) (let fnrec1678 ((p__32_ p__32_) (p__33_ p__33_) (p__34_ p__34_)) (jolt-invoke (var-deref "clojure.pprint" "absolute-tabulation") p__32_ p__33_ p__34_)))))))) (jolt-hash-map _o$1679 _o$1680 _o$1681 _o$1682 _o$1683 _o$1684 _o$1685 _o$1686 _o$1687 _o$1688))) (_a$1976 (integer->char 42)) (_a$1977 (let* ((_o$1695 (keyword #f "directive")) (_o$1696 (integer->char 42)) (_o$1697 (keyword #f "params")) (_o$1698 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1689 1) (_o$1690 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1689 _o$1690)))) (_o$1699 (keyword #f "flags")) (_o$1700 (let* ((_o$1691 (keyword #f "colon")) (_o$1692 (keyword #f "at"))) (jolt-hash-set _o$1691 _o$1692))) (_o$1701 (keyword #f "bracket-info")) (_o$1702 (jolt-hash-map)) (_o$1703 (keyword #f "generator-fn")) (_o$1704 (lambda (params offset) (let fnrec1693 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1694 ((params params) (navigator navigator) (offsets offsets)) (let* ((n (jolt-get params (keyword #f "n")))) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (jolt-invoke (var-deref "clojure.pprint" "absolute-reposition") navigator n) (jolt-invoke (var-deref "clojure.pprint" "relative-reposition") navigator (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (jolt-n- n) n)))))))))) (jolt-hash-map _o$1695 _o$1696 _o$1697 _o$1698 _o$1699 _o$1700 _o$1701 _o$1702 _o$1703 _o$1704))) (_a$1978 (integer->char 63)) (_a$1979 (let* ((_o$1708 (keyword #f "directive")) (_o$1709 (integer->char 63)) (_o$1710 (keyword #f "params")) (_o$1711 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1712 (keyword #f "flags")) (_o$1713 (jolt-hash-set (keyword #f "at"))) (_o$1714 (keyword #f "bracket-info")) (_o$1715 (jolt-hash-map)) (_o$1716 (keyword #f "generator-fn")) (_o$1717 (lambda (params offset) (let fnrec1705 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (params navigator offsets) (let fnrec1706 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__75 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__75 0 jolt-nil)) (navigator (jolt-nth G__75 1 jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") subformat navigator (jolt-get params (keyword #f "base-args")))))) (lambda (params navigator offsets) (let fnrec1707 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__76 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__76 0 jolt-nil)) (navigator (jolt-nth G__76 1 jolt-nil)) (G__77 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (subargs (jolt-nth G__77 0 jolt-nil)) (navigator (jolt-nth G__77 1 jolt-nil)) (sub-navigator (jolt-invoke (var-deref "clojure.pprint" "init-navigator") subargs))) (begin (jolt-invoke (var-deref "clojure.pprint" "execute-sub-format") subformat sub-navigator (jolt-get params (keyword #f "base-args"))) navigator))))))))) (jolt-hash-map _o$1708 _o$1709 _o$1710 _o$1711 _o$1712 _o$1713 _o$1714 _o$1715 _o$1716 _o$1717))) (_a$1980 (integer->char 41)) (_a$1981 (let* ((_o$1719 (keyword #f "directive")) (_o$1720 (integer->char 41)) (_o$1721 (keyword #f "params")) (_o$1722 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1723 (keyword #f "flags")) (_o$1724 (jolt-hash-set)) (_o$1725 (keyword #f "bracket-info")) (_o$1726 (jolt-hash-map)) (_o$1727 (keyword #f "generator-fn")) (_o$1728 (lambda (params offset) (let fnrec1718 ((params params) (offset offset)) jolt-nil)))) (jolt-hash-map _o$1719 _o$1720 _o$1721 _o$1722 _o$1723 _o$1724 _o$1725 _o$1726 _o$1727 _o$1728))) (_a$1982 (integer->char 91)) (_a$1983 (let* ((_o$1740 (keyword #f "directive")) (_o$1741 (integer->char 91)) (_o$1742 (keyword #f "params")) (_o$1743 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "selector") (let* ((_o$1729 jolt-nil) (_o$1730 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1729 _o$1730)))) (_o$1744 (keyword #f "flags")) (_o$1745 (let* ((_o$1731 (keyword #f "colon")) (_o$1732 (keyword #f "at"))) (jolt-hash-set _o$1731 _o$1732))) (_o$1746 (keyword #f "bracket-info")) (_o$1747 (let* ((_o$1733 (keyword #f "right")) (_o$1734 (integer->char 93)) (_o$1735 (keyword #f "allows-separator")) (_o$1736 #t) (_o$1737 (keyword #f "else")) (_o$1738 (keyword #f "last"))) (jolt-hash-map _o$1733 _o$1734 _o$1735 _o$1736 _o$1737 _o$1738))) (_o$1748 (keyword #f "generator-fn")) (_o$1749 (lambda (params offset) (let fnrec1739 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (var-deref "clojure.pprint" "boolean-conditional") (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (var-deref "clojure.pprint" "check-arg-conditional") (if #t (var-deref "clojure.pprint" "choice-conditional") jolt-nil))))))) (jolt-hash-map _o$1740 _o$1741 _o$1742 _o$1743 _o$1744 _o$1745 _o$1746 _o$1747 _o$1748 _o$1749))) (_a$1984 (integer->char 59)) (_a$1985 (let* ((_o$1762 (keyword #f "directive")) (_o$1763 (integer->char 59)) (_o$1764 (keyword #f "params")) (_o$1765 (let* ((_a$1754 (var-deref "clojure.core" "array-map")) (_a$1755 (keyword #f "min-remaining")) (_a$1756 (let* ((_o$1750 jolt-nil) (_o$1751 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1750 _o$1751))) (_a$1757 (keyword #f "max-columns")) (_a$1758 (let* ((_o$1752 jolt-nil) (_o$1753 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1752 _o$1753)))) (jolt-invoke _a$1754 _a$1755 _a$1756 _a$1757 _a$1758))) (_o$1766 (keyword #f "flags")) (_o$1767 (jolt-hash-set (keyword #f "colon"))) (_o$1768 (keyword #f "bracket-info")) (_o$1769 (let* ((_o$1759 (keyword #f "separator")) (_o$1760 #t)) (jolt-hash-map _o$1759 _o$1760))) (_o$1770 (keyword #f "generator-fn")) (_o$1771 (lambda (params offset) (let fnrec1761 ((params params) (offset offset)) jolt-nil)))) (jolt-hash-map _o$1762 _o$1763 _o$1764 _o$1765 _o$1766 _o$1767 _o$1768 _o$1769 _o$1770 _o$1771))) (_a$1986 (integer->char 93)) (_a$1987 (let* ((_o$1773 (keyword #f "directive")) (_o$1774 (integer->char 93)) (_o$1775 (keyword #f "params")) (_o$1776 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1777 (keyword #f "flags")) (_o$1778 (jolt-hash-set)) (_o$1779 (keyword #f "bracket-info")) (_o$1780 (jolt-hash-map)) (_o$1781 (keyword #f "generator-fn")) (_o$1782 (lambda (params offset) (let fnrec1772 ((params params) (offset offset)) jolt-nil)))) (jolt-hash-map _o$1773 _o$1774 _o$1775 _o$1776 _o$1777 _o$1778 _o$1779 _o$1780 _o$1781 _o$1782))) (_a$1988 (integer->char 123)) (_a$1989 (let* ((_o$1793 (keyword #f "directive")) (_o$1794 (integer->char 123)) (_o$1795 (keyword #f "params")) (_o$1796 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "max-iterations") (let* ((_o$1783 jolt-nil) (_o$1784 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1783 _o$1784)))) (_o$1797 (keyword #f "flags")) (_o$1798 (let* ((_o$1785 (keyword #f "colon")) (_o$1786 (keyword #f "at")) (_o$1787 (keyword #f "both"))) (jolt-hash-set _o$1785 _o$1786 _o$1787))) (_o$1799 (keyword #f "bracket-info")) (_o$1800 (let* ((_o$1788 (keyword #f "right")) (_o$1789 (integer->char 125)) (_o$1790 (keyword #f "allows-separator")) (_o$1791 #f)) (jolt-hash-map _o$1788 _o$1789 _o$1790 _o$1791))) (_o$1801 (keyword #f "generator-fn")) (_o$1802 (lambda (params offset) (let fnrec1792 ((params params) (offset offset)) (if (jolt-truthy? (let* ((and__25__auto (jolt-get params (keyword #f "at")))) (if (jolt-truthy? and__25__auto) (jolt-get params (keyword #f "colon")) and__25__auto))) (var-deref "clojure.pprint" "iterate-main-sublists") (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (var-deref "clojure.pprint" "iterate-list-of-sublists") (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (var-deref "clojure.pprint" "iterate-main-list") (if #t (var-deref "clojure.pprint" "iterate-sublist") jolt-nil)))))))) (jolt-hash-map _o$1793 _o$1794 _o$1795 _o$1796 _o$1797 _o$1798 _o$1799 _o$1800 _o$1801 _o$1802))) (_a$1990 (integer->char 125)) (_a$1991 (let* ((_o$1804 (keyword #f "directive")) (_o$1805 (integer->char 125)) (_o$1806 (keyword #f "params")) (_o$1807 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1808 (keyword #f "flags")) (_o$1809 (jolt-hash-set (keyword #f "colon"))) (_o$1810 (keyword #f "bracket-info")) (_o$1811 (jolt-hash-map)) (_o$1812 (keyword #f "generator-fn")) (_o$1813 (lambda (params offset) (let fnrec1803 ((params params) (offset offset)) jolt-nil)))) (jolt-hash-map _o$1804 _o$1805 _o$1806 _o$1807 _o$1808 _o$1809 _o$1810 _o$1811 _o$1812 _o$1813))) (_a$1992 (integer->char 60)) (_a$1993 (let* ((_o$1842 (keyword #f "directive")) (_o$1843 (integer->char 60)) (_o$1844 (keyword #f "params")) (_o$1845 (let* ((_a$1822 (var-deref "clojure.core" "array-map")) (_a$1823 (keyword #f "mincol")) (_a$1824 (let* ((_o$1814 0) (_o$1815 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1814 _o$1815))) (_a$1825 (keyword #f "colinc")) (_a$1826 (let* ((_o$1816 1) (_o$1817 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1816 _o$1817))) (_a$1827 (keyword #f "minpad")) (_a$1828 (let* ((_o$1818 0) (_o$1819 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1818 _o$1819))) (_a$1829 (keyword #f "padchar")) (_a$1830 (let* ((_o$1820 (integer->char 32)) (_o$1821 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1820 _o$1821)))) (jolt-invoke _a$1822 _a$1823 _a$1824 _a$1825 _a$1826 _a$1827 _a$1828 _a$1829 _a$1830))) (_o$1846 (keyword #f "flags")) (_o$1847 (let* ((_o$1831 (keyword #f "colon")) (_o$1832 (keyword #f "at")) (_o$1833 (keyword #f "both")) (_o$1834 (keyword #f "pretty"))) (jolt-hash-set _o$1831 _o$1832 _o$1833 _o$1834))) (_o$1848 (keyword #f "bracket-info")) (_o$1849 (let* ((_o$1835 (keyword #f "right")) (_o$1836 (integer->char 62)) (_o$1837 (keyword #f "allows-separator")) (_o$1838 #t) (_o$1839 (keyword #f "else")) (_o$1840 (keyword #f "first"))) (jolt-hash-map _o$1835 _o$1836 _o$1837 _o$1838 _o$1839 _o$1840))) (_o$1850 (keyword #f "generator-fn")) (_o$1851 (lambda (params offset) (let fnrec1841 ((params params) (offset offset)) (var-deref "clojure.pprint" "logical-block-or-justify"))))) (jolt-hash-map _o$1842 _o$1843 _o$1844 _o$1845 _o$1846 _o$1847 _o$1848 _o$1849 _o$1850 _o$1851))) (_a$1994 (integer->char 62)) (_a$1995 (let* ((_o$1853 (keyword #f "directive")) (_o$1854 (integer->char 62)) (_o$1855 (keyword #f "params")) (_o$1856 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1857 (keyword #f "flags")) (_o$1858 (jolt-hash-set (keyword #f "colon"))) (_o$1859 (keyword #f "bracket-info")) (_o$1860 (jolt-hash-map)) (_o$1861 (keyword #f "generator-fn")) (_o$1862 (lambda (params offset) (let fnrec1852 ((params params) (offset offset)) jolt-nil)))) (jolt-hash-map _o$1853 _o$1854 _o$1855 _o$1856 _o$1857 _o$1858 _o$1859 _o$1860 _o$1861 _o$1862))) (_a$1996 (integer->char 94)) (_a$1997 (let* ((_o$1886 (keyword #f "directive")) (_o$1887 (integer->char 94)) (_o$1888 (keyword #f "params")) (_o$1889 (let* ((_a$1869 (var-deref "clojure.core" "array-map")) (_a$1870 (keyword #f "arg1")) (_a$1871 (let* ((_o$1863 jolt-nil) (_o$1864 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1863 _o$1864))) (_a$1872 (keyword #f "arg2")) (_a$1873 (let* ((_o$1865 jolt-nil) (_o$1866 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1865 _o$1866))) (_a$1874 (keyword #f "arg3")) (_a$1875 (let* ((_o$1867 jolt-nil) (_o$1868 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1867 _o$1868)))) (jolt-invoke _a$1869 _a$1870 _a$1871 _a$1872 _a$1873 _a$1874 _a$1875))) (_o$1890 (keyword #f "flags")) (_o$1891 (jolt-hash-set (keyword #f "colon"))) (_o$1892 (keyword #f "bracket-info")) (_o$1893 (jolt-hash-map)) (_o$1894 (keyword #f "generator-fn")) (_o$1895 (lambda (params offset) (let fnrec1876 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1877 ((params params) (navigator navigator) (offsets offsets)) (let* ((arg1 (jolt-get params (keyword #f "arg1"))) (arg2 (jolt-get params (keyword #f "arg2"))) (arg3 (jolt-get params (keyword #f "arg3"))) (exit (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (keyword #f "colon-up-arrow") (keyword #f "up-arrow")))) (if (jolt-truthy? (let* ((and__25__auto arg1)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto arg2)) (if (jolt-truthy? and__25__auto) arg3 and__25__auto)) and__25__auto))) (if (jolt-n<= arg1 arg2 arg3) (let* ((_o$1878 exit) (_o$1879 navigator)) (jolt-vector _o$1878 _o$1879)) navigator) (if (jolt-truthy? (let* ((and__25__auto arg1)) (if (jolt-truthy? and__25__auto) arg2 and__25__auto))) (if (jolt= arg1 arg2) (let* ((_o$1880 exit) (_o$1881 navigator)) (jolt-vector _o$1880 _o$1881)) navigator) (if (jolt-truthy? arg1) (if (jolt= arg1 0) (let* ((_o$1882 exit) (_o$1883 navigator)) (jolt-vector _o$1882 _o$1883)) navigator) (if #t (if (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (jolt-empty? (jolt-get (jolt-get params (keyword #f "base-args")) (keyword #f "rest"))) (jolt-empty? (jolt-get navigator (keyword #f "rest")))) (let* ((_o$1884 exit) (_o$1885 navigator)) (jolt-vector _o$1884 _o$1885)) navigator) jolt-nil))))))))))) (jolt-hash-map _o$1886 _o$1887 _o$1888 _o$1889 _o$1890 _o$1891 _o$1892 _o$1893 _o$1894 _o$1895))) (_a$1998 (integer->char 87)) (_a$1999 (let* ((_o$1915 (keyword #f "directive")) (_o$1916 (integer->char 87)) (_o$1917 (keyword #f "params")) (_o$1918 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1919 (keyword #f "flags")) (_o$1920 (let* ((_o$1896 (keyword #f "at")) (_o$1897 (keyword #f "colon")) (_o$1898 (keyword #f "both")) (_o$1899 (keyword #f "pretty"))) (jolt-hash-set _o$1896 _o$1897 _o$1898 _o$1899))) (_o$1921 (keyword #f "bracket-info")) (_o$1922 (jolt-hash-map)) (_o$1923 (keyword #f "generator-fn")) (_o$1924 (lambda (params offset) (let fnrec1900 ((params params) (offset offset)) (if (jolt-truthy? (let* ((or__26__auto (jolt-get params (keyword #f "at")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get params (keyword #f "colon"))))) (let* ((bindings (let* ((_a$1907 (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (let* ((_o$1901 (keyword #f "level")) (_o$1902 jolt-nil) (_o$1903 (keyword #f "length")) (_o$1904 jolt-nil)) (jolt-vector _o$1901 _o$1902 _o$1903 _o$1904)) (jolt-vector))) (_a$1908 (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (let* ((_o$1905 (keyword #f "pretty")) (_o$1906 #t)) (jolt-vector _o$1905 _o$1906)) (jolt-vector)))) (jolt-concat _a$1907 _a$1908)))) (lambda (params navigator offsets) (let fnrec1909 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__78 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__78 0 jolt-nil)) (navigator (jolt-nth G__78 1 jolt-nil))) (if (jolt-truthy? (jolt-apply (var-deref "clojure.pprint" "write") arg bindings)) (let* ((_o$1910 (keyword #f "up-arrow")) (_o$1911 navigator)) (jolt-vector _o$1910 _o$1911)) navigator))))) (lambda (params navigator offsets) (let fnrec1912 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__79 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__79 0 jolt-nil)) (navigator (jolt-nth G__79 1 jolt-nil))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "write-out") arg)) (let* ((_o$1913 (keyword #f "up-arrow")) (_o$1914 navigator)) (jolt-vector _o$1913 _o$1914)) navigator))))))))) (jolt-hash-map _o$1915 _o$1916 _o$1917 _o$1918 _o$1919 _o$1920 _o$1921 _o$1922 _o$1923 _o$1924))) (_a$2000 (integer->char 95)) (_a$2001 (let* ((_o$1929 (keyword #f "directive")) (_o$1930 (integer->char 95)) (_o$1931 (keyword #f "params")) (_o$1932 (jolt-invoke (var-deref "clojure.core" "array-map"))) (_o$1933 (keyword #f "flags")) (_o$1934 (let* ((_o$1925 (keyword #f "at")) (_o$1926 (keyword #f "colon")) (_o$1927 (keyword #f "both"))) (jolt-hash-set _o$1925 _o$1926 _o$1927))) (_o$1935 (keyword #f "bracket-info")) (_o$1936 (jolt-hash-map)) (_o$1937 (keyword #f "generator-fn")) (_o$1938 (lambda (params offset) (let fnrec1928 ((params params) (offset offset)) (var-deref "clojure.pprint" "conditional-newline"))))) (jolt-hash-map _o$1929 _o$1930 _o$1931 _o$1932 _o$1933 _o$1934 _o$1935 _o$1936 _o$1937 _o$1938))) (_a$2002 (integer->char 73)) (_a$2003 (let* ((_o$1942 (keyword #f "directive")) (_o$1943 (integer->char 73)) (_o$1944 (keyword #f "params")) (_o$1945 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1939 0) (_o$1940 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1939 _o$1940)))) (_o$1946 (keyword #f "flags")) (_o$1947 (jolt-hash-set (keyword #f "colon"))) (_o$1948 (keyword #f "bracket-info")) (_o$1949 (jolt-hash-map)) (_o$1950 (keyword #f "generator-fn")) (_o$1951 (lambda (params offset) (let fnrec1941 ((params params) (offset offset)) (var-deref "clojure.pprint" "set-indent"))))) (jolt-hash-map _o$1942 _o$1943 _o$1944 _o$1945 _o$1946 _o$1947 _o$1948 _o$1949 _o$1950 _o$1951)))) (jolt-hash-map-fn _a$1952 _a$1953 _a$1954 _a$1955 _a$1956 _a$1957 _a$1958 _a$1959 _a$1960 _a$1961 _a$1962 _a$1963 _a$1964 _a$1965 _a$1966 _a$1967 _a$1968 _a$1969 _a$1970 _a$1971 _a$1972 _a$1973 _a$1974 _a$1975 _a$1976 _a$1977 _a$1978 _a$1979 _a$1980 _a$1981 _a$1982 _a$1983 _a$1984 _a$1985 _a$1986 _a$1987 _a$1988 _a$1989 _a$1990 _a$1991 _a$1992 _a$1993 _a$1994 _a$1995 _a$1996 _a$1997 _a$1998 _a$1999 _a$2000 _a$2001 _a$2002 _a$2003))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "param-pattern" (jolt-regex "^([vV]|#|('.)|([+-]?\\d+)|(?=,))") (let* ((_o$2004 (keyword #f "private")) (_o$2005 #t)) (jolt-hash-map _o$2004 _o$2005))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "special-params" (let* ((_o$2006 (keyword #f "parameter-from-args")) (_o$2007 (keyword #f "remaining-arg-count"))) (jolt-hash-set _o$2006 _o$2007)) (let* ((_o$2008 (keyword #f "private")) (_o$2009 #t)) (jolt-hash-map _o$2008 _o$2009))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "extract-param" (letrec ((extract-param (lambda (G__80) (let fnrec2010 ((G__80 G__80)) (let* ((G__81 G__80) (s (jolt-nth G__81 0 jolt-nil)) (offset (jolt-nth G__81 1 jolt-nil)) (saw-comma (jolt-nth G__81 2 jolt-nil))) (let* ((param (jolt-invoke (var-deref "clojure.core" "re-find") (var-deref "clojure.pprint" "param-pattern") s)) (token-str (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") param)) (jolt-first param) param))) (if (jolt-truthy? token-str) (let* ((len (jolt-count token-str)) (remainder (jolt-invoke (var-deref "clojure.core" "subs") s len)) (new-offset (jolt-n+ offset len))) (if (jolt-not (jolt= (integer->char 44) (jolt-nth remainder 0 jolt-nil))) (let* ((_o$2016 (let* ((_o$2011 token-str) (_o$2012 offset)) (jolt-vector _o$2011 _o$2012))) (_o$2017 (let* ((_o$2013 remainder) (_o$2014 new-offset) (_o$2015 #f)) (jolt-vector _o$2013 _o$2014 _o$2015)))) (jolt-vector _o$2016 _o$2017)) (let* ((_o$2023 (let* ((_o$2018 token-str) (_o$2019 offset)) (jolt-vector _o$2018 _o$2019))) (_o$2024 (let* ((_o$2020 (jolt-invoke (var-deref "clojure.core" "subs") remainder 1)) (_o$2021 (jolt-inc new-offset)) (_o$2022 #t)) (jolt-vector _o$2020 _o$2021 _o$2022)))) (jolt-vector _o$2023 _o$2024)))) (if (jolt-truthy? saw-comma) (jolt-invoke (var-deref "clojure.pprint" "format-error") "Badly formed parameters in format directive" offset) (let* ((_o$2027 jolt-nil) (_o$2028 (let* ((_o$2025 s) (_o$2026 offset)) (jolt-vector _o$2025 _o$2026)))) (jolt-vector _o$2027 _o$2028)))))))))) extract-param) (let* ((_o$2029 (keyword #f "private")) (_o$2030 #t)) (jolt-hash-map _o$2029 _o$2030))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "extract-params" (letrec ((extract-params (lambda (s offset) (let fnrec2031 ((s s) (offset offset)) (jolt-invoke (var-deref "clojure.pprint" "consume") (var-deref "clojure.pprint" "extract-param") (let* ((_o$2032 s) (_o$2033 offset) (_o$2034 #f)) (jolt-vector _o$2032 _o$2033 _o$2034))))))) extract-params) (let* ((_o$2035 (keyword #f "private")) (_o$2036 #t)) (jolt-hash-map _o$2035 _o$2036))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "translate-param" (letrec ((translate-param (lambda (G__82) (let fnrec2037 ((G__82 G__82)) (let* ((G__83 G__82) (p (jolt-nth G__83 0 jolt-nil)) (offset (jolt-nth G__83 1 jolt-nil))) (let* ((_o$2042 (if (jolt= (jolt-count p) 0) jolt-nil (if (let* ((and__25__auto (jolt= (jolt-count p) 1))) (if (jolt-truthy? and__25__auto) (let* ((_a$2040 (let* ((_o$2038 (integer->char 118)) (_o$2039 (integer->char 86))) (jolt-hash-set _o$2038 _o$2039))) (_a$2041 (jolt-nth p 0))) (jolt-contains? _a$2040 _a$2041)) and__25__auto)) (keyword #f "parameter-from-args") (if (let* ((and__25__auto (jolt= (jolt-count p) 1))) (if (jolt-truthy? and__25__auto) (jolt= (integer->char 35) (jolt-nth p 0)) and__25__auto)) (keyword #f "remaining-arg-count") (if (let* ((and__25__auto (jolt= (jolt-count p) 2))) (if (jolt-truthy? and__25__auto) (jolt= (integer->char 39) (jolt-nth p 0)) and__25__auto)) (jolt-nth p 1) (if #t (host-static-call "Long" "parseLong" p) jolt-nil)))))) (_o$2043 offset)) (jolt-vector _o$2042 _o$2043))))))) translate-param) (let* ((_o$2044 (keyword #f "private")) (_o$2045 #t)) (jolt-hash-map _o$2044 _o$2045))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "flag-defs" (let* ((_o$2046 (integer->char 58)) (_o$2047 (keyword #f "colon")) (_o$2048 (integer->char 64)) (_o$2049 (keyword #f "at"))) (jolt-hash-map _o$2046 _o$2047 _o$2048 _o$2049)) (let* ((_o$2050 (keyword #f "private")) (_o$2051 #t)) (jolt-hash-map _o$2050 _o$2051))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "extract-flags" (letrec ((extract-flags (lambda (s offset) (let fnrec2052 ((s s) (offset offset)) (let* ((_a$2074 (var-deref "clojure.pprint" "consume")) (_a$2075 (lambda (G__84) (let fnrec2053 ((G__84 G__84)) (let* ((G__85 G__84) (s (jolt-nth G__85 0 jolt-nil)) (offset (jolt-nth G__85 1 jolt-nil)) (flags (jolt-nth G__85 2 jolt-nil))) (if (jolt-empty? s) (let* ((_o$2057 jolt-nil) (_o$2058 (let* ((_o$2054 s) (_o$2055 offset) (_o$2056 flags)) (jolt-vector _o$2054 _o$2055 _o$2056)))) (jolt-vector _o$2057 _o$2058)) (let* ((flag (jolt-get (var-deref "clojure.pprint" "flag-defs") (jolt-first s)))) (if (jolt-truthy? flag) (if (jolt-contains? flags flag) (jolt-invoke (var-deref "clojure.pprint" "format-error") (jolt-invoke (var-deref "clojure.core" "str") "Flag \"" (jolt-first s) "\" appears more than once in a directive") offset) (let* ((_o$2064 #t) (_o$2065 (let* ((_o$2061 (jolt-invoke (var-deref "clojure.core" "subs") s 1)) (_o$2062 (jolt-inc offset)) (_o$2063 (jolt-assoc flags flag (let* ((_o$2059 #t) (_o$2060 offset)) (jolt-vector _o$2059 _o$2060))))) (jolt-vector _o$2061 _o$2062 _o$2063)))) (jolt-vector _o$2064 _o$2065))) (let* ((_o$2069 jolt-nil) (_o$2070 (let* ((_o$2066 s) (_o$2067 offset) (_o$2068 flags)) (jolt-vector _o$2066 _o$2067 _o$2068)))) (jolt-vector _o$2069 _o$2070))))))))) (_a$2076 (let* ((_o$2071 s) (_o$2072 offset) (_o$2073 (jolt-hash-map))) (jolt-vector _o$2071 _o$2072 _o$2073)))) (jolt-invoke _a$2074 _a$2075 _a$2076)))))) extract-flags) (let* ((_o$2077 (keyword #f "private")) (_o$2078 #t)) (jolt-hash-map _o$2077 _o$2078))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "check-flags" (letrec ((check-flags (lambda (dirdef flags) (let fnrec2079 ((dirdef dirdef) (flags flags)) (let* ((allowed (jolt-get dirdef (keyword #f "flags")))) (begin (if (jolt-truthy? (let* ((and__25__auto (jolt-not (jolt-get allowed (keyword #f "at"))))) (if (jolt-truthy? and__25__auto) (jolt-get flags (keyword #f "at")) and__25__auto))) (let* ((_a$2080 (var-deref "clojure.pprint" "format-error")) (_a$2081 (jolt-invoke (var-deref "clojure.core" "str") "\"@\" is an illegal flag for format directive \"" (jolt-get dirdef (keyword #f "directive")) "\"")) (_a$2082 (jolt-nth (jolt-get flags (keyword #f "at")) 1))) (jolt-invoke _a$2080 _a$2081 _a$2082)) jolt-nil) (if (jolt-truthy? (let* ((and__25__auto (jolt-not (jolt-get allowed (keyword #f "colon"))))) (if (jolt-truthy? and__25__auto) (jolt-get flags (keyword #f "colon")) and__25__auto))) (let* ((_a$2083 (var-deref "clojure.pprint" "format-error")) (_a$2084 (jolt-invoke (var-deref "clojure.core" "str") "\":\" is an illegal flag for format directive \"" (jolt-get dirdef (keyword #f "directive")) "\"")) (_a$2085 (jolt-nth (jolt-get flags (keyword #f "colon")) 1))) (jolt-invoke _a$2083 _a$2084 _a$2085)) jolt-nil) (if (jolt-truthy? (let* ((and__25__auto (jolt-not (jolt-get allowed (keyword #f "both"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-get flags (keyword #f "at")))) (if (jolt-truthy? and__25__auto) (jolt-get flags (keyword #f "colon")) and__25__auto)) and__25__auto))) (let* ((_a$2088 (var-deref "clojure.pprint" "format-error")) (_a$2089 (jolt-invoke (var-deref "clojure.core" "str") "Cannot combine \"@\" and \":\" flags for format directive \"" (jolt-get dirdef (keyword #f "directive")) "\"")) (_a$2090 (let* ((_a$2086 (jolt-nth (jolt-get flags (keyword #f "colon")) 1)) (_a$2087 (jolt-nth (jolt-get flags (keyword #f "at")) 1))) (jolt-n-min _a$2086 _a$2087)))) (jolt-invoke _a$2088 _a$2089 _a$2090)) jolt-nil))))))) check-flags) (let* ((_o$2091 (keyword #f "private")) (_o$2092 #t)) (jolt-hash-map _o$2091 _o$2092))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "map-params" (letrec ((map-params (lambda (dirdef params flags offset) (let fnrec2093 ((dirdef dirdef) (params params) (flags flags) (offset offset)) (begin (jolt-invoke (var-deref "clojure.pprint" "check-flags") dirdef flags) (if (let* ((_a$2094 (jolt-count params)) (_a$2095 (jolt-count (jolt-get dirdef (keyword #f "params"))))) (jolt-n> _a$2094 _a$2095)) (let* ((_a$2102 (var-deref "clojure.pprint" "format-error")) (_a$2103 (let* ((_a$2096 (var-deref "clojure.pprint" "cl-format")) (_a$2097 jolt-nil) (_a$2098 "Too many parameters for directive \"~C\": ~D~:* ~[were~;was~:;were~] specified but only ~D~:* ~[are~;is~:;are~] allowed") (_a$2099 (jolt-get dirdef (keyword #f "directive"))) (_a$2100 (jolt-count params)) (_a$2101 (jolt-count (jolt-get dirdef (keyword #f "params"))))) (jolt-invoke _a$2096 _a$2097 _a$2098 _a$2099 _a$2100 _a$2101))) (_a$2104 (jolt-invoke (var-deref "clojure.core" "second") (jolt-first params)))) (jolt-invoke _a$2102 _a$2103 _a$2104)) jolt-nil) (jolt-invoke (var-deref "clojure.core" "doall") (let* ((_a$2106 (lambda (p__35_) (let fnrec2105 ((p__35_ p__35_)) (let* ((val (jolt-first p__35_))) (if (jolt-not (let* ((or__26__auto (jolt-nil? val))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-contains? (var-deref "clojure.pprint" "special-params") val)))) jolt-nil jolt-nil))))) (_a$2107 params) (_a$2108 (jolt-get dirdef (keyword #f "params")))) (jolt-map _a$2106 _a$2107 _a$2108))) (let* ((_a$2125 (var-deref "clojure.core" "merge")) (_a$2126 (let* ((_a$2116 (jolt-hash-map)) (_a$2117 (jolt-reverse (let* ((_a$2114 (lambda (G__86) (let fnrec2109 ((G__86 G__86)) (let* ((G__87 G__86) (name (jolt-nth G__87 0 jolt-nil)) (G__88 (jolt-nth G__87 1 jolt-nil)) (default (jolt-nth G__88 0 jolt-nil))) (let* ((_o$2112 name) (_o$2113 (let* ((_o$2110 default) (_o$2111 offset)) (jolt-vector _o$2110 _o$2111)))) (jolt-vector _o$2112 _o$2113)))))) (_a$2115 (jolt-get dirdef (keyword #f "params")))) (jolt-map _a$2114 _a$2115))))) (jolt-into _a$2116 _a$2117))) (_a$2127 (let* ((_a$2122 (lambda (p__36_ p__37_) (let fnrec2118 ((p__36_ p__36_) (p__37_ p__37_)) (jolt-apply jolt-assoc p__36_ p__37_)))) (_a$2123 (jolt-hash-map)) (_a$2124 (let* ((_a$2120 (lambda (p__38_) (let fnrec2119 ((p__38_ p__38_)) (jolt-first (jolt-nth p__38_ 1))))) (_a$2121 (jolt-invoke (var-deref "clojure.core" "zipmap") (jolt-keys (jolt-get dirdef (keyword #f "params"))) params))) (jolt-filter _a$2120 _a$2121)))) (jolt-reduce _a$2122 _a$2123 _a$2124))) (_a$2128 flags)) (jolt-invoke _a$2125 _a$2126 _a$2127 _a$2128))))))) map-params) (let* ((_o$2129 (keyword #f "private")) (_o$2130 #t)) (jolt-hash-map _o$2129 _o$2130))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "compile-directive" (letrec ((compile-directive (lambda (s offset) (let fnrec2131 ((s s) (offset offset)) (let* ((G__89 (jolt-invoke (var-deref "clojure.pprint" "extract-params") s offset)) (raw-params (jolt-nth G__89 0 jolt-nil)) (G__90 (jolt-nth G__89 1 jolt-nil)) (rest (jolt-nth G__90 0 jolt-nil)) (offset (jolt-nth G__90 1 jolt-nil)) (G__91 (jolt-invoke (var-deref "clojure.pprint" "extract-flags") rest offset)) (_ (jolt-nth G__91 0 jolt-nil)) (G__92 (jolt-nth G__91 1 jolt-nil)) (rest (jolt-nth G__92 0 jolt-nil)) (offset (jolt-nth G__92 1 jolt-nil)) (flags (jolt-nth G__92 2 jolt-nil)) (directive (jolt-first rest)) (dirdef (if (jolt-truthy? directive) (let* ((or__26__auto (jolt-get (var-deref "clojure.pprint" "directive-table") (jolt-first (jolt-invoke (var-deref "clojure.string" "upper-case") (jolt-invoke (var-deref "clojure.core" "str") directive)))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get (var-deref "clojure.pprint" "directive-table") directive))) jolt-nil)) (params (if (jolt-truthy? dirdef) (jolt-invoke (var-deref "clojure.pprint" "map-params") dirdef (jolt-map (var-deref "clojure.pprint" "translate-param") raw-params) flags offset) jolt-nil))) (begin (if (jolt-not directive) (jolt-invoke (var-deref "clojure.pprint" "format-error") "Format string ended in the middle of a directive" offset) jolt-nil) (if (jolt-not dirdef) (jolt-invoke (var-deref "clojure.pprint" "format-error") (jolt-invoke (var-deref "clojure.core" "str") "Directive \"" directive "\" is undefined") offset) jolt-nil) (let* ((_o$2136 (jolt-invoke (var-deref "clojure.pprint" "->compiled-directive") (jolt-invoke (jolt-get dirdef (keyword #f "generator-fn")) params offset) dirdef params offset)) (_o$2137 (let* ((remainder (jolt-invoke (var-deref "clojure.core" "subs") rest 1)) (offset (jolt-inc offset)) (trim? (let* ((and__25__auto (jolt= (integer->char 10) (jolt-get dirdef (keyword #f "directive"))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-get params (keyword #f "colon"))) and__25__auto))) (trim-count (if (jolt-truthy? trim?) (jolt-invoke (var-deref "clojure.pprint" "prefix-count") remainder (let* ((_o$2132 (integer->char 32)) (_o$2133 (integer->char 9))) (jolt-vector _o$2132 _o$2133))) 0)) (remainder (jolt-invoke (var-deref "clojure.core" "subs") remainder trim-count)) (offset (jolt-n+ offset trim-count))) (let* ((_o$2134 remainder) (_o$2135 offset)) (jolt-vector _o$2134 _o$2135))))) (jolt-vector _o$2136 _o$2137)))))))) compile-directive) (let* ((_o$2138 (keyword #f "private")) (_o$2139 #t)) (jolt-hash-map _o$2138 _o$2139))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "compile-raw-string" (letrec ((compile-raw-string (lambda (s offset) (let fnrec2140 ((s s) (offset offset)) (let* ((_a$2144 (var-deref "clojure.pprint" "->compiled-directive")) (_a$2145 (lambda (_r$__285 a _) (let fnrec2141 ((_r$__285 _r$__285) (a a) (_ _)) (begin (jolt-invoke (var-deref "clojure.pprint" "print") s) a)))) (_a$2146 jolt-nil) (_a$2147 (let* ((_o$2142 (keyword #f "string")) (_o$2143 s)) (jolt-hash-map _o$2142 _o$2143))) (_a$2148 offset)) (jolt-invoke _a$2144 _a$2145 _a$2146 _a$2147 _a$2148)))))) compile-raw-string) (let* ((_o$2149 (keyword #f "private")) (_o$2150 #t)) (jolt-hash-map _o$2149 _o$2150))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "right-bracket" (letrec ((right-bracket (lambda (this) (let fnrec2151 ((this this)) (jolt-get (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "bracket-info")) (keyword #f "right")))))) right-bracket) (let* ((_o$2152 (keyword #f "private")) (_o$2153 #t)) (jolt-hash-map _o$2152 _o$2153))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "separator?" (letrec ((separator? (lambda (this) (let fnrec2154 ((this this)) (jolt-get (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "bracket-info")) (keyword #f "separator")))))) separator?) (let* ((_o$2155 (keyword #f "private")) (_o$2156 #t)) (jolt-hash-map _o$2155 _o$2156))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "else-separator?" (letrec ((else-separator? (lambda (this) (let fnrec2157 ((this this)) (let* ((and__25__auto (jolt-get (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "bracket-info")) (keyword #f "separator")))) (if (jolt-truthy? and__25__auto) (jolt-get (jolt-get this (keyword #f "params")) (keyword #f "colon")) and__25__auto)))))) else-separator?) (let* ((_o$2158 (keyword #f "private")) (_o$2159 #t)) (jolt-hash-map _o$2158 _o$2159))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "collect-clauses"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "process-bracket" (letrec ((process-bracket (lambda (this remainder) (let fnrec2160 ((this this) (remainder remainder)) (let* ((G__93 (let* ((_a$2161 (var-deref "clojure.pprint" "collect-clauses")) (_a$2162 (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "bracket-info"))) (_a$2163 (jolt-get this (keyword #f "offset"))) (_a$2164 remainder)) (jolt-invoke _a$2161 _a$2162 _a$2163 _a$2164))) (subex (jolt-nth G__93 0 jolt-nil)) (remainder (jolt-nth G__93 1 jolt-nil))) (let* ((_o$2173 (let* ((_a$2168 (var-deref "clojure.pprint" "->compiled-directive")) (_a$2169 (jolt-get this (keyword #f "func"))) (_a$2170 (jolt-get this (keyword #f "dirdef"))) (_a$2171 (let* ((_a$2165 (var-deref "clojure.core" "merge")) (_a$2166 (jolt-get this (keyword #f "params"))) (_a$2167 (jolt-invoke (var-deref "clojure.pprint" "tuple-map") subex (jolt-get this (keyword #f "offset"))))) (jolt-invoke _a$2165 _a$2166 _a$2167))) (_a$2172 (jolt-get this (keyword #f "offset")))) (jolt-invoke _a$2168 _a$2169 _a$2170 _a$2171 _a$2172))) (_o$2174 remainder)) (jolt-vector _o$2173 _o$2174))))))) process-bracket) (let* ((_o$2175 (keyword #f "private")) (_o$2176 #t)) (jolt-hash-map _o$2175 _o$2176))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "process-clause" (letrec ((process-clause (lambda (bracket-info offset remainder) (let fnrec2177 ((bracket-info bracket-info) (offset offset) (remainder remainder)) (jolt-invoke (var-deref "clojure.pprint" "consume") (lambda (remainder) (let fnrec2178 ((remainder remainder)) (if (jolt-empty? remainder) (jolt-invoke (var-deref "clojure.pprint" "format-error") "No closing bracket found." offset) (let* ((this (jolt-first remainder)) (remainder (jolt-next remainder))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "right-bracket") this)) (jolt-invoke (var-deref "clojure.pprint" "process-bracket") this remainder) (if (let* ((_a$2179 (jolt-get bracket-info (keyword #f "right"))) (_a$2180 (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "directive")))) (jolt= _a$2179 _a$2180)) (let* ((_o$2185 jolt-nil) (_o$2186 (let* ((_o$2181 (keyword #f "right-bracket")) (_o$2182 (jolt-get this (keyword #f "params"))) (_o$2183 jolt-nil) (_o$2184 remainder)) (jolt-vector _o$2181 _o$2182 _o$2183 _o$2184)))) (jolt-vector _o$2185 _o$2186)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "else-separator?") this)) (let* ((_o$2191 jolt-nil) (_o$2192 (let* ((_o$2187 (keyword #f "else")) (_o$2188 jolt-nil) (_o$2189 (jolt-get this (keyword #f "params"))) (_o$2190 remainder)) (jolt-vector _o$2187 _o$2188 _o$2189 _o$2190)))) (jolt-vector _o$2191 _o$2192)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "separator?") this)) (let* ((_o$2197 jolt-nil) (_o$2198 (let* ((_o$2193 (keyword #f "separator")) (_o$2194 jolt-nil) (_o$2195 jolt-nil) (_o$2196 remainder)) (jolt-vector _o$2193 _o$2194 _o$2195 _o$2196)))) (jolt-vector _o$2197 _o$2198)) (if #t (let* ((_o$2199 this) (_o$2200 remainder)) (jolt-vector _o$2199 _o$2200)) jolt-nil))))))))) remainder))))) process-clause) (let* ((_o$2201 (keyword #f "private")) (_o$2202 #t)) (jolt-hash-map _o$2201 _o$2202))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "collect-clauses" (letrec ((collect-clauses (lambda (bracket-info offset remainder) (let fnrec2203 ((bracket-info bracket-info) (offset offset) (remainder remainder)) (jolt-invoke (var-deref "clojure.core" "second") (let* ((_a$2241 (var-deref "clojure.pprint" "consume")) (_a$2242 (lambda (G__94) (let fnrec2204 ((G__94 G__94)) (let* ((G__95 G__94) (clause-map (jolt-nth G__95 0 jolt-nil)) (saw-else (jolt-nth G__95 1 jolt-nil)) (remainder (jolt-nth G__95 2 jolt-nil))) (let* ((G__96 (jolt-invoke (var-deref "clojure.pprint" "process-clause") bracket-info offset remainder)) (clause (jolt-nth G__96 0 jolt-nil)) (G__97 (jolt-nth G__96 1 jolt-nil)) (type (jolt-nth G__97 0 jolt-nil)) (right-params (jolt-nth G__97 1 jolt-nil)) (else-params (jolt-nth G__97 2 jolt-nil)) (remainder (jolt-nth G__97 3 jolt-nil))) (if (jolt= type (keyword #f "right-bracket")) (let* ((_o$2211 jolt-nil) (_o$2212 (let* ((_o$2209 (jolt-invoke (var-deref "clojure.core" "merge-with") jolt-concat clause-map (let* ((_o$2205 (if (jolt-truthy? saw-else) (keyword #f "else") (keyword #f "clauses"))) (_o$2206 (jolt-vector clause)) (_o$2207 (keyword #f "right-params")) (_o$2208 right-params)) (jolt-hash-map _o$2205 _o$2206 _o$2207 _o$2208)))) (_o$2210 remainder)) (jolt-vector _o$2209 _o$2210)))) (jolt-vector _o$2211 _o$2212)) (if (jolt= type (keyword #f "else")) (if (jolt-truthy? (jolt-get clause-map (keyword #f "else"))) (jolt-invoke (var-deref "clojure.pprint" "format-error") "Two else clauses (\"~:;\") inside bracket construction." offset) (if (jolt-not (jolt-get bracket-info (keyword #f "else"))) (jolt-invoke (var-deref "clojure.pprint" "format-error") "An else clause (\"~:;\") is in a bracket type that doesn't support it." offset) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "first") (jolt-get bracket-info (keyword #f "else"))))) (if (jolt-truthy? and__25__auto) (jolt-seq (jolt-get clause-map (keyword #f "clauses"))) and__25__auto))) (jolt-invoke (var-deref "clojure.pprint" "format-error") "The else clause (\"~:;\") is only allowed in the first position for this directive." offset) (if #t (if (jolt= (keyword #f "first") (jolt-get bracket-info (keyword #f "else"))) (let* ((_o$2220 #t) (_o$2221 (let* ((_o$2217 (jolt-invoke (var-deref "clojure.core" "merge-with") jolt-concat clause-map (let* ((_o$2213 (keyword #f "else")) (_o$2214 (jolt-vector clause)) (_o$2215 (keyword #f "else-params")) (_o$2216 else-params)) (jolt-hash-map _o$2213 _o$2214 _o$2215 _o$2216)))) (_o$2218 #f) (_o$2219 remainder)) (jolt-vector _o$2217 _o$2218 _o$2219)))) (jolt-vector _o$2220 _o$2221)) (let* ((_o$2227 #t) (_o$2228 (let* ((_o$2224 (jolt-invoke (var-deref "clojure.core" "merge-with") jolt-concat clause-map (let* ((_o$2222 (keyword #f "clauses")) (_o$2223 (jolt-vector clause))) (jolt-hash-map _o$2222 _o$2223)))) (_o$2225 #t) (_o$2226 remainder)) (jolt-vector _o$2224 _o$2225 _o$2226)))) (jolt-vector _o$2227 _o$2228))) jolt-nil)))) (if (jolt= type (keyword #f "separator")) (if (jolt-truthy? saw-else) (jolt-invoke (var-deref "clojure.pprint" "format-error") "A plain clause (with \"~;\") follows an else clause (\"~:;\") inside bracket construction." offset) (if (jolt-not (jolt-get bracket-info (keyword #f "allows-separator"))) (jolt-invoke (var-deref "clojure.pprint" "format-error") "A separator (\"~;\") is in a bracket type that doesn't support it." offset) (if #t (let* ((_o$2234 #t) (_o$2235 (let* ((_o$2231 (jolt-invoke (var-deref "clojure.core" "merge-with") jolt-concat clause-map (let* ((_o$2229 (keyword #f "clauses")) (_o$2230 (jolt-vector clause))) (jolt-hash-map _o$2229 _o$2230)))) (_o$2232 #f) (_o$2233 remainder)) (jolt-vector _o$2231 _o$2232 _o$2233)))) (jolt-vector _o$2234 _o$2235)) jolt-nil))) jolt-nil)))))))) (_a$2243 (let* ((_o$2238 (let* ((_o$2236 (keyword #f "clauses")) (_o$2237 (jolt-vector))) (jolt-hash-map _o$2236 _o$2237))) (_o$2239 #f) (_o$2240 remainder)) (jolt-vector _o$2238 _o$2239 _o$2240)))) (jolt-invoke _a$2241 _a$2242 _a$2243))))))) collect-clauses) (let* ((_o$2244 (keyword #f "private")) (_o$2245 #t)) (jolt-hash-map _o$2244 _o$2245))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "process-nesting" (letrec ((process-nesting (lambda (format) (let fnrec2246 ((format format)) (jolt-first (jolt-invoke (var-deref "clojure.pprint" "consume") (lambda (remainder) (let fnrec2247 ((remainder remainder)) (let* ((this (jolt-first remainder)) (remainder (jolt-next remainder)) (bracket (jolt-get (jolt-get this (keyword #f "dirdef")) (keyword #f "bracket-info")))) (if (jolt-truthy? (jolt-get bracket (keyword #f "right"))) (jolt-invoke (var-deref "clojure.pprint" "process-bracket") this remainder) (let* ((_o$2248 this) (_o$2249 remainder)) (jolt-vector _o$2248 _o$2249)))))) format)))))) process-nesting) (let* ((_o$2250 (keyword #f "private")) (_o$2251 #t)) (jolt-hash-map _o$2250 _o$2251))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "compile-format" (letrec ((compile-format (lambda (format-str) (let fnrec2252 ((format-str format-str)) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*format-str*") format-str))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (jolt-invoke (var-deref "clojure.pprint" "process-nesting") (jolt-first (let* ((_a$2269 (var-deref "clojure.pprint" "consume")) (_a$2270 (lambda (G__98) (let fnrec2253 ((G__98 G__98)) (let* ((G__99 G__98) (s (jolt-nth G__99 0 jolt-nil)) (offset (jolt-nth G__99 1 jolt-nil))) (if (jolt-empty? s) (let* ((_o$2254 jolt-nil) (_o$2255 s)) (jolt-vector _o$2254 _o$2255)) (let* ((tilde (record-method-dispatch s "indexOf" (jolt-vector "~")))) (if (jolt-neg? tilde) (let* ((_o$2258 (jolt-invoke (var-deref "clojure.pprint" "compile-raw-string") s offset)) (_o$2259 (let* ((_o$2256 "") (_o$2257 (jolt-n+ offset (jolt-count s)))) (jolt-vector _o$2256 _o$2257)))) (jolt-vector _o$2258 _o$2259)) (if (jolt-zero? tilde) (let* ((_a$2260 (var-deref "clojure.pprint" "compile-directive")) (_a$2261 (jolt-invoke (var-deref "clojure.core" "subs") s 1)) (_a$2262 (jolt-inc offset))) (jolt-invoke _a$2260 _a$2261 _a$2262)) (if #t (let* ((_o$2265 (jolt-invoke (var-deref "clojure.pprint" "compile-raw-string") (jolt-invoke (var-deref "clojure.core" "subs") s 0 tilde) offset)) (_o$2266 (let* ((_o$2263 (jolt-invoke (var-deref "clojure.core" "subs") s tilde)) (_o$2264 (jolt-n+ tilde offset))) (jolt-vector _o$2263 _o$2264)))) (jolt-vector _o$2265 _o$2266)) jolt-nil))))))))) (_a$2271 (let* ((_o$2267 format-str) (_o$2268 0)) (jolt-vector _o$2267 _o$2268)))) (jolt-invoke _a$2269 _a$2270 _a$2271))))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings")))))))))) compile-format) (let* ((_o$2272 (keyword #f "private")) (_o$2273 #t)) (jolt-hash-map _o$2272 _o$2273))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "needs-pretty" (letrec ((needs-pretty (lambda (format) (let fnrec2274 ((format format)) (let* ((format format)) (let loop2275 ((format format)) (if (jolt-empty? format) #f (if (jolt-truthy? (let* ((or__26__auto (jolt-get (jolt-get (jolt-get (jolt-first format) (keyword #f "dirdef")) (keyword #f "flags")) (keyword #f "pretty")))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "some") needs-pretty (jolt-first (jolt-get (jolt-get (jolt-first format) (keyword #f "params")) (keyword #f "clauses")))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "some") needs-pretty (jolt-first (jolt-get (jolt-get (jolt-first format) (keyword #f "params")) (keyword #f "else"))))))))) #t (loop2275 (jolt-next format)))))))))) needs-pretty) (let* ((_o$2276 (keyword #f "private")) (_o$2277 #t)) (jolt-hash-map _o$2276 _o$2277))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "execute-format" (letrec ((execute-format (case-lambda ((stream format args) (let fnrec2278 ((stream stream) (format format) (args args)) (let* ((sb (host-new "StringBuilder")) (real-stream (if (jolt-truthy? (let* ((or__26__auto (jolt-not stream))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "true?") stream)))) (jolt-invoke (var-deref "clojure.pprint" "->StringBufferWriter") sb) stream)) (wrapped-stream (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "clojure.pprint" "needs-pretty") format))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.pprint" "pretty-writer?") real-stream)) and__25__auto))) (jolt-invoke (var-deref "clojure.pprint" "get-pretty-writer") real-stream) real-stream))) (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.core" "*out*") wrapped-stream))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (dynamic-wind (lambda () #f) (lambda () (execute-format format args)) (lambda () (if (jolt-not (jolt-invoke (var-deref "clojure.core" "identical?") real-stream wrapped-stream)) (jolt-invoke (var-deref "clojure.pprint" "-pflush") wrapped-stream) jolt-nil))) (if (jolt-not stream) (jolt-invoke (var-deref "clojure.core" "str") sb) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "true?") stream)) (jolt-invoke (var-deref "clojure.core" "print") (jolt-invoke (var-deref "clojure.core" "str") sb)) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))))) ((format args) (let fnrec2279 ((format format) (args args)) (begin (jolt-invoke (var-deref "clojure.pprint" "map-passing-context") (lambda (element context) (let fnrec2280 ((element element) (context context)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "abort?") context)) (let* ((_o$2281 jolt-nil) (_o$2282 context)) (jolt-vector _o$2281 _o$2282)) (let* ((G__100 (jolt-invoke (var-deref "clojure.pprint" "realize-parameter-list") (jolt-get element (keyword #f "params")) context)) (params (jolt-nth G__100 0 jolt-nil)) (args (jolt-nth G__100 1 jolt-nil)) (G__101 (jolt-invoke (var-deref "clojure.pprint" "unzip-map") params)) (params (jolt-nth G__101 0 jolt-nil)) (offsets (jolt-nth G__101 1 jolt-nil)) (params (jolt-assoc params (keyword #f "base-args") args))) (let* ((_o$2288 jolt-nil) (_o$2289 (let* ((_a$2286 (jolt-get element (keyword #f "func"))) (_a$2287 (let* ((_o$2283 params) (_o$2284 args) (_o$2285 offsets)) (jolt-vector _o$2283 _o$2284 _o$2285)))) (jolt-apply _a$2286 _a$2287)))) (jolt-vector _o$2288 _o$2289)))))) args format) jolt-nil)))))) execute-format) (let* ((_o$2290 (keyword #f "private")) (_o$2291 #t)) (jolt-hash-map _o$2290 _o$2291))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "cached-compile" (jolt-invoke (var-deref "clojure.core" "memoize") (var-deref "clojure.pprint" "compile-format")) (let* ((_o$2292 (keyword #f "private")) (_o$2293 #t)) (jolt-hash-map _o$2292 _o$2293))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "reader-macros" (let* ((_o$2294 (jolt-symbol #f "quote")) (_o$2295 "'") (_o$2296 (jolt-symbol #f "var")) (_o$2297 "#'") (_o$2298 (jolt-symbol "clojure.core" "deref")) (_o$2299 "@") (_o$2300 (jolt-symbol "clojure.core" "unquote")) (_o$2301 "~")) (jolt-hash-map _o$2294 _o$2295 _o$2296 _o$2297 _o$2298 _o$2299 _o$2300 _o$2301)) (let* ((_o$2302 (keyword #f "private")) (_o$2303 #t)) (jolt-hash-map _o$2302 _o$2303))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-reader-macro" (letrec ((pprint-reader-macro (lambda (alis) (let fnrec2304 ((alis alis)) (let* ((macro-char (jolt-invoke (var-deref "clojure.pprint" "reader-macros") (jolt-first alis)))) (if (jolt-truthy? (let* ((and__25__auto macro-char)) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count alis)) and__25__auto))) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") macro-char) (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-invoke (var-deref "clojure.core" "second") alis)) #t) jolt-nil)))))) pprint-reader-macro) (let* ((_o$2305 (keyword #f "private")) (_o$2306 #t)) (jolt-hash-map _o$2305 _o$2306))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-simple-list" (letrec ((pprint-simple-list (lambda (alis) (let fnrec2307 ((alis alis)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") "(" jolt-nil ")") (let* ((alis (jolt-seq alis))) (let loop2308 ((alis alis)) (if (jolt-truthy? alis) (begin (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-first alis)) (if (jolt-truthy? (jolt-next alis)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") " ") (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") (keyword #f "linear")) (loop2308 (jolt-next alis))) jolt-nil)) jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil))))) pprint-simple-list) (let* ((_o$2309 (keyword #f "private")) (_o$2310 #t)) (jolt-hash-map _o$2309 _o$2310))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-list" (letrec ((pprint-list (lambda (alis) (let fnrec2311 ((alis alis)) (if (jolt-not (jolt-invoke (var-deref "clojure.pprint" "pprint-reader-macro") alis)) (jolt-invoke (var-deref "clojure.pprint" "pprint-simple-list") alis) jolt-nil))))) pprint-list) (let* ((_o$2312 (keyword #f "private")) (_o$2313 #t)) (jolt-hash-map _o$2312 _o$2313))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-vector" (letrec ((pprint-vector (lambda (avec) (let fnrec2314 ((avec avec)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") "[" jolt-nil "]") (let* ((aseq (jolt-seq avec))) (let loop2315 ((aseq aseq)) (if (jolt-truthy? aseq) (begin (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-first aseq)) (if (jolt-truthy? (jolt-next aseq)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") " ") (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") (keyword #f "linear")) (loop2315 (jolt-next aseq))) jolt-nil)) jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil))))) pprint-vector) (let* ((_o$2316 (keyword #f "private")) (_o$2317 #t)) (jolt-hash-map _o$2316 _o$2317))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-array" (let* ((format-in__5__auto "~<[~;~@{~w~^, ~:_~}~;]~:>") (cf__3__auto (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") format-in__5__auto)) (jolt-invoke (var-deref "clojure.pprint" "cached-compile") format-in__5__auto) format-in__5__auto))) (lambda args__4__auto (let fnrec2318 ((args__4__auto (list->cseq args__4__auto))) (let* ((navigator__2__auto (jolt-invoke (var-deref "clojure.pprint" "init-navigator") args__4__auto))) (jolt-invoke (var-deref "clojure.pprint" "execute-format") cf__3__auto navigator__2__auto))))) (let* ((_o$2319 (keyword #f "private")) (_o$2320 #t)) (jolt-hash-map _o$2319 _o$2320))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-map" (letrec ((pprint-map (lambda (amap) (let fnrec2321 ((amap amap)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") "{" jolt-nil "}") (let* ((aseq (jolt-seq amap))) (let loop2322 ((aseq aseq)) (if (jolt-truthy? aseq) (begin (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") jolt-nil jolt-nil jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-invoke (var-deref "clojure.core" "ffirst") aseq)) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") " ") (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") (keyword #f "linear")) (jolt-var-set (jolt-var "clojure.pprint" "*current-length*") 0) (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-invoke (var-deref "clojure.core" "fnext") (jolt-first aseq))) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil) (if (jolt-truthy? (jolt-next aseq)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") ", ") (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") (keyword #f "linear")) (loop2322 (jolt-next aseq))) jolt-nil)) jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil))))) pprint-map) (let* ((_o$2323 (keyword #f "private")) (_o$2324 #t)) (jolt-hash-map _o$2323 _o$2324))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-simple-default" (letrec ((pprint-simple-default (lambda (obj) (let fnrec2325 ((obj obj)) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") (jolt-invoke (var-deref "clojure.core" "pr-str") obj)))))) pprint-simple-default) (let* ((_o$2326 (keyword #f "private")) (_o$2327 #t)) (jolt-hash-map _o$2326 _o$2327))))
(guard (e (#t #f))
(def-var! "clojure.pprint" "pprint-set" (let* ((format-in__5__auto "~<#{~;~@{~w~^ ~:_~}~;}~:>") (cf__3__auto (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") format-in__5__auto)) (jolt-invoke (var-deref "clojure.pprint" "cached-compile") format-in__5__auto) format-in__5__auto))) (lambda args__4__auto (let fnrec2328 ((args__4__auto (list->cseq args__4__auto))) (let* ((navigator__2__auto (jolt-invoke (var-deref "clojure.pprint" "init-navigator") args__4__auto))) (jolt-invoke (var-deref "clojure.pprint" "execute-format") cf__3__auto navigator__2__auto)))))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "type-dispatcher" (letrec ((type-dispatcher (lambda (obj) (let fnrec2329 ((obj obj)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "symbol?") obj)) (keyword #f "symbol") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") obj)) (keyword #f "list") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "map?") obj)) (keyword #f "map") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") obj)) (keyword #f "vector") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "set?") obj)) (keyword #f "set") (if (jolt-nil? obj) jolt-nil (if (jolt-truthy? (keyword #f "else")) (keyword #f "default") jolt-nil))))))))))) type-dispatcher) (let* ((_o$2330 (keyword #f "private")) (_o$2331 #t)) (jolt-hash-map _o$2330 _o$2331))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "simple-dispatch" (letrec ((simple-dispatch (lambda (obj) (let fnrec2332 ((obj obj)) (let* ((G__102 (jolt-invoke (var-deref "clojure.pprint" "type-dispatcher") obj))) (if (jolt= G__102 (keyword #f "list")) (jolt-invoke (var-deref "clojure.pprint" "pprint-list") obj) (if (jolt= G__102 (keyword #f "vector")) (jolt-invoke (var-deref "clojure.pprint" "pprint-vector") obj) (if (jolt= G__102 (keyword #f "map")) (jolt-invoke (var-deref "clojure.pprint" "pprint-map") obj) (if (jolt= G__102 (keyword #f "set")) (jolt-invoke (var-deref "clojure.pprint" "pprint-set") obj) (if (jolt= G__102 jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") (jolt-invoke (var-deref "clojure.core" "pr-str") jolt-nil)) (jolt-invoke (var-deref "clojure.pprint" "pprint-simple-default") obj))))))))))) simple-dispatch) (let* ((_o$2333 (keyword #f "doc")) (_o$2334 "The pretty print dispatch function for simple data structure format.")) (jolt-hash-map _o$2333 _o$2334))))
(guard (e (#t #f))
(declare-var! "clojure.pprint" "pprint-simple-code-list"))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "brackets" (letrec ((brackets (lambda (form) (let fnrec2335 ((form form)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") form)) (let* ((_o$2336 "[") (_o$2337 "]")) (jolt-vector _o$2336 _o$2337)) (let* ((_o$2338 "(") (_o$2339 ")")) (jolt-vector _o$2338 _o$2339))))))) brackets) (let* ((_o$2340 (keyword #f "private")) (_o$2341 #t)) (jolt-hash-map _o$2340 _o$2341))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-simple-code-list" (letrec ((pprint-simple-code-list (lambda (alis) (let fnrec2342 ((alis alis)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "level-exceeded"))) (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") "#") (let* ((frame__20__auto (jolt-invoke (var-deref "clojure.core" "array-map") (jolt-var "clojure.pprint" "*current-level*") (jolt-inc (var-deref "clojure.pprint" "*current-level*")) (jolt-var "clojure.pprint" "*current-length*") 0))) (begin (jolt-invoke (var-deref "clojure.core" "push-thread-bindings") frame__20__auto) (dynamic-wind (lambda () #f) (lambda () (begin (jolt-invoke (var-deref "clojure.pprint" "start-block") (var-deref "clojure.core" "*out*") "(" jolt-nil ")") (jolt-invoke (var-deref "clojure.pprint" "pprint-indent") (keyword #f "block") 1) (let* ((alis (jolt-seq alis))) (let loop2343 ((alis alis)) (if (jolt-truthy? alis) (begin (jolt-invoke (var-deref "clojure.pprint" "write-out") (jolt-first alis)) (if (jolt-truthy? (jolt-next alis)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") (var-deref "clojure.core" "*out*") " ") (jolt-invoke (var-deref "clojure.pprint" "pprint-newline") (keyword #f "linear")) (loop2343 (jolt-next alis))) jolt-nil)) jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "end-block") (var-deref "clojure.core" "*out*")))) (lambda () (jolt-invoke (var-deref "clojure.core" "pop-thread-bindings"))))))) jolt-nil))))) pprint-simple-code-list) (let* ((_o$2344 (keyword #f "private")) (_o$2345 #t)) (jolt-hash-map _o$2344 _o$2345))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-code-list" (letrec ((pprint-code-list (lambda (alis) (let fnrec2346 ((alis alis)) (if (jolt-not (jolt-invoke (var-deref "clojure.pprint" "pprint-reader-macro") alis)) (jolt-invoke (var-deref "clojure.pprint" "pprint-simple-code-list") alis) jolt-nil))))) pprint-code-list) (let* ((_o$2347 (keyword #f "private")) (_o$2348 #t)) (jolt-hash-map _o$2347 _o$2348))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "pprint-code-symbol" (letrec ((pprint-code-symbol (lambda (sym) (let fnrec2349 ((sym sym)) (if (jolt-truthy? (var-deref "clojure.pprint" "*print-suppress-namespaces*")) (jolt-invoke (var-deref "clojure.pprint" "print") (jolt-invoke (var-deref "clojure.core" "name") sym)) (jolt-invoke (var-deref "clojure.pprint" "pr") sym)))))) pprint-code-symbol) (let* ((_o$2350 (keyword #f "private")) (_o$2351 #t)) (jolt-hash-map _o$2350 _o$2351))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "code-dispatch" (letrec ((code-dispatch (lambda (obj) (let fnrec2352 ((obj obj)) (let* ((G__103 (jolt-invoke (var-deref "clojure.pprint" "type-dispatcher") obj))) (if (jolt= G__103 (keyword #f "list")) (jolt-invoke (var-deref "clojure.pprint" "pprint-code-list") obj) (if (jolt= G__103 (keyword #f "symbol")) (jolt-invoke (var-deref "clojure.pprint" "pprint-code-symbol") obj) (if (jolt= G__103 (keyword #f "vector")) (jolt-invoke (var-deref "clojure.pprint" "pprint-vector") obj) (if (jolt= G__103 (keyword #f "map")) (jolt-invoke (var-deref "clojure.pprint" "pprint-map") obj) (if (jolt= G__103 (keyword #f "set")) (jolt-invoke (var-deref "clojure.pprint" "pprint-set") obj) (if (jolt= G__103 jolt-nil) (jolt-invoke (var-deref "clojure.pprint" "pr") obj) (jolt-invoke (var-deref "clojure.pprint" "pprint-simple-default") obj)))))))))))) code-dispatch) (let* ((_o$2353 (keyword #f "doc")) (_o$2354 "The pretty print dispatch function for pretty printing Clojure code.")) (jolt-hash-map _o$2353 _o$2354))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "alter-var-root") (jolt-var "clojure.pprint" "*print-pprint-dispatch*") (jolt-invoke (var-deref "clojure.core" "constantly") (var-deref "clojure.pprint" "simple-dispatch"))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "add-padding" (letrec ((add-padding (lambda (width s) (let fnrec2355 ((width width) (s s)) (let* ((padding (jolt-n-max 0 (jolt-n- width (jolt-count s))))) (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.string" "join") (jolt-invoke (var-deref "clojure.core" "repeat") padding (integer->char 32))) s)))))) add-padding) (let* ((_o$2356 (keyword #f "private")) (_o$2357 #t)) (jolt-hash-map _o$2356 _o$2357))))
(guard (e (#t #f))
(def-var-with-meta! "clojure.pprint" "print-table" (letrec ((print-table (case-lambda ((ks rows) (let fnrec2358 ((ks ks) (rows rows)) (if (jolt-truthy? (jolt-seq rows)) (let* ((widths (jolt-map (lambda (k) (let fnrec2359 ((k k)) (let* ((_a$2361 jolt-max) (_a$2362 (jolt-count (jolt-invoke (var-deref "clojure.core" "str") k))) (_a$2363 (jolt-map (lambda (p__39_) (let fnrec2360 ((p__39_ p__39_)) (jolt-count (jolt-invoke (var-deref "clojure.core" "str") (jolt-get p__39_ k))))) rows))) (jolt-apply _a$2361 _a$2362 _a$2363)))) ks)) (spacers (jolt-map (lambda (p__40_) (let fnrec2364 ((p__40_ p__40_)) (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "repeat") p__40_ "-")))) widths)) (fmt-row (lambda (leader divider trailer row) (let fnrec2365 ((leader leader) (divider divider) (trailer trailer) (row row)) (jolt-invoke (var-deref "clojure.core" "str") leader (jolt-apply (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "interpose") divider (let* ((_a$2368 (lambda (G__104) (let fnrec2366 ((G__104 G__104)) (let* ((G__105 G__104) (col (jolt-nth G__105 0 jolt-nil)) (width (jolt-nth G__105 1 jolt-nil))) (jolt-invoke (var-deref "clojure.pprint" "add-padding") width (jolt-invoke (var-deref "clojure.core" "str") col)))))) (_a$2369 (jolt-map jolt-vector (jolt-map (lambda (p__41_) (let fnrec2367 ((p__41_ p__41_)) (jolt-get row p__41_))) ks) widths))) (jolt-map _a$2368 _a$2369)))) trailer))))) (begin (jolt-invoke (var-deref "clojure.core" "println")) (jolt-invoke (var-deref "clojure.core" "println") (jolt-invoke fmt-row "| " " | " " |" (jolt-invoke (var-deref "clojure.core" "zipmap") ks ks))) (jolt-invoke (var-deref "clojure.core" "println") (jolt-invoke fmt-row "|-" "-+-" "-|" (jolt-invoke (var-deref "clojure.core" "zipmap") ks spacers))) (begin (jolt-count (jolt-map (lambda (row) (let fnrec2370 ((row row)) (begin (jolt-invoke (var-deref "clojure.core" "println") (jolt-invoke fmt-row "| " " | " " |" row)) jolt-nil))) rows)) jolt-nil))) jolt-nil))) ((rows) (let fnrec2371 ((rows rows)) (print-table (jolt-keys (jolt-first rows)) rows)))))) print-table) (let* ((_o$2372 (keyword #f "doc")) (_o$2373 "Prints a collection of maps in a textual table.")) (jolt-hash-map _o$2372 _o$2373))))
(guard (e (#t #f))
(jolt-invoke (var-deref "clojure.core" "__set-pprint-write-hook!") (lambda (s) (let fnrec2374 ((s s)) (let* ((o (var-deref "clojure.core" "*out*"))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "instance-check") (jolt-symbol #f "PrettyWriter") o)) (begin (jolt-invoke (var-deref "clojure.pprint" "-write") o s) #t) jolt-nil))))))
Reference in a new issue View git blame Copy permalink