diff --git a/host/chez/seed/image.ss b/host/chez/seed/image.ss index 7eecd21..ebbd293 100644 --- a/host/chez/seed/image.ss +++ b/host/chez/seed/image.ss @@ -1,129 +1,129 @@ (guard (e (#t #f)) - (def-var! "jolt.ir" "const" (letrec ((const (lambda (v) (let fnrec7315 ((v v)) (let* ((_o$7316 (keyword #f "op")) (_o$7317 (keyword #f "const")) (_o$7318 (keyword #f "val")) (_o$7319 v)) (jolt-hash-map _o$7316 _o$7317 _o$7318 _o$7319)))))) const))) + (def-var! "jolt.ir" "const" (letrec ((const (lambda (v) (let fnrec7320 ((v v)) (let* ((_o$7321 (keyword #f "op")) (_o$7322 (keyword #f "const")) (_o$7323 (keyword #f "val")) (_o$7324 v)) (jolt-hash-map _o$7321 _o$7322 _o$7323 _o$7324)))))) const))) (guard (e (#t #f)) - (def-var! "jolt.ir" "local" (letrec ((local (lambda (name) (let fnrec7320 ((name name)) (let* ((_o$7321 (keyword #f "op")) (_o$7322 (keyword #f "local")) (_o$7323 (keyword #f "name")) (_o$7324 name)) (jolt-hash-map _o$7321 _o$7322 _o$7323 _o$7324)))))) local))) + (def-var! "jolt.ir" "local" (letrec ((local (lambda (name) (let fnrec7325 ((name name)) (let* ((_o$7326 (keyword #f "op")) (_o$7327 (keyword #f "local")) (_o$7328 (keyword #f "name")) (_o$7329 name)) (jolt-hash-map _o$7326 _o$7327 _o$7328 _o$7329)))))) local))) (guard (e (#t #f)) - (def-var! "jolt.ir" "var-ref" (letrec ((var-ref (lambda (ns name) (let fnrec7325 ((ns ns) (name name)) (let* ((_o$7326 (keyword #f "op")) (_o$7327 (keyword #f "var")) (_o$7328 (keyword #f "ns")) (_o$7329 ns) (_o$7330 (keyword #f "name")) (_o$7331 name)) (jolt-hash-map _o$7326 _o$7327 _o$7328 _o$7329 _o$7330 _o$7331)))))) var-ref))) + (def-var! "jolt.ir" "var-ref" (letrec ((var-ref (lambda (ns name) (let fnrec7330 ((ns ns) (name name)) (let* ((_o$7331 (keyword #f "op")) (_o$7332 (keyword #f "var")) (_o$7333 (keyword #f "ns")) (_o$7334 ns) (_o$7335 (keyword #f "name")) (_o$7336 name)) (jolt-hash-map _o$7331 _o$7332 _o$7333 _o$7334 _o$7335 _o$7336)))))) var-ref))) (guard (e (#t #f)) - (def-var! "jolt.ir" "the-var" (letrec ((the-var (lambda (ns name) (let fnrec7332 ((ns ns) (name name)) (let* ((_o$7333 (keyword #f "op")) (_o$7334 (keyword #f "the-var")) (_o$7335 (keyword #f "ns")) (_o$7336 ns) (_o$7337 (keyword #f "name")) (_o$7338 name)) (jolt-hash-map _o$7333 _o$7334 _o$7335 _o$7336 _o$7337 _o$7338)))))) the-var))) + (def-var! "jolt.ir" "the-var" (letrec ((the-var (lambda (ns name) (let fnrec7337 ((ns ns) (name name)) (let* ((_o$7338 (keyword #f "op")) (_o$7339 (keyword #f "the-var")) (_o$7340 (keyword #f "ns")) (_o$7341 ns) (_o$7342 (keyword #f "name")) (_o$7343 name)) (jolt-hash-map _o$7338 _o$7339 _o$7340 _o$7341 _o$7342 _o$7343)))))) the-var))) (guard (e (#t #f)) - (def-var! "jolt.ir" "host-ref" (letrec ((host-ref (lambda (name) (let fnrec7339 ((name name)) (let* ((_o$7340 (keyword #f "op")) (_o$7341 (keyword #f "host")) (_o$7342 (keyword #f "name")) (_o$7343 name)) (jolt-hash-map _o$7340 _o$7341 _o$7342 _o$7343)))))) host-ref))) + (def-var! "jolt.ir" "host-ref" (letrec ((host-ref (lambda (name) (let fnrec7344 ((name name)) (let* ((_o$7345 (keyword #f "op")) (_o$7346 (keyword #f "host")) (_o$7347 (keyword #f "name")) (_o$7348 name)) (jolt-hash-map _o$7345 _o$7346 _o$7347 _o$7348)))))) host-ref))) (guard (e (#t #f)) - (def-var! "jolt.ir" "host-static" (letrec ((host-static (lambda (class member) (let fnrec7344 ((class class) (member member)) (let* ((_o$7345 (keyword #f "op")) (_o$7346 (keyword #f "host-static")) (_o$7347 (keyword #f "class")) (_o$7348 class) (_o$7349 (keyword #f "member")) (_o$7350 member)) (jolt-hash-map _o$7345 _o$7346 _o$7347 _o$7348 _o$7349 _o$7350)))))) host-static))) + (def-var! "jolt.ir" "host-static" (letrec ((host-static (lambda (class member) (let fnrec7349 ((class class) (member member)) (let* ((_o$7350 (keyword #f "op")) (_o$7351 (keyword #f "host-static")) (_o$7352 (keyword #f "class")) (_o$7353 class) (_o$7354 (keyword #f "member")) (_o$7355 member)) (jolt-hash-map _o$7350 _o$7351 _o$7352 _o$7353 _o$7354 _o$7355)))))) host-static))) (guard (e (#t #f)) - (def-var! "jolt.ir" "host-new" (letrec ((host-new (lambda (class args) (let fnrec7351 ((class class) (args args)) (let* ((_o$7352 (keyword #f "op")) (_o$7353 (keyword #f "host-new")) (_o$7354 (keyword #f "class")) (_o$7355 class) (_o$7356 (keyword #f "args")) (_o$7357 args)) (jolt-hash-map _o$7352 _o$7353 _o$7354 _o$7355 _o$7356 _o$7357)))))) host-new))) + (def-var! "jolt.ir" "host-new" (letrec ((host-new (lambda (class args) (let fnrec7356 ((class class) (args args)) (let* ((_o$7357 (keyword #f "op")) (_o$7358 (keyword #f "host-new")) (_o$7359 (keyword #f "class")) (_o$7360 class) (_o$7361 (keyword #f "args")) (_o$7362 args)) (jolt-hash-map _o$7357 _o$7358 _o$7359 _o$7360 _o$7361 _o$7362)))))) host-new))) (guard (e (#t #f)) - (def-var! "jolt.ir" "if-node" (letrec ((if-node (lambda (test then _else) (let fnrec7358 ((test test) (then then) (_else _else)) (let* ((_o$7359 (keyword #f "op")) (_o$7360 (keyword #f "if")) (_o$7361 (keyword #f "test")) (_o$7362 test) (_o$7363 (keyword #f "then")) (_o$7364 then) (_o$7365 (keyword #f "else")) (_o$7366 _else)) (jolt-hash-map _o$7359 _o$7360 _o$7361 _o$7362 _o$7363 _o$7364 _o$7365 _o$7366)))))) if-node))) + (def-var! "jolt.ir" "if-node" (letrec ((if-node (lambda (test then _else) (let fnrec7363 ((test test) (then then) (_else _else)) (let* ((_o$7364 (keyword #f "op")) (_o$7365 (keyword #f "if")) (_o$7366 (keyword #f "test")) (_o$7367 test) (_o$7368 (keyword #f "then")) (_o$7369 then) (_o$7370 (keyword #f "else")) (_o$7371 _else)) (jolt-hash-map _o$7364 _o$7365 _o$7366 _o$7367 _o$7368 _o$7369 _o$7370 _o$7371)))))) if-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "do-node" (letrec ((do-node (lambda (statements ret) (let fnrec7367 ((statements statements) (ret ret)) (let* ((_o$7368 (keyword #f "op")) (_o$7369 (keyword #f "do")) (_o$7370 (keyword #f "statements")) (_o$7371 statements) (_o$7372 (keyword #f "ret")) (_o$7373 ret)) (jolt-hash-map _o$7368 _o$7369 _o$7370 _o$7371 _o$7372 _o$7373)))))) do-node))) + (def-var! "jolt.ir" "do-node" (letrec ((do-node (lambda (statements ret) (let fnrec7372 ((statements statements) (ret ret)) (let* ((_o$7373 (keyword #f "op")) (_o$7374 (keyword #f "do")) (_o$7375 (keyword #f "statements")) (_o$7376 statements) (_o$7377 (keyword #f "ret")) (_o$7378 ret)) (jolt-hash-map _o$7373 _o$7374 _o$7375 _o$7376 _o$7377 _o$7378)))))) do-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "invoke" (letrec ((invoke (lambda (f args) (let fnrec7374 ((f f) (args args)) (let* ((_o$7375 (keyword #f "op")) (_o$7376 (keyword #f "invoke")) (_o$7377 (keyword #f "fn")) (_o$7378 f) (_o$7379 (keyword #f "args")) (_o$7380 args)) (jolt-hash-map _o$7375 _o$7376 _o$7377 _o$7378 _o$7379 _o$7380)))))) invoke))) + (def-var! "jolt.ir" "invoke" (letrec ((invoke (lambda (f args) (let fnrec7379 ((f f) (args args)) (let* ((_o$7380 (keyword #f "op")) (_o$7381 (keyword #f "invoke")) (_o$7382 (keyword #f "fn")) (_o$7383 f) (_o$7384 (keyword #f "args")) (_o$7385 args)) (jolt-hash-map _o$7380 _o$7381 _o$7382 _o$7383 _o$7384 _o$7385)))))) invoke))) (guard (e (#t #f)) - (def-var! "jolt.ir" "def-node" (letrec ((def-node (case-lambda ((ns name init) (let fnrec7381 ((ns ns) (name name) (init init)) (let* ((_o$7382 (keyword #f "op")) (_o$7383 (keyword #f "def")) (_o$7384 (keyword #f "ns")) (_o$7385 ns) (_o$7386 (keyword #f "name")) (_o$7387 name) (_o$7388 (keyword #f "init")) (_o$7389 init)) (jolt-hash-map _o$7382 _o$7383 _o$7384 _o$7385 _o$7386 _o$7387 _o$7388 _o$7389)))) ((ns name init meta) (let fnrec7390 ((ns ns) (name name) (init init) (meta meta)) (if (jolt-truthy? meta) (let* ((_o$7391 (keyword #f "op")) (_o$7392 (keyword #f "def")) (_o$7393 (keyword #f "ns")) (_o$7394 ns) (_o$7395 (keyword #f "name")) (_o$7396 name) (_o$7397 (keyword #f "init")) (_o$7398 init) (_o$7399 (keyword #f "meta")) (_o$7400 meta)) (jolt-hash-map _o$7391 _o$7392 _o$7393 _o$7394 _o$7395 _o$7396 _o$7397 _o$7398 _o$7399 _o$7400)) (let* ((_o$7401 (keyword #f "op")) (_o$7402 (keyword #f "def")) (_o$7403 (keyword #f "ns")) (_o$7404 ns) (_o$7405 (keyword #f "name")) (_o$7406 name) (_o$7407 (keyword #f "init")) (_o$7408 init)) (jolt-hash-map _o$7401 _o$7402 _o$7403 _o$7404 _o$7405 _o$7406 _o$7407 _o$7408)))))))) def-node))) + (def-var! "jolt.ir" "def-node" (letrec ((def-node (case-lambda ((ns name init) (let fnrec7386 ((ns ns) (name name) (init init)) (let* ((_o$7387 (keyword #f "op")) (_o$7388 (keyword #f "def")) (_o$7389 (keyword #f "ns")) (_o$7390 ns) (_o$7391 (keyword #f "name")) (_o$7392 name) (_o$7393 (keyword #f "init")) (_o$7394 init)) (jolt-hash-map _o$7387 _o$7388 _o$7389 _o$7390 _o$7391 _o$7392 _o$7393 _o$7394)))) ((ns name init meta) (let fnrec7395 ((ns ns) (name name) (init init) (meta meta)) (if (jolt-truthy? meta) (let* ((_o$7396 (keyword #f "op")) (_o$7397 (keyword #f "def")) (_o$7398 (keyword #f "ns")) (_o$7399 ns) (_o$7400 (keyword #f "name")) (_o$7401 name) (_o$7402 (keyword #f "init")) (_o$7403 init) (_o$7404 (keyword #f "meta")) (_o$7405 meta)) (jolt-hash-map _o$7396 _o$7397 _o$7398 _o$7399 _o$7400 _o$7401 _o$7402 _o$7403 _o$7404 _o$7405)) (let* ((_o$7406 (keyword #f "op")) (_o$7407 (keyword #f "def")) (_o$7408 (keyword #f "ns")) (_o$7409 ns) (_o$7410 (keyword #f "name")) (_o$7411 name) (_o$7412 (keyword #f "init")) (_o$7413 init)) (jolt-hash-map _o$7406 _o$7407 _o$7408 _o$7409 _o$7410 _o$7411 _o$7412 _o$7413)))))))) def-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "let-node" (letrec ((let-node (lambda (bindings body) (let fnrec7409 ((bindings bindings) (body body)) (let* ((_o$7410 (keyword #f "op")) (_o$7411 (keyword #f "let")) (_o$7412 (keyword #f "bindings")) (_o$7413 bindings) (_o$7414 (keyword #f "body")) (_o$7415 body)) (jolt-hash-map _o$7410 _o$7411 _o$7412 _o$7413 _o$7414 _o$7415)))))) let-node))) + (def-var! "jolt.ir" "let-node" (letrec ((let-node (lambda (bindings body) (let fnrec7414 ((bindings bindings) (body body)) (let* ((_o$7415 (keyword #f "op")) (_o$7416 (keyword #f "let")) (_o$7417 (keyword #f "bindings")) (_o$7418 bindings) (_o$7419 (keyword #f "body")) (_o$7420 body)) (jolt-hash-map _o$7415 _o$7416 _o$7417 _o$7418 _o$7419 _o$7420)))))) let-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "fn-node" (letrec ((fn-node (lambda (name arities) (let fnrec7416 ((name name) (arities arities)) (if (jolt-truthy? name) (let* ((_o$7417 (keyword #f "op")) (_o$7418 (keyword #f "fn")) (_o$7419 (keyword #f "name")) (_o$7420 name) (_o$7421 (keyword #f "arities")) (_o$7422 arities)) (jolt-hash-map _o$7417 _o$7418 _o$7419 _o$7420 _o$7421 _o$7422)) (let* ((_o$7423 (keyword #f "op")) (_o$7424 (keyword #f "fn")) (_o$7425 (keyword #f "arities")) (_o$7426 arities)) (jolt-hash-map _o$7423 _o$7424 _o$7425 _o$7426))))))) fn-node))) + (def-var! "jolt.ir" "fn-node" (letrec ((fn-node (lambda (name arities) (let fnrec7421 ((name name) (arities arities)) (if (jolt-truthy? name) (let* ((_o$7422 (keyword #f "op")) (_o$7423 (keyword #f "fn")) (_o$7424 (keyword #f "name")) (_o$7425 name) (_o$7426 (keyword #f "arities")) (_o$7427 arities)) (jolt-hash-map _o$7422 _o$7423 _o$7424 _o$7425 _o$7426 _o$7427)) (let* ((_o$7428 (keyword #f "op")) (_o$7429 (keyword #f "fn")) (_o$7430 (keyword #f "arities")) (_o$7431 arities)) (jolt-hash-map _o$7428 _o$7429 _o$7430 _o$7431))))))) fn-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "vector-node" (letrec ((vector-node (lambda (items) (let fnrec7427 ((items items)) (let* ((_o$7428 (keyword #f "op")) (_o$7429 (keyword #f "vector")) (_o$7430 (keyword #f "items")) (_o$7431 items)) (jolt-hash-map _o$7428 _o$7429 _o$7430 _o$7431)))))) vector-node))) + (def-var! "jolt.ir" "vector-node" (letrec ((vector-node (lambda (items) (let fnrec7432 ((items items)) (let* ((_o$7433 (keyword #f "op")) (_o$7434 (keyword #f "vector")) (_o$7435 (keyword #f "items")) (_o$7436 items)) (jolt-hash-map _o$7433 _o$7434 _o$7435 _o$7436)))))) vector-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "map-node" (letrec ((map-node (lambda (pairs) (let fnrec7432 ((pairs pairs)) (let* ((_o$7433 (keyword #f "op")) (_o$7434 (keyword #f "map")) (_o$7435 (keyword #f "pairs")) (_o$7436 pairs)) (jolt-hash-map _o$7433 _o$7434 _o$7435 _o$7436)))))) map-node))) + (def-var! "jolt.ir" "map-node" (letrec ((map-node (lambda (pairs) (let fnrec7437 ((pairs pairs)) (let* ((_o$7438 (keyword #f "op")) (_o$7439 (keyword #f "map")) (_o$7440 (keyword #f "pairs")) (_o$7441 pairs)) (jolt-hash-map _o$7438 _o$7439 _o$7440 _o$7441)))))) map-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "set-node" (letrec ((set-node (lambda (items) (let fnrec7437 ((items items)) (let* ((_o$7438 (keyword #f "op")) (_o$7439 (keyword #f "set")) (_o$7440 (keyword #f "items")) (_o$7441 items)) (jolt-hash-map _o$7438 _o$7439 _o$7440 _o$7441)))))) set-node))) + (def-var! "jolt.ir" "set-node" (letrec ((set-node (lambda (items) (let fnrec7442 ((items items)) (let* ((_o$7443 (keyword #f "op")) (_o$7444 (keyword #f "set")) (_o$7445 (keyword #f "items")) (_o$7446 items)) (jolt-hash-map _o$7443 _o$7444 _o$7445 _o$7446)))))) set-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "quote-node" (letrec ((quote-node (lambda (form) (let fnrec7442 ((form form)) (let* ((_o$7443 (keyword #f "op")) (_o$7444 (keyword #f "quote")) (_o$7445 (keyword #f "form")) (_o$7446 form)) (jolt-hash-map _o$7443 _o$7444 _o$7445 _o$7446)))))) quote-node))) + (def-var! "jolt.ir" "quote-node" (letrec ((quote-node (lambda (form) (let fnrec7447 ((form form)) (let* ((_o$7448 (keyword #f "op")) (_o$7449 (keyword #f "quote")) (_o$7450 (keyword #f "form")) (_o$7451 form)) (jolt-hash-map _o$7448 _o$7449 _o$7450 _o$7451)))))) quote-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "throw-node" (letrec ((throw-node (lambda (expr) (let fnrec7447 ((expr expr)) (let* ((_o$7448 (keyword #f "op")) (_o$7449 (keyword #f "throw")) (_o$7450 (keyword #f "expr")) (_o$7451 expr)) (jolt-hash-map _o$7448 _o$7449 _o$7450 _o$7451)))))) throw-node))) + (def-var! "jolt.ir" "throw-node" (letrec ((throw-node (lambda (expr) (let fnrec7452 ((expr expr)) (let* ((_o$7453 (keyword #f "op")) (_o$7454 (keyword #f "throw")) (_o$7455 (keyword #f "expr")) (_o$7456 expr)) (jolt-hash-map _o$7453 _o$7454 _o$7455 _o$7456)))))) throw-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "coerce-node" (letrec ((coerce-node (lambda (kind expr) (let fnrec7452 ((kind kind) (expr expr)) (let* ((_o$7453 (keyword #f "op")) (_o$7454 (keyword #f "coerce")) (_o$7455 (keyword #f "kind")) (_o$7456 kind) (_o$7457 (keyword #f "expr")) (_o$7458 expr)) (jolt-hash-map _o$7453 _o$7454 _o$7455 _o$7456 _o$7457 _o$7458)))))) coerce-node))) + (def-var! "jolt.ir" "coerce-node" (letrec ((coerce-node (lambda (kind expr) (let fnrec7457 ((kind kind) (expr expr)) (let* ((_o$7458 (keyword #f "op")) (_o$7459 (keyword #f "coerce")) (_o$7460 (keyword #f "kind")) (_o$7461 kind) (_o$7462 (keyword #f "expr")) (_o$7463 expr)) (jolt-hash-map _o$7458 _o$7459 _o$7460 _o$7461 _o$7462 _o$7463)))))) coerce-node))) (guard (e (#t #f)) - (def-var! "jolt.ir" "map-ir-children" (letrec ((map-ir-children (lambda (f node) (let fnrec7459 ((f f) (node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "if")) (let* ((_a$7460 node) (_a$7461 (keyword #f "test")) (_a$7462 (jolt-invoke f (jolt-get node (keyword #f "test")))) (_a$7463 (keyword #f "then")) (_a$7464 (jolt-invoke f (jolt-get node (keyword #f "then")))) (_a$7465 (keyword #f "else")) (_a$7466 (jolt-invoke f (jolt-get node (keyword #f "else"))))) (jolt-assoc _a$7460 _a$7461 _a$7462 _a$7463 _a$7464 _a$7465 _a$7466)) (if (jolt= op (keyword #f "do")) (let* ((_a$7467 node) (_a$7468 (keyword #f "statements")) (_a$7469 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "statements")))) (_a$7470 (keyword #f "ret")) (_a$7471 (jolt-invoke f (jolt-get node (keyword #f "ret"))))) (jolt-assoc _a$7467 _a$7468 _a$7469 _a$7470 _a$7471)) (if (jolt= op (keyword #f "throw")) (jolt-assoc node (keyword #f "expr") (jolt-invoke f (jolt-get node (keyword #f "expr")))) (if (jolt= op (keyword #f "coerce")) (jolt-assoc node (keyword #f "expr") (jolt-invoke f (jolt-get node (keyword #f "expr")))) (if (jolt= op (keyword #f "set-var")) (jolt-assoc node (keyword #f "val") (jolt-invoke f (jolt-get node (keyword #f "val")))) (if (jolt= op (keyword #f "set-field")) (let* ((_a$7472 node) (_a$7473 (keyword #f "obj")) (_a$7474 (jolt-invoke f (jolt-get node (keyword #f "obj")))) (_a$7475 (keyword #f "val")) (_a$7476 (jolt-invoke f (jolt-get node (keyword #f "val"))))) (jolt-assoc _a$7472 _a$7473 _a$7474 _a$7475 _a$7476)) (if (jolt= op (keyword #f "defmacro")) (jolt-assoc node (keyword #f "fn") (jolt-invoke f (jolt-get node (keyword #f "fn")))) (if (jolt= op (keyword #f "ffi-callable")) (jolt-assoc node (keyword #f "fn") (jolt-invoke f (jolt-get node (keyword #f "fn")))) (if (jolt= op (keyword #f "invoke")) (let* ((_a$7477 node) (_a$7478 (keyword #f "fn")) (_a$7479 (jolt-invoke f (jolt-get node (keyword #f "fn")))) (_a$7480 (keyword #f "args")) (_a$7481 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args"))))) (jolt-assoc _a$7477 _a$7478 _a$7479 _a$7480 _a$7481)) (if (jolt= op (keyword #f "vector")) (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "items")))) (if (jolt= op (keyword #f "set")) (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "items")))) (if (jolt= op (keyword #f "map")) (jolt-assoc node (keyword #f "pairs") (let* ((_a$7485 (var-deref "clojure.core" "mapv")) (_a$7486 (lambda (pr) (let fnrec7482 ((pr pr)) (let* ((_o$7483 (jolt-invoke f (jolt-nth pr 0))) (_o$7484 (jolt-invoke f (jolt-nth pr 1)))) (jolt-vector _o$7483 _o$7484))))) (_a$7487 (jolt-get node (keyword #f "pairs")))) (jolt-invoke _a$7485 _a$7486 _a$7487))) (if (jolt= op (keyword #f "let")) (let* ((_a$7494 node) (_a$7495 (keyword #f "bindings")) (_a$7496 (let* ((_a$7491 (var-deref "clojure.core" "mapv")) (_a$7492 (lambda (b) (let fnrec7488 ((b b)) (let* ((_o$7489 (jolt-nth b 0)) (_o$7490 (jolt-invoke f (jolt-nth b 1)))) (jolt-vector _o$7489 _o$7490))))) (_a$7493 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$7491 _a$7492 _a$7493))) (_a$7497 (keyword #f "body")) (_a$7498 (jolt-invoke f (jolt-get node (keyword #f "body"))))) (jolt-assoc _a$7494 _a$7495 _a$7496 _a$7497 _a$7498)) (if (jolt= op (keyword #f "loop")) (let* ((_a$7505 node) (_a$7506 (keyword #f "bindings")) (_a$7507 (let* ((_a$7502 (var-deref "clojure.core" "mapv")) (_a$7503 (lambda (b) (let fnrec7499 ((b b)) (let* ((_o$7500 (jolt-nth b 0)) (_o$7501 (jolt-invoke f (jolt-nth b 1)))) (jolt-vector _o$7500 _o$7501))))) (_a$7504 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$7502 _a$7503 _a$7504))) (_a$7508 (keyword #f "body")) (_a$7509 (jolt-invoke f (jolt-get node (keyword #f "body"))))) (jolt-assoc _a$7505 _a$7506 _a$7507 _a$7508 _a$7509)) (if (jolt= op (keyword #f "recur")) (jolt-assoc node (keyword #f "args") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args")))) (if (jolt= op (keyword #f "fn")) (jolt-assoc node (keyword #f "arities") (let* ((_a$7511 (var-deref "clojure.core" "mapv")) (_a$7512 (lambda (a) (let fnrec7510 ((a a)) (jolt-assoc a (keyword #f "body") (jolt-invoke f (jolt-get a (keyword #f "body"))))))) (_a$7513 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$7511 _a$7512 _a$7513))) (if (jolt= op (keyword #f "def")) (let* ((n (jolt-assoc node (keyword #f "init") (jolt-invoke f (jolt-get node (keyword #f "init")))))) (if (jolt-truthy? (jolt-get node (keyword #f "meta-expr"))) (jolt-assoc n (keyword #f "meta-expr") (jolt-invoke f (jolt-get node (keyword #f "meta-expr")))) n)) (if (jolt= op (keyword #f "host-call")) (let* ((_a$7514 node) (_a$7515 (keyword #f "target")) (_a$7516 (jolt-invoke f (jolt-get node (keyword #f "target")))) (_a$7517 (keyword #f "args")) (_a$7518 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args"))))) (jolt-assoc _a$7514 _a$7515 _a$7516 _a$7517 _a$7518)) (if (jolt= op (keyword #f "host-new")) (jolt-assoc node (keyword #f "args") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args")))) (if (jolt= op (keyword #f "try")) (let* ((n (jolt-assoc node (keyword #f "body") (jolt-invoke f (jolt-get node (keyword #f "body"))))) (n (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-assoc n (keyword #f "catch-body") (jolt-invoke f (jolt-get node (keyword #f "catch-body")))) n)) (n (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-assoc n (keyword #f "finally") (jolt-invoke f (jolt-get node (keyword #f "finally")))) n))) n) (if (jolt-truthy? (keyword #f "else")) node jolt-nil)))))))))))))))))))))))))) map-ir-children))) + (def-var! "jolt.ir" "map-ir-children" (letrec ((map-ir-children (lambda (f node) (let fnrec7464 ((f f) (node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "if")) (let* ((_a$7465 node) (_a$7466 (keyword #f "test")) (_a$7467 (jolt-invoke f (jolt-get node (keyword #f "test")))) (_a$7468 (keyword #f "then")) (_a$7469 (jolt-invoke f (jolt-get node (keyword #f "then")))) (_a$7470 (keyword #f "else")) (_a$7471 (jolt-invoke f (jolt-get node (keyword #f "else"))))) (jolt-assoc _a$7465 _a$7466 _a$7467 _a$7468 _a$7469 _a$7470 _a$7471)) (if (jolt= op (keyword #f "do")) (let* ((_a$7472 node) (_a$7473 (keyword #f "statements")) (_a$7474 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "statements")))) (_a$7475 (keyword #f "ret")) (_a$7476 (jolt-invoke f (jolt-get node (keyword #f "ret"))))) (jolt-assoc _a$7472 _a$7473 _a$7474 _a$7475 _a$7476)) (if (jolt= op (keyword #f "throw")) (jolt-assoc node (keyword #f "expr") (jolt-invoke f (jolt-get node (keyword #f "expr")))) (if (jolt= op (keyword #f "coerce")) (jolt-assoc node (keyword #f "expr") (jolt-invoke f (jolt-get node (keyword #f "expr")))) (if (jolt= op (keyword #f "set-var")) (jolt-assoc node (keyword #f "val") (jolt-invoke f (jolt-get node (keyword #f "val")))) (if (jolt= op (keyword #f "set-field")) (let* ((_a$7477 node) (_a$7478 (keyword #f "obj")) (_a$7479 (jolt-invoke f (jolt-get node (keyword #f "obj")))) (_a$7480 (keyword #f "val")) (_a$7481 (jolt-invoke f (jolt-get node (keyword #f "val"))))) (jolt-assoc _a$7477 _a$7478 _a$7479 _a$7480 _a$7481)) (if (jolt= op (keyword #f "defmacro")) (jolt-assoc node (keyword #f "fn") (jolt-invoke f (jolt-get node (keyword #f "fn")))) (if (jolt= op (keyword #f "ffi-callable")) (jolt-assoc node (keyword #f "fn") (jolt-invoke f (jolt-get node (keyword #f "fn")))) (if (jolt= op (keyword #f "invoke")) (let* ((_a$7482 node) (_a$7483 (keyword #f "fn")) (_a$7484 (jolt-invoke f (jolt-get node (keyword #f "fn")))) (_a$7485 (keyword #f "args")) (_a$7486 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args"))))) (jolt-assoc _a$7482 _a$7483 _a$7484 _a$7485 _a$7486)) (if (jolt= op (keyword #f "vector")) (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "items")))) (if (jolt= op (keyword #f "set")) (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "items")))) (if (jolt= op (keyword #f "map")) (jolt-assoc node (keyword #f "pairs") (let* ((_a$7490 (var-deref "clojure.core" "mapv")) (_a$7491 (lambda (pr) (let fnrec7487 ((pr pr)) (let* ((_o$7488 (jolt-invoke f (jolt-nth pr 0))) (_o$7489 (jolt-invoke f (jolt-nth pr 1)))) (jolt-vector _o$7488 _o$7489))))) (_a$7492 (jolt-get node (keyword #f "pairs")))) (jolt-invoke _a$7490 _a$7491 _a$7492))) (if (jolt= op (keyword #f "let")) (let* ((_a$7499 node) (_a$7500 (keyword #f "bindings")) (_a$7501 (let* ((_a$7496 (var-deref "clojure.core" "mapv")) (_a$7497 (lambda (b) (let fnrec7493 ((b b)) (let* ((_o$7494 (jolt-nth b 0)) (_o$7495 (jolt-invoke f (jolt-nth b 1)))) (jolt-vector _o$7494 _o$7495))))) (_a$7498 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$7496 _a$7497 _a$7498))) (_a$7502 (keyword #f "body")) (_a$7503 (jolt-invoke f (jolt-get node (keyword #f "body"))))) (jolt-assoc _a$7499 _a$7500 _a$7501 _a$7502 _a$7503)) (if (jolt= op (keyword #f "loop")) (let* ((_a$7510 node) (_a$7511 (keyword #f "bindings")) (_a$7512 (let* ((_a$7507 (var-deref "clojure.core" "mapv")) (_a$7508 (lambda (b) (let fnrec7504 ((b b)) (let* ((_o$7505 (jolt-nth b 0)) (_o$7506 (jolt-invoke f (jolt-nth b 1)))) (jolt-vector _o$7505 _o$7506))))) (_a$7509 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$7507 _a$7508 _a$7509))) (_a$7513 (keyword #f "body")) (_a$7514 (jolt-invoke f (jolt-get node (keyword #f "body"))))) (jolt-assoc _a$7510 _a$7511 _a$7512 _a$7513 _a$7514)) (if (jolt= op (keyword #f "recur")) (jolt-assoc node (keyword #f "args") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args")))) (if (jolt= op (keyword #f "fn")) (jolt-assoc node (keyword #f "arities") (let* ((_a$7516 (var-deref "clojure.core" "mapv")) (_a$7517 (lambda (a) (let fnrec7515 ((a a)) (jolt-assoc a (keyword #f "body") (jolt-invoke f (jolt-get a (keyword #f "body"))))))) (_a$7518 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$7516 _a$7517 _a$7518))) (if (jolt= op (keyword #f "def")) (let* ((n (jolt-assoc node (keyword #f "init") (jolt-invoke f (jolt-get node (keyword #f "init")))))) (if (jolt-truthy? (jolt-get node (keyword #f "meta-expr"))) (jolt-assoc n (keyword #f "meta-expr") (jolt-invoke f (jolt-get node (keyword #f "meta-expr")))) n)) (if (jolt= op (keyword #f "host-call")) (let* ((_a$7519 node) (_a$7520 (keyword #f "target")) (_a$7521 (jolt-invoke f (jolt-get node (keyword #f "target")))) (_a$7522 (keyword #f "args")) (_a$7523 (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args"))))) (jolt-assoc _a$7519 _a$7520 _a$7521 _a$7522 _a$7523)) (if (jolt= op (keyword #f "host-new")) (jolt-assoc node (keyword #f "args") (jolt-invoke (var-deref "clojure.core" "mapv") f (jolt-get node (keyword #f "args")))) (if (jolt= op (keyword #f "try")) (let* ((n (jolt-assoc node (keyword #f "body") (jolt-invoke f (jolt-get node (keyword #f "body"))))) (n (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-assoc n (keyword #f "catch-body") (jolt-invoke f (jolt-get node (keyword #f "catch-body")))) n)) (n (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-assoc n (keyword #f "finally") (jolt-invoke f (jolt-get node (keyword #f "finally")))) n))) n) (if (jolt-truthy? (keyword #f "else")) node jolt-nil)))))))))))))))))))))))))) map-ir-children))) (guard (e (#t #f)) - (def-var! "jolt.ir" "reduce-ir-children" (letrec ((reduce-ir-children (lambda (f acc node) (let fnrec7519 ((f f) (acc acc) (node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "if")) (let* ((_a$7523 f) (_a$7524 (let* ((_a$7520 f) (_a$7521 (jolt-invoke f acc (jolt-get node (keyword #f "test")))) (_a$7522 (jolt-get node (keyword #f "then")))) (jolt-invoke _a$7520 _a$7521 _a$7522))) (_a$7525 (jolt-get node (keyword #f "else")))) (jolt-invoke _a$7523 _a$7524 _a$7525)) (if (jolt= op (keyword #f "do")) (let* ((_a$7526 f) (_a$7527 (jolt-reduce f acc (jolt-get node (keyword #f "statements")))) (_a$7528 (jolt-get node (keyword #f "ret")))) (jolt-invoke _a$7526 _a$7527 _a$7528)) (if (jolt= op (keyword #f "throw")) (jolt-invoke f acc (jolt-get node (keyword #f "expr"))) (if (jolt= op (keyword #f "coerce")) (jolt-invoke f acc (jolt-get node (keyword #f "expr"))) (if (jolt= op (keyword #f "set-var")) (jolt-invoke f acc (jolt-get node (keyword #f "val"))) (if (jolt= op (keyword #f "set-field")) (let* ((_a$7529 f) (_a$7530 (jolt-invoke f acc (jolt-get node (keyword #f "obj")))) (_a$7531 (jolt-get node (keyword #f "val")))) (jolt-invoke _a$7529 _a$7530 _a$7531)) (if (jolt= op (keyword #f "defmacro")) (jolt-invoke f acc (jolt-get node (keyword #f "fn"))) (if (jolt= op (keyword #f "ffi-callable")) (jolt-invoke f acc (jolt-get node (keyword #f "fn"))) (if (jolt= op (keyword #f "invoke")) (let* ((_a$7532 f) (_a$7533 (jolt-invoke f acc (jolt-get node (keyword #f "fn")))) (_a$7534 (jolt-get node (keyword #f "args")))) (jolt-reduce _a$7532 _a$7533 _a$7534)) (if (jolt= op (keyword #f "vector")) (jolt-reduce f acc (jolt-get node (keyword #f "items"))) (if (jolt= op (keyword #f "set")) (jolt-reduce f acc (jolt-get node (keyword #f "items"))) (if (jolt= op (keyword #f "map")) (let* ((_a$7539 (lambda (a pr) (let fnrec7535 ((a a) (pr pr)) (let* ((_a$7536 f) (_a$7537 (jolt-invoke f a (jolt-nth pr 0))) (_a$7538 (jolt-nth pr 1))) (jolt-invoke _a$7536 _a$7537 _a$7538))))) (_a$7540 acc) (_a$7541 (jolt-get node (keyword #f "pairs")))) (jolt-reduce _a$7539 _a$7540 _a$7541)) (if (jolt= op (keyword #f "let")) (let* ((_a$7546 f) (_a$7547 (let* ((_a$7543 (lambda (a b) (let fnrec7542 ((a a) (b b)) (jolt-invoke f a (jolt-nth b 1))))) (_a$7544 acc) (_a$7545 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$7543 _a$7544 _a$7545))) (_a$7548 (jolt-get node (keyword #f "body")))) (jolt-invoke _a$7546 _a$7547 _a$7548)) (if (jolt= op (keyword #f "loop")) (let* ((_a$7553 f) (_a$7554 (let* ((_a$7550 (lambda (a b) (let fnrec7549 ((a a) (b b)) (jolt-invoke f a (jolt-nth b 1))))) (_a$7551 acc) (_a$7552 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$7550 _a$7551 _a$7552))) (_a$7555 (jolt-get node (keyword #f "body")))) (jolt-invoke _a$7553 _a$7554 _a$7555)) (if (jolt= op (keyword #f "recur")) (jolt-reduce f acc (jolt-get node (keyword #f "args"))) (if (jolt= op (keyword #f "fn")) (let* ((_a$7557 (lambda (a ar) (let fnrec7556 ((a a) (ar ar)) (jolt-invoke f a (jolt-get ar (keyword #f "body")))))) (_a$7558 acc) (_a$7559 (jolt-get node (keyword #f "arities")))) (jolt-reduce _a$7557 _a$7558 _a$7559)) (if (jolt= op (keyword #f "def")) (let* ((a (if (jolt-truthy? (jolt-get node (keyword #f "init"))) (jolt-invoke f acc (jolt-get node (keyword #f "init"))) acc))) (if (jolt-truthy? (jolt-get node (keyword #f "meta-expr"))) (jolt-invoke f a (jolt-get node (keyword #f "meta-expr"))) a)) (if (jolt= op (keyword #f "host-call")) (let* ((_a$7560 f) (_a$7561 (jolt-invoke f acc (jolt-get node (keyword #f "target")))) (_a$7562 (jolt-get node (keyword #f "args")))) (jolt-reduce _a$7560 _a$7561 _a$7562)) (if (jolt= op (keyword #f "host-new")) (jolt-reduce f acc (jolt-get node (keyword #f "args"))) (if (jolt= op (keyword #f "try")) (let* ((a (jolt-invoke f acc (jolt-get node (keyword #f "body")))) (a (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-invoke f a (jolt-get node (keyword #f "catch-body"))) a)) (a (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-invoke f a (jolt-get node (keyword #f "finally"))) a))) a) (if (jolt-truthy? (keyword #f "else")) acc jolt-nil)))))))))))))))))))))))))) reduce-ir-children))) + (def-var! "jolt.ir" "reduce-ir-children" (letrec ((reduce-ir-children (lambda (f acc node) (let fnrec7524 ((f f) (acc acc) (node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "if")) (let* ((_a$7528 f) (_a$7529 (let* ((_a$7525 f) (_a$7526 (jolt-invoke f acc (jolt-get node (keyword #f "test")))) (_a$7527 (jolt-get node (keyword #f "then")))) (jolt-invoke _a$7525 _a$7526 _a$7527))) (_a$7530 (jolt-get node (keyword #f "else")))) (jolt-invoke _a$7528 _a$7529 _a$7530)) (if (jolt= op (keyword #f "do")) (let* ((_a$7531 f) (_a$7532 (jolt-reduce f acc (jolt-get node (keyword #f "statements")))) (_a$7533 (jolt-get node (keyword #f "ret")))) (jolt-invoke _a$7531 _a$7532 _a$7533)) (if (jolt= op (keyword #f "throw")) (jolt-invoke f acc (jolt-get node (keyword #f "expr"))) (if (jolt= op (keyword #f "coerce")) (jolt-invoke f acc (jolt-get node (keyword #f "expr"))) (if (jolt= op (keyword #f "set-var")) (jolt-invoke f acc (jolt-get node (keyword #f "val"))) (if (jolt= op (keyword #f "set-field")) (let* ((_a$7534 f) (_a$7535 (jolt-invoke f acc (jolt-get node (keyword #f "obj")))) (_a$7536 (jolt-get node (keyword #f "val")))) (jolt-invoke _a$7534 _a$7535 _a$7536)) (if (jolt= op (keyword #f "defmacro")) (jolt-invoke f acc (jolt-get node (keyword #f "fn"))) (if (jolt= op (keyword #f "ffi-callable")) (jolt-invoke f acc (jolt-get node (keyword #f "fn"))) (if (jolt= op (keyword #f "invoke")) (let* ((_a$7537 f) (_a$7538 (jolt-invoke f acc (jolt-get node (keyword #f "fn")))) (_a$7539 (jolt-get node (keyword #f "args")))) (jolt-reduce _a$7537 _a$7538 _a$7539)) (if (jolt= op (keyword #f "vector")) (jolt-reduce f acc (jolt-get node (keyword #f "items"))) (if (jolt= op (keyword #f "set")) (jolt-reduce f acc (jolt-get node (keyword #f "items"))) (if (jolt= op (keyword #f "map")) (let* ((_a$7544 (lambda (a pr) (let fnrec7540 ((a a) (pr pr)) (let* ((_a$7541 f) (_a$7542 (jolt-invoke f a (jolt-nth pr 0))) (_a$7543 (jolt-nth pr 1))) (jolt-invoke _a$7541 _a$7542 _a$7543))))) (_a$7545 acc) (_a$7546 (jolt-get node (keyword #f "pairs")))) (jolt-reduce _a$7544 _a$7545 _a$7546)) (if (jolt= op (keyword #f "let")) (let* ((_a$7551 f) (_a$7552 (let* ((_a$7548 (lambda (a b) (let fnrec7547 ((a a) (b b)) (jolt-invoke f a (jolt-nth b 1))))) (_a$7549 acc) (_a$7550 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$7548 _a$7549 _a$7550))) (_a$7553 (jolt-get node (keyword #f "body")))) (jolt-invoke _a$7551 _a$7552 _a$7553)) (if (jolt= op (keyword #f "loop")) (let* ((_a$7558 f) (_a$7559 (let* ((_a$7555 (lambda (a b) (let fnrec7554 ((a a) (b b)) (jolt-invoke f a (jolt-nth b 1))))) (_a$7556 acc) (_a$7557 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$7555 _a$7556 _a$7557))) (_a$7560 (jolt-get node (keyword #f "body")))) (jolt-invoke _a$7558 _a$7559 _a$7560)) (if (jolt= op (keyword #f "recur")) (jolt-reduce f acc (jolt-get node (keyword #f "args"))) (if (jolt= op (keyword #f "fn")) (let* ((_a$7562 (lambda (a ar) (let fnrec7561 ((a a) (ar ar)) (jolt-invoke f a (jolt-get ar (keyword #f "body")))))) (_a$7563 acc) (_a$7564 (jolt-get node (keyword #f "arities")))) (jolt-reduce _a$7562 _a$7563 _a$7564)) (if (jolt= op (keyword #f "def")) (let* ((a (if (jolt-truthy? (jolt-get node (keyword #f "init"))) (jolt-invoke f acc (jolt-get node (keyword #f "init"))) acc))) (if (jolt-truthy? (jolt-get node (keyword #f "meta-expr"))) (jolt-invoke f a (jolt-get node (keyword #f "meta-expr"))) a)) (if (jolt= op (keyword #f "host-call")) (let* ((_a$7565 f) (_a$7566 (jolt-invoke f acc (jolt-get node (keyword #f "target")))) (_a$7567 (jolt-get node (keyword #f "args")))) (jolt-reduce _a$7565 _a$7566 _a$7567)) (if (jolt= op (keyword #f "host-new")) (jolt-reduce f acc (jolt-get node (keyword #f "args"))) (if (jolt= op (keyword #f "try")) (let* ((a (jolt-invoke f acc (jolt-get node (keyword #f "body")))) (a (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-invoke f a (jolt-get node (keyword #f "catch-body"))) a)) (a (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-invoke f a (jolt-get node (keyword #f "finally"))) a))) a) (if (jolt-truthy? (keyword #f "else")) acc jolt-nil)))))))))))))))))))))))))) reduce-ir-children))) (guard (e (#t #f)) (declare-var! "jolt.analyzer" "analyze")) (guard (e (#t #f)) - (def-var-with-meta! "jolt.analyzer" "handled" (let* ((_o$7563 "quote") (_o$7564 "if") (_o$7565 "do") (_o$7566 "def") (_o$7567 "fn*") (_o$7568 "let*") (_o$7569 "loop*") (_o$7570 "recur") (_o$7571 "throw") (_o$7572 "try") (_o$7573 "syntax-quote") (_o$7574 "var") (_o$7575 "letfn") (_o$7576 "set!") (_o$7577 "defmacro")) (jolt-hash-set _o$7563 _o$7564 _o$7565 _o$7566 _o$7567 _o$7568 _o$7569 _o$7570 _o$7571 _o$7572 _o$7573 _o$7574 _o$7575 _o$7576 _o$7577)) (let* ((_o$7578 (keyword #f "private")) (_o$7579 #t)) (jolt-hash-map _o$7578 _o$7579)))) + (def-var-with-meta! "jolt.analyzer" "handled" (let* ((_o$7568 "quote") (_o$7569 "if") (_o$7570 "do") (_o$7571 "def") (_o$7572 "fn*") (_o$7573 "let*") (_o$7574 "loop*") (_o$7575 "recur") (_o$7576 "throw") (_o$7577 "try") (_o$7578 "syntax-quote") (_o$7579 "var") (_o$7580 "letfn") (_o$7581 "set!") (_o$7582 "defmacro")) (jolt-hash-set _o$7568 _o$7569 _o$7570 _o$7571 _o$7572 _o$7573 _o$7574 _o$7575 _o$7576 _o$7577 _o$7578 _o$7579 _o$7580 _o$7581 _o$7582)) (let* ((_o$7583 (keyword #f "private")) (_o$7584 #t)) (jolt-hash-map _o$7583 _o$7584)))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "uncompilable" (letrec ((uncompilable (lambda (why) (let fnrec7580 ((why why)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt/uncompilable: " why)))))) uncompilable))) + (def-var! "jolt.analyzer" "uncompilable" (letrec ((uncompilable (lambda (why) (let fnrec7585 ((why why)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt/uncompilable: " why)))))) uncompilable))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.analyzer" "gensym-counter" (jolt-invoke (var-deref "clojure.core" "atom") 0) (let* ((_o$7581 (keyword #f "private")) (_o$7582 #t)) (jolt-hash-map _o$7581 _o$7582)))) + (def-var-with-meta! "jolt.analyzer" "gensym-counter" (jolt-invoke (var-deref "clojure.core" "atom") 0) (let* ((_o$7586 (keyword #f "private")) (_o$7587 #t)) (jolt-hash-map _o$7586 _o$7587)))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "gen-name" (letrec ((gen-name (lambda (prefix) (let fnrec7583 ((prefix prefix)) (let* ((n (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.analyzer" "gensym-counter")))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.analyzer" "gensym-counter") jolt-inc) (jolt-invoke (var-deref "clojure.core" "str") "_r$" prefix n))))))) gen-name))) + (def-var! "jolt.analyzer" "gen-name" (letrec ((gen-name (lambda (prefix) (let fnrec7588 ((prefix prefix)) (let* ((n (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.analyzer" "gensym-counter")))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.analyzer" "gensym-counter") jolt-inc) (jolt-invoke (var-deref "clojure.core" "str") "_r$" prefix n))))))) gen-name))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "empty-env" (letrec ((empty-env (lambda () (let fnrec7584 () (let* ((_o$7585 (keyword #f "locals")) (_o$7586 (jolt-hash-set)) (_o$7587 (keyword #f "hints")) (_o$7588 (jolt-hash-map))) (jolt-hash-map _o$7585 _o$7586 _o$7587 _o$7588)))))) empty-env))) + (def-var! "jolt.analyzer" "empty-env" (letrec ((empty-env (lambda () (let fnrec7589 () (let* ((_o$7590 (keyword #f "locals")) (_o$7591 (jolt-hash-set)) (_o$7592 (keyword #f "hints")) (_o$7593 (jolt-hash-map))) (jolt-hash-map _o$7590 _o$7591 _o$7592 _o$7593)))))) empty-env))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "local?" (letrec ((local? (lambda (env nm) (let fnrec7589 ((env env) (nm nm)) (jolt-contains? (jolt-get env (keyword #f "locals")) nm))))) local?))) + (def-var! "jolt.analyzer" "local?" (letrec ((local? (lambda (env nm) (let fnrec7594 ((env env) (nm nm)) (jolt-contains? (jolt-get env (keyword #f "locals")) nm))))) local?))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "add-locals" (letrec ((add-locals (lambda (env names) (let fnrec7590 ((env env) (names names)) (jolt-invoke (var-deref "clojure.core" "update") env (keyword #f "locals") (lambda (p__90_) (let fnrec7591 ((p__90_ p__90_)) (jolt-reduce jolt-conj p__90_ names)))))))) add-locals))) + (def-var! "jolt.analyzer" "add-locals" (letrec ((add-locals (lambda (env names) (let fnrec7595 ((env env) (names names)) (jolt-invoke (var-deref "clojure.core" "update") env (keyword #f "locals") (lambda (p__90_) (let fnrec7596 ((p__90_ p__90_)) (jolt-reduce jolt-conj p__90_ names)))))))) add-locals))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "with-recur" (letrec ((with-recur (lambda (env name) (let fnrec7592 ((env env) (name name)) (jolt-assoc env (keyword #f "recur") name))))) with-recur))) + (def-var! "jolt.analyzer" "with-recur" (letrec ((with-recur (lambda (env name) (let fnrec7597 ((env env) (name name)) (jolt-assoc env (keyword #f "recur") name))))) with-recur))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "hint-of" (letrec ((hint-of (lambda (ctx sym) (let fnrec7593 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-nil? m) jolt-nil (if (jolt-truthy? (jolt-get m (keyword #f "struct"))) (keyword #f "struct") (if (jolt-truthy? (keyword #f "else")) (let* ((t (jolt-get m (keyword #f "tag")))) (if (jolt-truthy? (let* ((and__25__auto t)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "record-type?") ctx t) and__25__auto))) (keyword #f "struct") jolt-nil)) jolt-nil)))))))) hint-of))) + (def-var! "jolt.analyzer" "hint-of" (letrec ((hint-of (lambda (ctx sym) (let fnrec7598 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-nil? m) jolt-nil (if (jolt-truthy? (jolt-get m (keyword #f "struct"))) (keyword #f "struct") (if (jolt-truthy? (keyword #f "else")) (let* ((t (jolt-get m (keyword #f "tag")))) (if (jolt-truthy? (let* ((and__25__auto t)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "record-type?") ctx t) and__25__auto))) (keyword #f "struct") jolt-nil)) jolt-nil)))))))) hint-of))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "add-hint" (letrec ((add-hint (lambda (env nm h) (let fnrec7594 ((env env) (nm nm) (h h)) (if (jolt-truthy? h) (jolt-assoc env (keyword #f "hints") (jolt-assoc (jolt-get env (keyword #f "hints")) nm h)) env))))) add-hint))) + (def-var! "jolt.analyzer" "add-hint" (letrec ((add-hint (lambda (env nm h) (let fnrec7599 ((env env) (nm nm) (h h)) (if (jolt-truthy? h) (jolt-assoc env (keyword #f "hints") (jolt-assoc (jolt-get env (keyword #f "hints")) nm h)) env))))) add-hint))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "phint-of" (letrec ((phint-of (lambda (ctx sym) (let fnrec7595 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-truthy? m) (let* ((t (jolt-get m (keyword #f "tag")))) (if (jolt-truthy? t) (jolt-invoke (var-deref "jolt.host" "record-ctor-key") ctx t) jolt-nil)) jolt-nil)))))) phint-of))) + (def-var! "jolt.analyzer" "phint-of" (letrec ((phint-of (lambda (ctx sym) (let fnrec7600 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-truthy? m) (let* ((t (jolt-get m (keyword #f "tag")))) (if (jolt-truthy? t) (jolt-invoke (var-deref "jolt.host" "record-ctor-key") ctx t) jolt-nil)) jolt-nil)))))) phint-of))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "tag->nkind" (letrec ((tag->nkind (lambda (t) (let fnrec7596 ((t t)) (let* ((s (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") t)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") t) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") t)) t (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))) (if (jolt= s "double") (keyword #f "double") (if (jolt= s "long") (keyword #f "long") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))))) tag->nkind))) + (def-var! "jolt.analyzer" "tag->nkind" (letrec ((tag->nkind (lambda (t) (let fnrec7601 ((t t)) (let* ((s (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") t)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") t) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") t)) t (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))) (if (jolt= s "double") (keyword #f "double") (if (jolt= s "long") (keyword #f "long") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))))) tag->nkind))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "nhint-of" (letrec ((nhint-of (lambda (ctx sym) (let fnrec7597 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-truthy? m) (jolt-invoke (var-deref "jolt.analyzer" "tag->nkind") (jolt-get m (keyword #f "tag"))) jolt-nil)))))) nhint-of))) + (def-var! "jolt.analyzer" "nhint-of" (letrec ((nhint-of (lambda (ctx sym) (let fnrec7602 ((ctx ctx) (sym sym)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-sym-meta") sym))) (if (jolt-truthy? m) (jolt-invoke (var-deref "jolt.analyzer" "tag->nkind") (jolt-get m (keyword #f "tag"))) jolt-nil)))))) nhint-of))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "with-ret-nhint" (letrec ((with-ret-nhint (lambda (node kind) (let fnrec7598 ((node node) (kind kind)) (if (jolt-truthy? (let* ((and__25__auto kind)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "arities") (let* ((_a$7600 (var-deref "clojure.core" "mapv")) (_a$7601 (lambda (a) (let fnrec7599 ((a a)) (if (jolt-truthy? (jolt-get a (keyword #f "ret-nhint"))) a (jolt-assoc a (keyword #f "ret-nhint") kind))))) (_a$7602 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$7600 _a$7601 _a$7602))) node))))) with-ret-nhint))) + (def-var! "jolt.analyzer" "with-ret-nhint" (letrec ((with-ret-nhint (lambda (node kind) (let fnrec7603 ((node node) (kind kind)) (if (jolt-truthy? (let* ((and__25__auto kind)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "arities") (let* ((_a$7605 (var-deref "clojure.core" "mapv")) (_a$7606 (lambda (a) (let fnrec7604 ((a a)) (if (jolt-truthy? (jolt-get a (keyword #f "ret-nhint"))) a (jolt-assoc a (keyword #f "ret-nhint") kind))))) (_a$7607 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$7605 _a$7606 _a$7607))) node))))) with-ret-nhint))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-seq" (letrec ((analyze-seq (lambda (ctx forms env) (let fnrec7603 ((ctx ctx) (forms forms) (env env)) (let* ((v (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__91_) (let fnrec7604 ((p__91_ p__91_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__91_ env))) forms)) (n (jolt-count v))) (if (jolt-zero? n) (jolt-invoke (var-deref "jolt.ir" "const") jolt-nil) (if (jolt= 1 n) (jolt-first v) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7605 (var-deref "jolt.ir" "do-node")) (_a$7606 (jolt-invoke (var-deref "clojure.core" "subvec") v 0 (jolt-dec n))) (_a$7607 (jolt-peek v))) (jolt-invoke _a$7605 _a$7606 _a$7607)) jolt-nil)))))))) analyze-seq))) + (def-var! "jolt.analyzer" "analyze-seq" (letrec ((analyze-seq (lambda (ctx forms env) (let fnrec7608 ((ctx ctx) (forms forms) (env env)) (let* ((v (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__91_) (let fnrec7609 ((p__91_ p__91_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__91_ env))) forms)) (n (jolt-count v))) (if (jolt-zero? n) (jolt-invoke (var-deref "jolt.ir" "const") jolt-nil) (if (jolt= 1 n) (jolt-first v) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7610 (var-deref "jolt.ir" "do-node")) (_a$7611 (jolt-invoke (var-deref "clojure.core" "subvec") v 0 (jolt-dec n))) (_a$7612 (jolt-peek v))) (jolt-invoke _a$7610 _a$7611 _a$7612)) jolt-nil)))))))) analyze-seq))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-bindings" (letrec ((analyze-bindings (lambda (ctx bvec env) (let fnrec7608 ((ctx ctx) (bvec bvec) (env env)) (let* ((i 0) (env env) (pairs (jolt-vector))) (let loop7609 ((i i) (env env) (pairs pairs)) (if (< i (jolt-count bvec)) (let* ((bsym (jolt-nth bvec i))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") bsym)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring binding") jolt-nil) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") bsym)) (init (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth bvec (jolt-inc i)) env))) (let* ((_a$7616 (+ i 2)) (_a$7617 (let* ((_a$7610 (var-deref "jolt.analyzer" "add-hint")) (_a$7611 (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env (jolt-vector nm))) (_a$7612 nm) (_a$7613 (jolt-invoke (var-deref "jolt.analyzer" "hint-of") ctx bsym))) (jolt-invoke _a$7610 _a$7611 _a$7612 _a$7613))) (_a$7618 (jolt-conj pairs (let* ((_o$7614 nm) (_o$7615 init)) (jolt-vector _o$7614 _o$7615))))) (loop7609 _a$7616 _a$7617 _a$7618))))) (let* ((_o$7619 pairs) (_o$7620 env)) (jolt-vector _o$7619 _o$7620))))))))) analyze-bindings))) + (def-var! "jolt.analyzer" "analyze-bindings" (letrec ((analyze-bindings (lambda (ctx bvec env) (let fnrec7613 ((ctx ctx) (bvec bvec) (env env)) (let* ((i 0) (env env) (pairs (jolt-vector))) (let loop7614 ((i i) (env env) (pairs pairs)) (if (< i (jolt-count bvec)) (let* ((bsym (jolt-nth bvec i))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") bsym)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring binding") jolt-nil) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") bsym)) (init (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth bvec (jolt-inc i)) env))) (let* ((_a$7621 (+ i 2)) (_a$7622 (let* ((_a$7615 (var-deref "jolt.analyzer" "add-hint")) (_a$7616 (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env (jolt-vector nm))) (_a$7617 nm) (_a$7618 (jolt-invoke (var-deref "jolt.analyzer" "hint-of") ctx bsym))) (jolt-invoke _a$7615 _a$7616 _a$7617 _a$7618))) (_a$7623 (jolt-conj pairs (let* ((_o$7619 nm) (_o$7620 init)) (jolt-vector _o$7619 _o$7620))))) (loop7614 _a$7621 _a$7622 _a$7623))))) (let* ((_o$7624 pairs) (_o$7625 env)) (jolt-vector _o$7624 _o$7625))))))))) analyze-bindings))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "parse-params" (letrec ((parse-params (lambda (ctx pvec) (let fnrec7621 ((ctx ctx) (pvec pvec)) (let* ((i 0) (fixed (jolt-vector)) (rest-name jolt-nil) (hints (jolt-vector)) (phints (jolt-vector)) (nhints (jolt-vector))) (let loop7622 ((i i) (fixed fixed) (rest-name rest-name) (hints hints) (phints phints) (nhints nhints)) (if (< i (jolt-count pvec)) (let* ((p (jolt-nth pvec i))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") p)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring fn param") jolt-nil) (if (jolt= "&" (jolt-invoke (var-deref "jolt.host" "form-sym-name") p)) (let* ((r (jolt-nth pvec (jolt-inc i)))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") r)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring fn rest") jolt-nil) (let* ((_a$7623 (+ i 2)) (_a$7624 fixed) (_a$7625 (jolt-invoke (var-deref "jolt.host" "form-sym-name") r)) (_a$7626 hints) (_a$7627 phints) (_a$7628 nhints)) (loop7622 _a$7623 _a$7624 _a$7625 _a$7626 _a$7627 _a$7628)))) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") p)) (h (jolt-invoke (var-deref "jolt.analyzer" "hint-of") ctx p)) (ph (jolt-invoke (var-deref "jolt.analyzer" "phint-of") ctx p)) (nh (jolt-invoke (var-deref "jolt.analyzer" "nhint-of") ctx p))) (let* ((_a$7635 (jolt-inc i)) (_a$7636 (jolt-conj fixed nm)) (_a$7637 rest-name) (_a$7638 (if (jolt-truthy? h) (jolt-conj hints (let* ((_o$7629 nm) (_o$7630 h)) (jolt-vector _o$7629 _o$7630))) hints)) (_a$7639 (if (jolt-truthy? ph) (jolt-conj phints (let* ((_o$7631 nm) (_o$7632 ph)) (jolt-vector _o$7631 _o$7632))) phints)) (_a$7640 (if (jolt-truthy? nh) (jolt-conj nhints (let* ((_o$7633 nm) (_o$7634 nh)) (jolt-vector _o$7633 _o$7634))) nhints))) (loop7622 _a$7635 _a$7636 _a$7637 _a$7638 _a$7639 _a$7640)))))) (let* ((_o$7641 (keyword #f "fixed")) (_o$7642 fixed) (_o$7643 (keyword #f "rest")) (_o$7644 rest-name) (_o$7645 (keyword #f "hints")) (_o$7646 hints) (_o$7647 (keyword #f "phints")) (_o$7648 phints) (_o$7649 (keyword #f "nhints")) (_o$7650 nhints)) (jolt-hash-map _o$7641 _o$7642 _o$7643 _o$7644 _o$7645 _o$7646 _o$7647 _o$7648 _o$7649 _o$7650))))))))) parse-params))) + (def-var! "jolt.analyzer" "parse-params" (letrec ((parse-params (lambda (ctx pvec) (let fnrec7626 ((ctx ctx) (pvec pvec)) (let* ((i 0) (fixed (jolt-vector)) (rest-name jolt-nil) (hints (jolt-vector)) (phints (jolt-vector)) (nhints (jolt-vector))) (let loop7627 ((i i) (fixed fixed) (rest-name rest-name) (hints hints) (phints phints) (nhints nhints)) (if (< i (jolt-count pvec)) (let* ((p (jolt-nth pvec i))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") p)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring fn param") jolt-nil) (if (jolt= "&" (jolt-invoke (var-deref "jolt.host" "form-sym-name") p)) (let* ((r (jolt-nth pvec (jolt-inc i)))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") r)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "destructuring fn rest") jolt-nil) (let* ((_a$7628 (+ i 2)) (_a$7629 fixed) (_a$7630 (jolt-invoke (var-deref "jolt.host" "form-sym-name") r)) (_a$7631 hints) (_a$7632 phints) (_a$7633 nhints)) (loop7627 _a$7628 _a$7629 _a$7630 _a$7631 _a$7632 _a$7633)))) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") p)) (h (jolt-invoke (var-deref "jolt.analyzer" "hint-of") ctx p)) (ph (jolt-invoke (var-deref "jolt.analyzer" "phint-of") ctx p)) (nh (jolt-invoke (var-deref "jolt.analyzer" "nhint-of") ctx p))) (let* ((_a$7640 (jolt-inc i)) (_a$7641 (jolt-conj fixed nm)) (_a$7642 rest-name) (_a$7643 (if (jolt-truthy? h) (jolt-conj hints (let* ((_o$7634 nm) (_o$7635 h)) (jolt-vector _o$7634 _o$7635))) hints)) (_a$7644 (if (jolt-truthy? ph) (jolt-conj phints (let* ((_o$7636 nm) (_o$7637 ph)) (jolt-vector _o$7636 _o$7637))) phints)) (_a$7645 (if (jolt-truthy? nh) (jolt-conj nhints (let* ((_o$7638 nm) (_o$7639 nh)) (jolt-vector _o$7638 _o$7639))) nhints))) (loop7627 _a$7640 _a$7641 _a$7642 _a$7643 _a$7644 _a$7645)))))) (let* ((_o$7646 (keyword #f "fixed")) (_o$7647 fixed) (_o$7648 (keyword #f "rest")) (_o$7649 rest-name) (_o$7650 (keyword #f "hints")) (_o$7651 hints) (_o$7652 (keyword #f "phints")) (_o$7653 phints) (_o$7654 (keyword #f "nhints")) (_o$7655 nhints)) (jolt-hash-map _o$7646 _o$7647 _o$7648 _o$7649 _o$7650 _o$7651 _o$7652 _o$7653 _o$7654 _o$7655))))))))) parse-params))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "uniquify-params" (letrec ((uniquify-params (lambda (names) (let fnrec7651 ((names names)) (let* ((n (jolt-count names))) (let* ((i 0) (out (jolt-vector))) (let loop7652 ((i i) (out out)) (if (< i n) (let* ((nm (jolt-nth names i)) (dup? (let* ((j (jolt-inc i))) (let loop7653 ((j j)) (if (>= j n) #f (if (jolt= nm (jolt-nth names j)) #t (if (jolt-truthy? (keyword #f "else")) (loop7653 (jolt-inc j)) jolt-nil))))))) (let* ((_a$7654 (jolt-inc i)) (_a$7655 (jolt-conj out (if (jolt-truthy? dup?) (jolt-invoke (var-deref "jolt.analyzer" "gen-name") (jolt-invoke (var-deref "clojure.core" "str") nm "_")) nm)))) (loop7652 _a$7654 _a$7655))) out)))))))) uniquify-params))) + (def-var! "jolt.analyzer" "uniquify-params" (letrec ((uniquify-params (lambda (names) (let fnrec7656 ((names names)) (let* ((n (jolt-count names))) (let* ((i 0) (out (jolt-vector))) (let loop7657 ((i i) (out out)) (if (< i n) (let* ((nm (jolt-nth names i)) (dup? (let* ((j (jolt-inc i))) (let loop7658 ((j j)) (if (>= j n) #f (if (jolt= nm (jolt-nth names j)) #t (if (jolt-truthy? (keyword #f "else")) (loop7658 (jolt-inc j)) jolt-nil))))))) (let* ((_a$7659 (jolt-inc i)) (_a$7660 (jolt-conj out (if (jolt-truthy? dup?) (jolt-invoke (var-deref "jolt.analyzer" "gen-name") (jolt-invoke (var-deref "clojure.core" "str") nm "_")) nm)))) (loop7657 _a$7659 _a$7660))) out)))))))) uniquify-params))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-arity" (letrec ((analyze-arity (lambda (ctx pvec body env fn-name) (let fnrec7656 ((ctx ctx) (pvec pvec) (body body) (env env) (fn-name fn-name)) (let* ((pp (jolt-invoke (var-deref "jolt.analyzer" "parse-params") ctx (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") pvec)))) (fixed (jolt-invoke (var-deref "jolt.analyzer" "uniquify-params") (jolt-get pp (keyword #f "fixed")))) (rst (jolt-get pp (keyword #f "rest"))) (rname (jolt-invoke (var-deref "jolt.analyzer" "gen-name") (let* ((_a$7657 (var-deref "clojure.core" "str")) (_a$7658 (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (_a$7659 "/") (_a$7660 (let* ((or__26__auto fn-name)) (if (jolt-truthy? or__26__auto) or__26__auto "fn"))) (_a$7661 "--")) (jolt-invoke _a$7657 _a$7658 _a$7659 _a$7660 _a$7661)))) (names (let* ((G__140 (jolt-invoke (var-deref "clojure.core" "vec") fixed))) (let* ((G__141 (if (jolt-truthy? rst) (jolt-conj G__140 rst) G__140))) (let* ((G__142 (if (jolt-truthy? fn-name) (jolt-conj G__141 fn-name) G__141))) G__142)))) (env0 (jolt-invoke (var-deref "jolt.analyzer" "with-recur") (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env names) rname)) (env* (let* ((_a$7667 (lambda (e pr) (let fnrec7662 ((e e) (pr pr)) (let* ((_a$7663 (var-deref "jolt.analyzer" "add-hint")) (_a$7664 e) (_a$7665 (jolt-nth pr 0)) (_a$7666 (jolt-nth pr 1))) (jolt-invoke _a$7663 _a$7664 _a$7665 _a$7666))))) (_a$7668 env0) (_a$7669 (jolt-get pp (keyword #f "hints")))) (jolt-reduce _a$7667 _a$7668 _a$7669))) (arity (let* ((_o$7670 (keyword #f "params")) (_o$7671 fixed) (_o$7672 (keyword #f "recur-name")) (_o$7673 rname) (_o$7674 (keyword #f "body")) (_o$7675 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx body env*))) (jolt-hash-map _o$7670 _o$7671 _o$7672 _o$7673 _o$7674 _o$7675))) (arity (if (jolt-truthy? (jolt-seq (jolt-get pp (keyword #f "phints")))) (jolt-assoc arity (keyword #f "phints") (jolt-get pp (keyword #f "phints"))) arity)) (arity (if (jolt-truthy? (jolt-seq (jolt-get pp (keyword #f "nhints")))) (jolt-assoc arity (keyword #f "nhints") (jolt-get pp (keyword #f "nhints"))) arity))) (if (jolt-truthy? rst) (jolt-assoc arity (keyword #f "rest") rst) arity)))))) analyze-arity))) + (def-var! "jolt.analyzer" "analyze-arity" (letrec ((analyze-arity (lambda (ctx pvec body env fn-name) (let fnrec7661 ((ctx ctx) (pvec pvec) (body body) (env env) (fn-name fn-name)) (let* ((pp (jolt-invoke (var-deref "jolt.analyzer" "parse-params") ctx (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") pvec)))) (fixed (jolt-invoke (var-deref "jolt.analyzer" "uniquify-params") (jolt-get pp (keyword #f "fixed")))) (rst (jolt-get pp (keyword #f "rest"))) (rname (jolt-invoke (var-deref "jolt.analyzer" "gen-name") (let* ((_a$7662 (var-deref "clojure.core" "str")) (_a$7663 (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (_a$7664 "/") (_a$7665 (let* ((or__26__auto fn-name)) (if (jolt-truthy? or__26__auto) or__26__auto "fn"))) (_a$7666 "--")) (jolt-invoke _a$7662 _a$7663 _a$7664 _a$7665 _a$7666)))) (names (let* ((G__140 (jolt-invoke (var-deref "clojure.core" "vec") fixed))) (let* ((G__141 (if (jolt-truthy? rst) (jolt-conj G__140 rst) G__140))) (let* ((G__142 (if (jolt-truthy? fn-name) (jolt-conj G__141 fn-name) G__141))) G__142)))) (env0 (jolt-invoke (var-deref "jolt.analyzer" "with-recur") (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env names) rname)) (env* (let* ((_a$7672 (lambda (e pr) (let fnrec7667 ((e e) (pr pr)) (let* ((_a$7668 (var-deref "jolt.analyzer" "add-hint")) (_a$7669 e) (_a$7670 (jolt-nth pr 0)) (_a$7671 (jolt-nth pr 1))) (jolt-invoke _a$7668 _a$7669 _a$7670 _a$7671))))) (_a$7673 env0) (_a$7674 (jolt-get pp (keyword #f "hints")))) (jolt-reduce _a$7672 _a$7673 _a$7674))) (arity (let* ((_o$7675 (keyword #f "params")) (_o$7676 fixed) (_o$7677 (keyword #f "recur-name")) (_o$7678 rname) (_o$7679 (keyword #f "body")) (_o$7680 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx body env*))) (jolt-hash-map _o$7675 _o$7676 _o$7677 _o$7678 _o$7679 _o$7680))) (arity (if (jolt-truthy? (jolt-seq (jolt-get pp (keyword #f "phints")))) (jolt-assoc arity (keyword #f "phints") (jolt-get pp (keyword #f "phints"))) arity)) (arity (if (jolt-truthy? (jolt-seq (jolt-get pp (keyword #f "nhints")))) (jolt-assoc arity (keyword #f "nhints") (jolt-get pp (keyword #f "nhints"))) arity))) (if (jolt-truthy? rst) (jolt-assoc arity (keyword #f "rest") rst) arity)))))) analyze-arity))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "strip-arglist-meta" (letrec ((strip-arglist-meta (lambda (form) (let fnrec7676 ((form form)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") form)) (let* ((es (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") form)))) (if (jolt-truthy? (let* ((and__25__auto (jolt= 3 (jolt-count es)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-first es)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "with-meta" (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first es))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-vec?") (jolt-nth es 1)) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-nth es 1) form)) form))))) strip-arglist-meta))) + (def-var! "jolt.analyzer" "strip-arglist-meta" (letrec ((strip-arglist-meta (lambda (form) (let fnrec7681 ((form form)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") form)) (let* ((es (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") form)))) (if (jolt-truthy? (let* ((and__25__auto (jolt= 3 (jolt-count es)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-first es)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "with-meta" (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first es))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-vec?") (jolt-nth es 1)) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-nth es 1) form)) form))))) strip-arglist-meta))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-fn" (letrec ((analyze-fn (lambda (ctx items env) (let fnrec7677 ((ctx ctx) (items items) (env env)) (let* ((named (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth items 1))) (fn-name (if (jolt-truthy? named) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth items 1)) jolt-nil)) (rest-items (if (jolt-truthy? named) (jolt-drop 2 items) (jolt-drop 1 items))) (first* (jolt-invoke (var-deref "jolt.analyzer" "strip-arglist-meta") (jolt-first rest-items)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-vec?") first*)) (jolt-invoke (var-deref "jolt.ir" "fn-node") fn-name (jolt-vector (jolt-invoke (var-deref "jolt.analyzer" "analyze-arity") ctx first* (jolt-rest rest-items) env fn-name))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") first*)) (jolt-invoke (var-deref "jolt.ir" "fn-node") fn-name (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (clause) (let fnrec7678 ((clause clause)) (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") clause)))) (let* ((_a$7679 (var-deref "jolt.analyzer" "analyze-arity")) (_a$7680 ctx) (_a$7681 (jolt-invoke (var-deref "jolt.analyzer" "strip-arglist-meta") (jolt-first cl))) (_a$7682 (jolt-rest cl)) (_a$7683 env) (_a$7684 fn-name)) (jolt-invoke _a$7679 _a$7680 _a$7681 _a$7682 _a$7683 _a$7684))))) rest-items)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "fn: bad params") jolt-nil)))))))) analyze-fn))) + (def-var! "jolt.analyzer" "analyze-fn" (letrec ((analyze-fn (lambda (ctx items env) (let fnrec7682 ((ctx ctx) (items items) (env env)) (let* ((named (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth items 1))) (fn-name (if (jolt-truthy? named) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth items 1)) jolt-nil)) (rest-items (if (jolt-truthy? named) (jolt-drop 2 items) (jolt-drop 1 items))) (first* (jolt-invoke (var-deref "jolt.analyzer" "strip-arglist-meta") (jolt-first rest-items)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-vec?") first*)) (jolt-invoke (var-deref "jolt.ir" "fn-node") fn-name (jolt-vector (jolt-invoke (var-deref "jolt.analyzer" "analyze-arity") ctx first* (jolt-rest rest-items) env fn-name))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") first*)) (jolt-invoke (var-deref "jolt.ir" "fn-node") fn-name (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (clause) (let fnrec7683 ((clause clause)) (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") clause)))) (let* ((_a$7684 (var-deref "jolt.analyzer" "analyze-arity")) (_a$7685 ctx) (_a$7686 (jolt-invoke (var-deref "jolt.analyzer" "strip-arglist-meta") (jolt-first cl))) (_a$7687 (jolt-rest cl)) (_a$7688 env) (_a$7689 fn-name)) (jolt-invoke _a$7684 _a$7685 _a$7686 _a$7687 _a$7688 _a$7689))))) rest-items)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "fn: bad params") jolt-nil)))))))) analyze-fn))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.analyzer" "catch-all-names" (let* ((_o$7685 "Throwable") (_o$7686 "java.lang.Throwable") (_o$7687 "Object") (_o$7688 "java.lang.Object")) (jolt-hash-set _o$7685 _o$7686 _o$7687 _o$7688)) (let* ((_o$7689 (keyword #f "private")) (_o$7690 #t)) (jolt-hash-map _o$7689 _o$7690)))) + (def-var-with-meta! "jolt.analyzer" "catch-all-names" (let* ((_o$7690 "Throwable") (_o$7691 "java.lang.Throwable") (_o$7692 "Object") (_o$7693 "java.lang.Object")) (jolt-hash-set _o$7690 _o$7691 _o$7692 _o$7693)) (let* ((_o$7694 (keyword #f "private")) (_o$7695 #t)) (jolt-hash-map _o$7694 _o$7695)))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-try" (letrec ((analyze-try (lambda (ctx items env) (let fnrec7691 ((ctx ctx) (items items) (env env)) (let* ((clauses (jolt-rest items)) (body (jolt-invoke (var-deref "clojure.core" "atom") (jolt-vector))) (catches (jolt-invoke (var-deref "clojure.core" "atom") (jolt-vector))) (finally-body (jolt-invoke (var-deref "clojure.core" "atom") jolt-nil))) (begin (begin (jolt-count (jolt-map (lambda (c) (let fnrec7692 ((c c)) (begin (let* ((head (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") c)) (jolt-first (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c))) jolt-nil)) (hname (if (jolt-truthy? (let* ((and__25__auto head)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") head) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") head) jolt-nil))) (if (jolt= hname "catch") (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c)))) (begin (if (jolt-truthy? (let* ((or__26__auto (< (jolt-count cl) 3))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth cl 2)))))) (jolt-throw "Unable to parse catch clause; expected (catch class binding body*)") jolt-nil) (jolt-invoke (var-deref "clojure.core" "swap!") catches jolt-conj cl))) (if (jolt= hname "finally") (jolt-invoke (var-deref "clojure.core" "reset!") finally-body (jolt-rest (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c)))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "swap!") body jolt-conj c) jolt-nil)))) jolt-nil))) clauses)) jolt-nil) (let* ((n (let* ((_o$7693 (keyword #f "op")) (_o$7694 (keyword #f "try")) (_o$7695 (keyword #f "body")) (_o$7696 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-invoke (var-deref "clojure.core" "deref") body) env))) (jolt-hash-map _o$7693 _o$7694 _o$7695 _o$7696))) (n (if (jolt-truthy? (jolt-seq (jolt-invoke (var-deref "clojure.core" "deref") catches))) (let* ((evar-name (jolt-invoke (var-deref "jolt.analyzer" "gen-name") "catch")) (evar (jolt-invoke (var-deref "clojure.core" "symbol") evar-name)) (dispatch (let* ((_a$7701 (lambda (_else cl) (let fnrec7697 ((_else _else) (cl cl)) (let* ((cform (jolt-nth cl 1)) (bindsym (jolt-nth cl 2)) (bodyf (jolt-drop 3 cl)) (letform (jolt-cons (jolt-symbol #f "let") (jolt-cons (jolt-vector bindsym evar) bodyf))) (fullname (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") cform)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") cform) jolt-nil)) (catch-all? (let* ((or__26__auto (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") cform)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-contains? (var-deref "jolt.analyzer" "catch-all-names") fullname))))) (if (jolt-truthy? catch-all?) letform (jolt-list (jolt-symbol #f "if") (let* ((_a$7698 (jolt-symbol #f "or")) (_a$7699 (jolt-list (jolt-symbol #f "instance?") cform evar)) (_a$7700 (jolt-list (jolt-symbol #f "__catch-broad?") fullname evar))) (jolt-list _a$7698 _a$7699 _a$7700)) letform _else)))))) (_a$7702 (jolt-list (jolt-symbol #f "throw") evar)) (_a$7703 (jolt-reverse (jolt-invoke (var-deref "clojure.core" "deref") catches)))) (jolt-reduce _a$7701 _a$7702 _a$7703)))) (jolt-assoc n (keyword #f "catch-sym") evar-name (keyword #f "catch-body") (let* ((_a$7704 (var-deref "jolt.analyzer" "analyze-seq")) (_a$7705 ctx) (_a$7706 (jolt-list dispatch)) (_a$7707 (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env (jolt-vector evar-name)))) (jolt-invoke _a$7704 _a$7705 _a$7706 _a$7707)))) n)) (n (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "deref") finally-body)) (jolt-assoc n (keyword #f "finally") (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-invoke (var-deref "clojure.core" "deref") finally-body) env)) n))) n))))))) analyze-try))) + (def-var! "jolt.analyzer" "analyze-try" (letrec ((analyze-try (lambda (ctx items env) (let fnrec7696 ((ctx ctx) (items items) (env env)) (let* ((clauses (jolt-rest items)) (body (jolt-invoke (var-deref "clojure.core" "atom") (jolt-vector))) (catches (jolt-invoke (var-deref "clojure.core" "atom") (jolt-vector))) (finally-body (jolt-invoke (var-deref "clojure.core" "atom") jolt-nil))) (begin (begin (jolt-count (jolt-map (lambda (c) (let fnrec7697 ((c c)) (begin (let* ((head (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") c)) (jolt-first (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c))) jolt-nil)) (hname (if (jolt-truthy? (let* ((and__25__auto head)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") head) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") head) jolt-nil))) (if (jolt= hname "catch") (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c)))) (begin (if (let* ((or__26__auto (< (jolt-count cl) 3))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth cl 2))))) (jolt-throw "Unable to parse catch clause; expected (catch class binding body*)") jolt-nil) (jolt-invoke (var-deref "clojure.core" "swap!") catches jolt-conj cl))) (if (jolt= hname "finally") (jolt-invoke (var-deref "clojure.core" "reset!") finally-body (jolt-rest (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") c)))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "swap!") body jolt-conj c) jolt-nil)))) jolt-nil))) clauses)) jolt-nil) (let* ((n (let* ((_o$7698 (keyword #f "op")) (_o$7699 (keyword #f "try")) (_o$7700 (keyword #f "body")) (_o$7701 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-invoke (var-deref "clojure.core" "deref") body) env))) (jolt-hash-map _o$7698 _o$7699 _o$7700 _o$7701))) (n (if (jolt-truthy? (jolt-seq (jolt-invoke (var-deref "clojure.core" "deref") catches))) (let* ((evar-name (jolt-invoke (var-deref "jolt.analyzer" "gen-name") "catch")) (evar (jolt-invoke (var-deref "clojure.core" "symbol") evar-name)) (dispatch (let* ((_a$7706 (lambda (_else cl) (let fnrec7702 ((_else _else) (cl cl)) (let* ((cform (jolt-nth cl 1)) (bindsym (jolt-nth cl 2)) (bodyf (jolt-drop 3 cl)) (letform (jolt-cons (jolt-symbol #f "let") (jolt-cons (jolt-vector bindsym evar) bodyf))) (fullname (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") cform)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") cform) jolt-nil)) (catch-all? (let* ((or__26__auto (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") cform)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-contains? (var-deref "jolt.analyzer" "catch-all-names") fullname))))) (if (jolt-truthy? catch-all?) letform (jolt-list (jolt-symbol #f "if") (let* ((_a$7703 (jolt-symbol #f "or")) (_a$7704 (jolt-list (jolt-symbol #f "instance?") cform evar)) (_a$7705 (jolt-list (jolt-symbol #f "__catch-broad?") fullname evar))) (jolt-list _a$7703 _a$7704 _a$7705)) letform _else)))))) (_a$7707 (jolt-list (jolt-symbol #f "throw") evar)) (_a$7708 (jolt-reverse (jolt-invoke (var-deref "clojure.core" "deref") catches)))) (jolt-reduce _a$7706 _a$7707 _a$7708)))) (jolt-assoc n (keyword #f "catch-sym") evar-name (keyword #f "catch-body") (let* ((_a$7709 (var-deref "jolt.analyzer" "analyze-seq")) (_a$7710 ctx) (_a$7711 (jolt-list dispatch)) (_a$7712 (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env (jolt-vector evar-name)))) (jolt-invoke _a$7709 _a$7710 _a$7711 _a$7712)))) n)) (n (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "deref") finally-body)) (jolt-assoc n (keyword #f "finally") (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-invoke (var-deref "clojure.core" "deref") finally-body) env)) n))) n))))))) analyze-try))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-letfn" (letrec ((analyze-letfn (lambda (ctx items env) (let fnrec7708 ((ctx ctx) (items items) (env env)) (let* ((specs (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (names (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__92_) (let fnrec7709 ((p__92_ p__92_)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") p__92_)))))) specs)) (env* (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env names)) (binds (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (spec) (let fnrec7710 ((spec spec)) (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") spec)))) (let* ((_o$7711 (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first cl))) (_o$7712 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-cons (jolt-invoke (var-deref "clojure.core" "symbol") "fn") cl) env*))) (jolt-vector _o$7711 _o$7712))))) specs))) (let* ((_o$7713 (keyword #f "op")) (_o$7714 (keyword #f "let")) (_o$7715 (keyword #f "letrec")) (_o$7716 #t) (_o$7717 (keyword #f "bindings")) (_o$7718 binds) (_o$7719 (keyword #f "body")) (_o$7720 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-drop 2 items) env*))) (jolt-hash-map _o$7713 _o$7714 _o$7715 _o$7716 _o$7717 _o$7718 _o$7719 _o$7720))))))) analyze-letfn))) + (def-var! "jolt.analyzer" "analyze-letfn" (letrec ((analyze-letfn (lambda (ctx items env) (let fnrec7713 ((ctx ctx) (items items) (env env)) (let* ((specs (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (names (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__92_) (let fnrec7714 ((p__92_ p__92_)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") p__92_)))))) specs)) (env* (jolt-invoke (var-deref "jolt.analyzer" "add-locals") env names)) (binds (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (spec) (let fnrec7715 ((spec spec)) (let* ((cl (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") spec)))) (let* ((_o$7716 (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first cl))) (_o$7717 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-cons (jolt-invoke (var-deref "clojure.core" "symbol") "fn") cl) env*))) (jolt-vector _o$7716 _o$7717))))) specs))) (let* ((_o$7718 (keyword #f "op")) (_o$7719 (keyword #f "let")) (_o$7720 (keyword #f "letrec")) (_o$7721 #t) (_o$7722 (keyword #f "bindings")) (_o$7723 binds) (_o$7724 (keyword #f "body")) (_o$7725 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-drop 2 items) env*))) (jolt-hash-map _o$7718 _o$7719 _o$7720 _o$7721 _o$7722 _o$7723 _o$7724 _o$7725))))))) analyze-letfn))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "field-head?" (letrec ((field-head? (lambda (nm) (let fnrec7721 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 2))) (if (jolt-truthy? and__25__auto) (jolt= ".-" (jolt-invoke (var-deref "clojure.core" "subs") nm 0 2)) and__25__auto)))))) field-head?))) + (def-var! "jolt.analyzer" "field-head?" (letrec ((field-head? (lambda (nm) (let fnrec7726 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 2))) (if (jolt-truthy? and__25__auto) (jolt= ".-" (jolt-invoke (var-deref "clojure.core" "subs") nm 0 2)) and__25__auto)))))) field-head?))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "def-meta-expr" (letrec ((def-meta-expr (lambda (ctx base env) (let fnrec7722 ((ctx ctx) (base base) (env env)) (if (jolt-pos? (jolt-count base)) (jolt-invoke (var-deref "jolt.ir" "map-node") (let* ((_a$7726 (var-deref "clojure.core" "mapv")) (_a$7727 (lambda (p) (let fnrec7723 ((p p)) (let* ((k (jolt-first p)) (v (jolt-invoke (var-deref "clojure.core" "second") p))) (let* ((_o$7724 (jolt-invoke (var-deref "jolt.ir" "const") k)) (_o$7725 (if (jolt= k (keyword #f "tag")) (jolt-invoke (var-deref "jolt.ir" "quote-node") v) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx v env)))) (jolt-vector _o$7724 _o$7725)))))) (_a$7728 (jolt-seq base))) (jolt-invoke _a$7726 _a$7727 _a$7728))) jolt-nil))))) def-meta-expr))) + (def-var! "jolt.analyzer" "def-meta-expr" (letrec ((def-meta-expr (lambda (ctx base env) (let fnrec7727 ((ctx ctx) (base base) (env env)) (if (jolt-pos? (jolt-count base)) (jolt-invoke (var-deref "jolt.ir" "map-node") (let* ((_a$7731 (var-deref "clojure.core" "mapv")) (_a$7732 (lambda (p) (let fnrec7728 ((p p)) (let* ((k (jolt-first p)) (v (jolt-invoke (var-deref "clojure.core" "second") p))) (let* ((_o$7729 (jolt-invoke (var-deref "jolt.ir" "const") k)) (_o$7730 (if (jolt= k (keyword #f "tag")) (jolt-invoke (var-deref "jolt.ir" "quote-node") v) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx v env)))) (jolt-vector _o$7729 _o$7730)))))) (_a$7733 (jolt-seq base))) (jolt-invoke _a$7731 _a$7732 _a$7733))) jolt-nil))))) def-meta-expr))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-def" (letrec ((analyze-def (lambda (ctx items env) (let fnrec7729 ((ctx ctx) (items items) (env env)) (let* ((name-sym (jolt-nth items 1))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") name-sym)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "def name with map metadata") jolt-nil) (if (< (jolt-count items) 3) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((_o$7730 (keyword #f "op")) (_o$7731 (keyword #f "def")) (_o$7732 (keyword #f "ns")) (_o$7733 cur) (_o$7734 (keyword #f "name")) (_o$7735 nm) (_o$7736 (keyword #f "no-init")) (_o$7737 #t)) (jolt-hash-map _o$7730 _o$7731 _o$7732 _o$7733 _o$7734 _o$7735 _o$7736 _o$7737)))) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (has-doc (let* ((and__25__auto (> (jolt-count items) 3))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "string?") (jolt-nth items 2)) and__25__auto))) (val-form (jolt-nth items (if (jolt-truthy? has-doc) 3 2))) (base0 (let* ((or__26__auto (jolt-invoke (var-deref "jolt.host" "form-sym-meta") name-sym))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-hash-map)))) (tag (jolt-get base0 (keyword #f "tag"))) (tag-name (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") tag)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") tag) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") tag)) tag (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))) (base-meta (if (jolt-truthy? tag-name) (let* ((c (jolt-invoke (var-deref "jolt.host" "resolve-class-hint") tag-name))) (if (jolt-truthy? c) (jolt-assoc base0 (keyword #f "tag") c) base0)) base0)) (node-meta (if (jolt-truthy? has-doc) (jolt-assoc base-meta (keyword #f "doc") (jolt-nth items 2)) base-meta))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((node (jolt-invoke (var-deref "jolt.ir" "def-node") cur nm (let* ((_a$7738 (var-deref "jolt.analyzer" "with-ret-nhint")) (_a$7739 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx val-form env)) (_a$7740 (jolt-invoke (var-deref "jolt.analyzer" "tag->nkind") tag))) (jolt-invoke _a$7738 _a$7739 _a$7740)) node-meta)) (me (jolt-invoke (var-deref "jolt.analyzer" "def-meta-expr") ctx node-meta env))) (if (jolt-truthy? me) (jolt-assoc node (keyword #f "meta-expr") me) node))))))))))) analyze-def))) + (def-var! "jolt.analyzer" "analyze-def" (letrec ((analyze-def (lambda (ctx items env) (let fnrec7734 ((ctx ctx) (items items) (env env)) (let* ((name-sym (jolt-nth items 1))) (begin (if (jolt-not (jolt-invoke (var-deref "jolt.host" "form-sym?") name-sym)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "def name with map metadata") jolt-nil) (if (< (jolt-count items) 3) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((_o$7735 (keyword #f "op")) (_o$7736 (keyword #f "def")) (_o$7737 (keyword #f "ns")) (_o$7738 cur) (_o$7739 (keyword #f "name")) (_o$7740 nm) (_o$7741 (keyword #f "no-init")) (_o$7742 #t)) (jolt-hash-map _o$7735 _o$7736 _o$7737 _o$7738 _o$7739 _o$7740 _o$7741 _o$7742)))) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (has-doc (let* ((and__25__auto (> (jolt-count items) 3))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "string?") (jolt-nth items 2)) and__25__auto))) (val-form (jolt-nth items (if (jolt-truthy? has-doc) 3 2))) (base0 (let* ((or__26__auto (jolt-invoke (var-deref "jolt.host" "form-sym-meta") name-sym))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-hash-map)))) (tag (jolt-get base0 (keyword #f "tag"))) (tag-name (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") tag)) (jolt-invoke (var-deref "jolt.host" "form-sym-name") tag) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") tag)) tag (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))) (base-meta (if (jolt-truthy? tag-name) (let* ((c (jolt-invoke (var-deref "jolt.host" "resolve-class-hint") tag-name))) (if (jolt-truthy? c) (jolt-assoc base0 (keyword #f "tag") c) base0)) base0)) (node-meta (if (jolt-truthy? has-doc) (jolt-assoc base-meta (keyword #f "doc") (jolt-nth items 2)) base-meta))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((node (jolt-invoke (var-deref "jolt.ir" "def-node") cur nm (let* ((_a$7743 (var-deref "jolt.analyzer" "with-ret-nhint")) (_a$7744 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx val-form env)) (_a$7745 (jolt-invoke (var-deref "jolt.analyzer" "tag->nkind") tag))) (jolt-invoke _a$7743 _a$7744 _a$7745)) node-meta)) (me (jolt-invoke (var-deref "jolt.analyzer" "def-meta-expr") ctx node-meta env))) (if (jolt-truthy? me) (jolt-assoc node (keyword #f "meta-expr") me) node))))))))))) analyze-def))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-set!" (letrec ((analyze-set! (lambda (ctx items env) (let fnrec7741 ((ctx ctx) (items items) (env env)) (let* ((target (jolt-nth items 1)) (val-node (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 2) env)) (ti (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") target)) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") target)) jolt-nil)) (thead (if (jolt-truthy? (let* ((and__25__auto ti)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-pos? (jolt-count ti)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-first ti)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first ti)) jolt-nil))) (if (jolt-truthy? (let* ((and__25__auto thead)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "field-head?") thead) and__25__auto))) (let* ((_o$7742 (keyword #f "op")) (_o$7743 (keyword #f "set-field")) (_o$7744 (keyword #f "obj")) (_o$7745 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth ti 1) env)) (_o$7746 (keyword #f "field")) (_o$7747 (jolt-invoke (var-deref "clojure.core" "subs") thead 2)) (_o$7748 (keyword #f "val")) (_o$7749 val-node)) (jolt-hash-map _o$7742 _o$7743 _o$7744 _o$7745 _o$7746 _o$7747 _o$7748 _o$7749)) (if (jolt-truthy? (let* ((and__25__auto (jolt= thead "."))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= (jolt-count ti) 3))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth ti 1)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth ti 2)))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "class") (jolt-get (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx (jolt-nth ti 1)) (keyword #f "kind"))) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((_a$7753 (var-deref "jolt.ir" "invoke")) (_a$7754 (jolt-invoke (var-deref "jolt.ir" "var-ref") "jolt.host" "set-static-field!")) (_a$7755 (let* ((_o$7750 (jolt-invoke (var-deref "jolt.ir" "const") (jolt-get (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx (jolt-nth ti 1)) (keyword #f "name")))) (_o$7751 (jolt-invoke (var-deref "jolt.ir" "const") (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth ti 2)))) (_o$7752 val-node)) (jolt-vector _o$7750 _o$7751 _o$7752)))) (jolt-invoke _a$7753 _a$7754 _a$7755)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") target)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "jolt.analyzer" "local?") env (jolt-invoke (var-deref "jolt.host" "form-sym-name") target))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of a local") jolt-nil) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx target))) (begin (if (jolt-not (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind")))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of a non-var") jolt-nil) (let* ((_o$7759 (keyword #f "op")) (_o$7760 (keyword #f "set-var")) (_o$7761 (keyword #f "the-var")) (_o$7762 (let* ((_a$7756 (var-deref "jolt.ir" "the-var")) (_a$7757 (jolt-get r (keyword #f "ns"))) (_a$7758 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7756 _a$7757 _a$7758))) (_o$7763 (keyword #f "val")) (_o$7764 val-node)) (jolt-hash-map _o$7759 _o$7760 _o$7761 _o$7762 _o$7763 _o$7764))))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of an unsupported target") jolt-nil))))))))) analyze-set!))) + (def-var! "jolt.analyzer" "analyze-set!" (letrec ((analyze-set! (lambda (ctx items env) (let fnrec7746 ((ctx ctx) (items items) (env env)) (let* ((target (jolt-nth items 1)) (val-node (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 2) env)) (ti (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") target)) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") target)) jolt-nil)) (thead (if (jolt-truthy? (let* ((and__25__auto ti)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-pos? (jolt-count ti)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-first ti)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-first ti)) jolt-nil))) (if (jolt-truthy? (let* ((and__25__auto thead)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "field-head?") thead) and__25__auto))) (let* ((_o$7747 (keyword #f "op")) (_o$7748 (keyword #f "set-field")) (_o$7749 (keyword #f "obj")) (_o$7750 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth ti 1) env)) (_o$7751 (keyword #f "field")) (_o$7752 (jolt-invoke (var-deref "clojure.core" "subs") thead 2)) (_o$7753 (keyword #f "val")) (_o$7754 val-node)) (jolt-hash-map _o$7747 _o$7748 _o$7749 _o$7750 _o$7751 _o$7752 _o$7753 _o$7754)) (if (jolt-truthy? (let* ((and__25__auto (jolt= thead "."))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= (jolt-count ti) 3))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth ti 1)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth ti 2)))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "class") (jolt-get (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx (jolt-nth ti 1)) (keyword #f "kind"))) and__25__auto)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((_a$7758 (var-deref "jolt.ir" "invoke")) (_a$7759 (jolt-invoke (var-deref "jolt.ir" "var-ref") "jolt.host" "set-static-field!")) (_a$7760 (let* ((_o$7755 (jolt-invoke (var-deref "jolt.ir" "const") (jolt-get (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx (jolt-nth ti 1)) (keyword #f "name")))) (_o$7756 (jolt-invoke (var-deref "jolt.ir" "const") (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth ti 2)))) (_o$7757 val-node)) (jolt-vector _o$7755 _o$7756 _o$7757)))) (jolt-invoke _a$7758 _a$7759 _a$7760)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") target)) (begin (if (jolt-truthy? (jolt-invoke (var-deref "jolt.analyzer" "local?") env (jolt-invoke (var-deref "jolt.host" "form-sym-name") target))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of a local") jolt-nil) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx target))) (begin (if (jolt-not (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind")))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of a non-var") jolt-nil) (let* ((_o$7764 (keyword #f "op")) (_o$7765 (keyword #f "set-var")) (_o$7766 (keyword #f "the-var")) (_o$7767 (let* ((_a$7761 (var-deref "jolt.ir" "the-var")) (_a$7762 (jolt-get r (keyword #f "ns"))) (_a$7763 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7761 _a$7762 _a$7763))) (_o$7768 (keyword #f "val")) (_o$7769 val-node)) (jolt-hash-map _o$7764 _o$7765 _o$7766 _o$7767 _o$7768 _o$7769))))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "set! of an unsupported target") jolt-nil))))))))) analyze-set!))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-special" (letrec ((analyze-special (lambda (ctx op items env) (let fnrec7765 ((ctx ctx) (op op) (items items) (env env)) (let* ((G__143 op)) (if (jolt= G__143 "quote") (jolt-invoke (var-deref "jolt.ir" "quote-node") (jolt-invoke (var-deref "clojure.core" "second") items)) (if (jolt= G__143 "if") (begin (if (jolt-truthy? (let* ((or__26__auto (< (jolt-count items) 3))) (if (jolt-truthy? or__26__auto) or__26__auto (> (jolt-count items) 4)))) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Wrong number of args (" (jolt-dec (jolt-count items)) ") passed to: if")) jolt-nil) (let* ((_a$7766 (var-deref "jolt.ir" "if-node")) (_a$7767 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_a$7768 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 2) env)) (_a$7769 (if (> (jolt-count items) 3) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 3) env) (jolt-invoke (var-deref "jolt.ir" "const") jolt-nil)))) (jolt-invoke _a$7766 _a$7767 _a$7768 _a$7769))) (if (jolt= G__143 "do") (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-rest items) env) (if (jolt= G__143 "throw") (jolt-invoke (var-deref "jolt.ir" "throw-node") (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (if (jolt= G__143 "def") (jolt-invoke (var-deref "jolt.analyzer" "analyze-def") ctx items env) (if (jolt= G__143 "let*") (let* ((bvec (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (r (jolt-invoke (var-deref "jolt.analyzer" "analyze-bindings") ctx bvec env))) (let* ((_a$7774 (var-deref "jolt.ir" "let-node")) (_a$7775 (jolt-first r)) (_a$7776 (let* ((_a$7770 (var-deref "jolt.analyzer" "analyze-seq")) (_a$7771 ctx) (_a$7772 (jolt-drop 2 items)) (_a$7773 (jolt-invoke (var-deref "clojure.core" "second") r))) (jolt-invoke _a$7770 _a$7771 _a$7772 _a$7773)))) (jolt-invoke _a$7774 _a$7775 _a$7776))) (if (jolt= G__143 "loop*") (let* ((bvec (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (rname (jolt-invoke (var-deref "jolt.analyzer" "gen-name") "loop")) (r (jolt-invoke (var-deref "jolt.analyzer" "analyze-bindings") ctx bvec env)) (env** (jolt-invoke (var-deref "jolt.analyzer" "with-recur") (jolt-invoke (var-deref "clojure.core" "second") r) rname))) (let* ((_o$7777 (keyword #f "op")) (_o$7778 (keyword #f "loop")) (_o$7779 (keyword #f "recur-name")) (_o$7780 rname) (_o$7781 (keyword #f "bindings")) (_o$7782 (jolt-first r)) (_o$7783 (keyword #f "body")) (_o$7784 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-drop 2 items) env**))) (jolt-hash-map _o$7777 _o$7778 _o$7779 _o$7780 _o$7781 _o$7782 _o$7783 _o$7784))) (if (jolt= G__143 "recur") (let* ((rt (jolt-get env (keyword #f "recur")))) (begin (if (jolt-not rt) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "recur outside loop/fn") jolt-nil) (let* ((_o$7789 (keyword #f "op")) (_o$7790 (keyword #f "recur")) (_o$7791 (keyword #f "recur-name")) (_o$7792 rt) (_o$7793 (keyword #f "args")) (_o$7794 (let* ((_a$7786 (var-deref "clojure.core" "mapv")) (_a$7787 (lambda (p__93_) (let fnrec7785 ((p__93_ p__93_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__93_ env)))) (_a$7788 (jolt-rest items))) (jolt-invoke _a$7786 _a$7787 _a$7788)))) (jolt-hash-map _o$7789 _o$7790 _o$7791 _o$7792 _o$7793 _o$7794)))) (if (jolt= G__143 "try") (jolt-invoke (var-deref "jolt.analyzer" "analyze-try") ctx items env) (if (jolt= G__143 "letfn") (jolt-invoke (var-deref "jolt.analyzer" "analyze-letfn") ctx items env) (if (jolt= G__143 "fn*") (jolt-invoke (var-deref "jolt.analyzer" "analyze-fn") ctx items env) (if (jolt= G__143 "syntax-quote") (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-invoke (var-deref "jolt.host" "form-syntax-quote-lower") ctx (jolt-invoke (var-deref "clojure.core" "second") items)) env) (if (jolt= G__143 "var") (let* ((sym (jolt-invoke (var-deref "clojure.core" "second") items)) (r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx sym))) (if (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind"))) (let* ((_a$7795 (var-deref "jolt.ir" "the-var")) (_a$7796 (jolt-get r (keyword #f "ns"))) (_a$7797 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7795 _a$7796 _a$7797)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "var of non-var " (jolt-invoke (var-deref "jolt.host" "form-sym-name") sym))))) (if (jolt= G__143 "defmacro") (let* ((name-sym (jolt-nth items 1)) (nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (after (jolt-drop 2 items)) (after (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") (jolt-first after))) (jolt-rest after) after)) (after (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-map?") (jolt-first after))) (jolt-rest after) after)) (fn-form (jolt-cons (jolt-invoke (var-deref "clojure.core" "symbol") "fn") after))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((_o$7798 (keyword #f "op")) (_o$7799 (keyword #f "defmacro")) (_o$7800 (keyword #f "ns")) (_o$7801 cur) (_o$7802 (keyword #f "name")) (_o$7803 nm) (_o$7804 (keyword #f "fn")) (_o$7805 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx fn-form env))) (jolt-hash-map _o$7798 _o$7799 _o$7800 _o$7801 _o$7802 _o$7803 _o$7804 _o$7805)))) (if (jolt= G__143 "set!") (jolt-invoke (var-deref "jolt.analyzer" "analyze-set!") ctx items env) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "special form " op)))))))))))))))))))))) analyze-special))) + (def-var! "jolt.analyzer" "analyze-special" (letrec ((analyze-special (lambda (ctx op items env) (let fnrec7770 ((ctx ctx) (op op) (items items) (env env)) (let* ((G__143 op)) (if (jolt= G__143 "quote") (jolt-invoke (var-deref "jolt.ir" "quote-node") (jolt-invoke (var-deref "clojure.core" "second") items)) (if (jolt= G__143 "if") (begin (if (let* ((or__26__auto (< (jolt-count items) 3))) (if (jolt-truthy? or__26__auto) or__26__auto (> (jolt-count items) 4))) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Wrong number of args (" (jolt-dec (jolt-count items)) ") passed to: if")) jolt-nil) (let* ((_a$7771 (var-deref "jolt.ir" "if-node")) (_a$7772 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_a$7773 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 2) env)) (_a$7774 (if (> (jolt-count items) 3) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 3) env) (jolt-invoke (var-deref "jolt.ir" "const") jolt-nil)))) (jolt-invoke _a$7771 _a$7772 _a$7773 _a$7774))) (if (jolt= G__143 "do") (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-rest items) env) (if (jolt= G__143 "throw") (jolt-invoke (var-deref "jolt.ir" "throw-node") (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (if (jolt= G__143 "def") (jolt-invoke (var-deref "jolt.analyzer" "analyze-def") ctx items env) (if (jolt= G__143 "let*") (let* ((bvec (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (r (jolt-invoke (var-deref "jolt.analyzer" "analyze-bindings") ctx bvec env))) (let* ((_a$7779 (var-deref "jolt.ir" "let-node")) (_a$7780 (jolt-first r)) (_a$7781 (let* ((_a$7775 (var-deref "jolt.analyzer" "analyze-seq")) (_a$7776 ctx) (_a$7777 (jolt-drop 2 items)) (_a$7778 (jolt-invoke (var-deref "clojure.core" "second") r))) (jolt-invoke _a$7775 _a$7776 _a$7777 _a$7778)))) (jolt-invoke _a$7779 _a$7780 _a$7781))) (if (jolt= G__143 "loop*") (let* ((bvec (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 1)))) (rname (jolt-invoke (var-deref "jolt.analyzer" "gen-name") "loop")) (r (jolt-invoke (var-deref "jolt.analyzer" "analyze-bindings") ctx bvec env)) (env** (jolt-invoke (var-deref "jolt.analyzer" "with-recur") (jolt-invoke (var-deref "clojure.core" "second") r) rname))) (let* ((_o$7782 (keyword #f "op")) (_o$7783 (keyword #f "loop")) (_o$7784 (keyword #f "recur-name")) (_o$7785 rname) (_o$7786 (keyword #f "bindings")) (_o$7787 (jolt-first r)) (_o$7788 (keyword #f "body")) (_o$7789 (jolt-invoke (var-deref "jolt.analyzer" "analyze-seq") ctx (jolt-drop 2 items) env**))) (jolt-hash-map _o$7782 _o$7783 _o$7784 _o$7785 _o$7786 _o$7787 _o$7788 _o$7789))) (if (jolt= G__143 "recur") (let* ((rt (jolt-get env (keyword #f "recur")))) (begin (if (jolt-not rt) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "recur outside loop/fn") jolt-nil) (let* ((_o$7794 (keyword #f "op")) (_o$7795 (keyword #f "recur")) (_o$7796 (keyword #f "recur-name")) (_o$7797 rt) (_o$7798 (keyword #f "args")) (_o$7799 (let* ((_a$7791 (var-deref "clojure.core" "mapv")) (_a$7792 (lambda (p__93_) (let fnrec7790 ((p__93_ p__93_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__93_ env)))) (_a$7793 (jolt-rest items))) (jolt-invoke _a$7791 _a$7792 _a$7793)))) (jolt-hash-map _o$7794 _o$7795 _o$7796 _o$7797 _o$7798 _o$7799)))) (if (jolt= G__143 "try") (jolt-invoke (var-deref "jolt.analyzer" "analyze-try") ctx items env) (if (jolt= G__143 "letfn") (jolt-invoke (var-deref "jolt.analyzer" "analyze-letfn") ctx items env) (if (jolt= G__143 "fn*") (jolt-invoke (var-deref "jolt.analyzer" "analyze-fn") ctx items env) (if (jolt= G__143 "syntax-quote") (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-invoke (var-deref "jolt.host" "form-syntax-quote-lower") ctx (jolt-invoke (var-deref "clojure.core" "second") items)) env) (if (jolt= G__143 "var") (let* ((sym (jolt-invoke (var-deref "clojure.core" "second") items)) (r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx sym))) (if (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind"))) (let* ((_a$7800 (var-deref "jolt.ir" "the-var")) (_a$7801 (jolt-get r (keyword #f "ns"))) (_a$7802 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7800 _a$7801 _a$7802)) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "var of non-var " (jolt-invoke (var-deref "jolt.host" "form-sym-name") sym))))) (if (jolt= G__143 "defmacro") (let* ((name-sym (jolt-nth items 1)) (nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") name-sym)) (cur (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx)) (after (jolt-drop 2 items)) (after (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") (jolt-first after))) (jolt-rest after) after)) (after (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-map?") (jolt-first after))) (jolt-rest after) after)) (fn-form (jolt-cons (jolt-invoke (var-deref "clojure.core" "symbol") "fn") after))) (begin (jolt-invoke (var-deref "jolt.host" "host-intern!") ctx cur nm) (let* ((_o$7803 (keyword #f "op")) (_o$7804 (keyword #f "defmacro")) (_o$7805 (keyword #f "ns")) (_o$7806 cur) (_o$7807 (keyword #f "name")) (_o$7808 nm) (_o$7809 (keyword #f "fn")) (_o$7810 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx fn-form env))) (jolt-hash-map _o$7803 _o$7804 _o$7805 _o$7806 _o$7807 _o$7808 _o$7809 _o$7810)))) (if (jolt= G__143 "set!") (jolt-invoke (var-deref "jolt.analyzer" "analyze-set!") ctx items env) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "special form " op)))))))))))))))))))))) analyze-special))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "method-head?" (letrec ((method-head? (lambda (nm) (let fnrec7806 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 1))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 0 1)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt= "-" (jolt-invoke (var-deref "clojure.core" "subs") nm 1 2))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 1 2))) and__25__auto)) and__25__auto)) and__25__auto)))))) method-head?))) + (def-var! "jolt.analyzer" "method-head?" (letrec ((method-head? (lambda (nm) (let fnrec7811 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 1))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 0 1)))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt= "-" (jolt-invoke (var-deref "clojure.core" "subs") nm 1 2))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 1 2))) and__25__auto)) and__25__auto)) and__25__auto)))))) method-head?))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-host-call" (letrec ((analyze-host-call (lambda (ctx hname items env) (let fnrec7807 ((ctx ctx) (hname hname) (items items) (env env)) (begin (if (< (jolt-count items) 2) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed member expression, expecting (.method target ...): " hname)) jolt-nil) (let* ((_o$7812 (keyword #f "op")) (_o$7813 (keyword #f "host-call")) (_o$7814 (keyword #f "method")) (_o$7815 (jolt-invoke (var-deref "clojure.core" "subs") hname 1)) (_o$7816 (keyword #f "target")) (_o$7817 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7818 (keyword #f "args")) (_o$7819 (let* ((_a$7809 (var-deref "clojure.core" "mapv")) (_a$7810 (lambda (p__94_) (let fnrec7808 ((p__94_ p__94_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__94_ env)))) (_a$7811 (jolt-drop 2 items))) (jolt-invoke _a$7809 _a$7810 _a$7811)))) (jolt-hash-map _o$7812 _o$7813 _o$7814 _o$7815 _o$7816 _o$7817 _o$7818 _o$7819))))))) analyze-host-call))) + (def-var! "jolt.analyzer" "analyze-host-call" (letrec ((analyze-host-call (lambda (ctx hname items env) (let fnrec7812 ((ctx ctx) (hname hname) (items items) (env env)) (begin (if (< (jolt-count items) 2) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed member expression, expecting (.method target ...): " hname)) jolt-nil) (let* ((_o$7817 (keyword #f "op")) (_o$7818 (keyword #f "host-call")) (_o$7819 (keyword #f "method")) (_o$7820 (jolt-invoke (var-deref "clojure.core" "subs") hname 1)) (_o$7821 (keyword #f "target")) (_o$7822 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7823 (keyword #f "args")) (_o$7824 (let* ((_a$7814 (var-deref "clojure.core" "mapv")) (_a$7815 (lambda (p__94_) (let fnrec7813 ((p__94_ p__94_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__94_ env)))) (_a$7816 (jolt-drop 2 items))) (jolt-invoke _a$7814 _a$7815 _a$7816)))) (jolt-hash-map _o$7817 _o$7818 _o$7819 _o$7820 _o$7821 _o$7822 _o$7823 _o$7824))))))) analyze-host-call))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "ctor-head?" (letrec ((ctor-head? (lambda (nm) (let fnrec7820 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 1))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "." (let* ((_a$7821 (var-deref "clojure.core" "subs")) (_a$7822 nm) (_a$7823 (jolt-dec (jolt-count nm))) (_a$7824 (jolt-count nm))) (jolt-invoke _a$7821 _a$7822 _a$7823 _a$7824))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 0 1))) and__25__auto)) and__25__auto)))))) ctor-head?))) + (def-var! "jolt.analyzer" "ctor-head?" (letrec ((ctor-head? (lambda (nm) (let fnrec7825 ((nm nm)) (let* ((and__25__auto (> (jolt-count nm) 1))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "." (let* ((_a$7826 (var-deref "clojure.core" "subs")) (_a$7827 nm) (_a$7828 (jolt-dec (jolt-count nm))) (_a$7829 (jolt-count nm))) (jolt-invoke _a$7826 _a$7827 _a$7828 _a$7829))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt= "." (jolt-invoke (var-deref "clojure.core" "subs") nm 0 1))) and__25__auto)) and__25__auto)))))) ctor-head?))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-ctor" (letrec ((analyze-ctor (lambda (ctx class args env) (let fnrec7825 ((ctx ctx) (class class) (args args) (env env)) (jolt-invoke (var-deref "jolt.ir" "host-new") class (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__95_) (let fnrec7826 ((p__95_ p__95_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__95_ env))) args)))))) analyze-ctor))) + (def-var! "jolt.analyzer" "analyze-ctor" (letrec ((analyze-ctor (lambda (ctx class args env) (let fnrec7830 ((ctx ctx) (class class) (args args) (env env)) (jolt-invoke (var-deref "jolt.ir" "host-new") class (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (p__95_) (let fnrec7831 ((p__95_ p__95_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__95_ env))) args)))))) analyze-ctor))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-ffi-fn" (letrec ((analyze-ffi-fn (lambda (ctx items env) (let fnrec7827 ((ctx ctx) (items items) (env env)) (begin (if (jolt-not (<= 4 (jolt-count items) 5)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt.ffi/foreign-fn expects (foreign-fn \"sym\" [argtypes] rettype [:blocking])")) jolt-nil) (let* ((_o$7828 (keyword #f "op")) (_o$7829 (keyword #f "ffi-fn")) (_o$7830 (keyword #f "csym")) (_o$7831 (jolt-nth items 1)) (_o$7832 (keyword #f "argtypes")) (_o$7833 (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "clojure.core" "name") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 2)))) (_o$7834 (keyword #f "rettype")) (_o$7835 (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 3))) (_o$7836 (keyword #f "blocking")) (_o$7837 (let* ((and__25__auto (jolt= 5 (jolt-count items)))) (if (jolt-truthy? and__25__auto) (jolt= "blocking" (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 4))) and__25__auto)))) (jolt-hash-map _o$7828 _o$7829 _o$7830 _o$7831 _o$7832 _o$7833 _o$7834 _o$7835 _o$7836 _o$7837))))))) analyze-ffi-fn))) + (def-var! "jolt.analyzer" "analyze-ffi-fn" (letrec ((analyze-ffi-fn (lambda (ctx items env) (let fnrec7832 ((ctx ctx) (items items) (env env)) (begin (if (jolt-not (<= 4 (jolt-count items) 5)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt.ffi/foreign-fn expects (foreign-fn \"sym\" [argtypes] rettype [:blocking])")) jolt-nil) (let* ((_o$7833 (keyword #f "op")) (_o$7834 (keyword #f "ffi-fn")) (_o$7835 (keyword #f "csym")) (_o$7836 (jolt-nth items 1)) (_o$7837 (keyword #f "argtypes")) (_o$7838 (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "clojure.core" "name") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 2)))) (_o$7839 (keyword #f "rettype")) (_o$7840 (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 3))) (_o$7841 (keyword #f "blocking")) (_o$7842 (let* ((and__25__auto (jolt= 5 (jolt-count items)))) (if (jolt-truthy? and__25__auto) (jolt= "blocking" (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 4))) and__25__auto)))) (jolt-hash-map _o$7833 _o$7834 _o$7835 _o$7836 _o$7837 _o$7838 _o$7839 _o$7840 _o$7841 _o$7842))))))) analyze-ffi-fn))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-ffi-callable" (letrec ((analyze-ffi-callable (lambda (ctx items env) (let fnrec7838 ((ctx ctx) (items items) (env env)) (begin (if (jolt-not (<= 4 (jolt-count items) 5)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt.ffi/foreign-callable expects (foreign-callable f [argtypes] rettype [:collect-safe])")) jolt-nil) (let* ((_o$7839 (keyword #f "op")) (_o$7840 (keyword #f "ffi-callable")) (_o$7841 (keyword #f "fn")) (_o$7842 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7843 (keyword #f "argtypes")) (_o$7844 (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "clojure.core" "name") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 2)))) (_o$7845 (keyword #f "rettype")) (_o$7846 (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 3))) (_o$7847 (keyword #f "collect-safe")) (_o$7848 (let* ((and__25__auto (jolt= 5 (jolt-count items)))) (if (jolt-truthy? and__25__auto) (jolt= "collect-safe" (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 4))) and__25__auto)))) (jolt-hash-map _o$7839 _o$7840 _o$7841 _o$7842 _o$7843 _o$7844 _o$7845 _o$7846 _o$7847 _o$7848))))))) analyze-ffi-callable))) + (def-var! "jolt.analyzer" "analyze-ffi-callable" (letrec ((analyze-ffi-callable (lambda (ctx items env) (let fnrec7843 ((ctx ctx) (items items) (env env)) (begin (if (jolt-not (<= 4 (jolt-count items) 5)) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "jolt.ffi/foreign-callable expects (foreign-callable f [argtypes] rettype [:collect-safe])")) jolt-nil) (let* ((_o$7844 (keyword #f "op")) (_o$7845 (keyword #f "ffi-callable")) (_o$7846 (keyword #f "fn")) (_o$7847 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7848 (keyword #f "argtypes")) (_o$7849 (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "clojure.core" "name") (jolt-invoke (var-deref "jolt.host" "form-vec-items") (jolt-nth items 2)))) (_o$7850 (keyword #f "rettype")) (_o$7851 (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 3))) (_o$7852 (keyword #f "collect-safe")) (_o$7853 (let* ((and__25__auto (jolt= 5 (jolt-count items)))) (if (jolt-truthy? and__25__auto) (jolt= "collect-safe" (jolt-invoke (var-deref "clojure.core" "name") (jolt-nth items 4))) and__25__auto)))) (jolt-hash-map _o$7844 _o$7845 _o$7846 _o$7847 _o$7848 _o$7849 _o$7850 _o$7851 _o$7852 _o$7853))))))) analyze-ffi-callable))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-dot" (letrec ((analyze-dot (lambda (ctx items env) (let fnrec7849 ((ctx ctx) (items items) (env env)) (begin (if (< (jolt-count items) 3) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed (. target member ...) form")) jolt-nil) (let* ((target (jolt-nth items 1)) (member (jolt-nth items 2)) (class-target (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") target))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "jolt.analyzer" "local?") env (jolt-invoke (var-deref "jolt.host" "form-sym-name") target))) and__25__auto))) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx target))) (if (jolt= (keyword #f "class") (jolt-get r (keyword #f "kind"))) (jolt-get r (keyword #f "name")) jolt-nil)) jolt-nil))) (if (jolt-truthy? (let* ((and__25__auto class-target)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") member) and__25__auto))) (let* ((_a$7854 (var-deref "jolt.ir" "invoke")) (_a$7855 (jolt-invoke (var-deref "jolt.ir" "host-static") class-target (jolt-invoke (var-deref "jolt.host" "form-sym-name") member))) (_a$7856 (let* ((_a$7851 (var-deref "clojure.core" "mapv")) (_a$7852 (lambda (p__96_) (let fnrec7850 ((p__96_ p__96_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__96_ env)))) (_a$7853 (jolt-drop 3 items))) (jolt-invoke _a$7851 _a$7852 _a$7853)))) (jolt-invoke _a$7854 _a$7855 _a$7856)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") member)) (let* ((_o$7861 (keyword #f "op")) (_o$7862 (keyword #f "host-call")) (_o$7863 (keyword #f "method")) (_o$7864 (jolt-invoke (var-deref "jolt.host" "form-sym-name") member)) (_o$7865 (keyword #f "target")) (_o$7866 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx target env)) (_o$7867 (keyword #f "args")) (_o$7868 (let* ((_a$7858 (var-deref "clojure.core" "mapv")) (_a$7859 (lambda (p__97_) (let fnrec7857 ((p__97_ p__97_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__97_ env)))) (_a$7860 (jolt-drop 3 items))) (jolt-invoke _a$7858 _a$7859 _a$7860)))) (jolt-hash-map _o$7861 _o$7862 _o$7863 _o$7864 _o$7865 _o$7866 _o$7867 _o$7868)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-keyword?") member)) (let* ((_a$7869 (var-deref "jolt.ir" "invoke")) (_a$7870 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx member env)) (_a$7871 (jolt-vector (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)))) (jolt-invoke _a$7869 _a$7870 _a$7871)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "special form . (non-symbol member)") jolt-nil)))))))))) analyze-dot))) + (def-var! "jolt.analyzer" "analyze-dot" (letrec ((analyze-dot (lambda (ctx items env) (let fnrec7854 ((ctx ctx) (items items) (env env)) (begin (if (< (jolt-count items) 3) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed (. target member ...) form")) jolt-nil) (let* ((target (jolt-nth items 1)) (member (jolt-nth items 2)) (class-target (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") target))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "jolt.analyzer" "local?") env (jolt-invoke (var-deref "jolt.host" "form-sym-name") target))) and__25__auto))) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx target))) (if (jolt= (keyword #f "class") (jolt-get r (keyword #f "kind"))) (jolt-get r (keyword #f "name")) jolt-nil)) jolt-nil))) (if (jolt-truthy? (let* ((and__25__auto class-target)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") member) and__25__auto))) (let* ((_a$7859 (var-deref "jolt.ir" "invoke")) (_a$7860 (jolt-invoke (var-deref "jolt.ir" "host-static") class-target (jolt-invoke (var-deref "jolt.host" "form-sym-name") member))) (_a$7861 (let* ((_a$7856 (var-deref "clojure.core" "mapv")) (_a$7857 (lambda (p__96_) (let fnrec7855 ((p__96_ p__96_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__96_ env)))) (_a$7858 (jolt-drop 3 items))) (jolt-invoke _a$7856 _a$7857 _a$7858)))) (jolt-invoke _a$7859 _a$7860 _a$7861)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") member)) (let* ((_o$7866 (keyword #f "op")) (_o$7867 (keyword #f "host-call")) (_o$7868 (keyword #f "method")) (_o$7869 (jolt-invoke (var-deref "jolt.host" "form-sym-name") member)) (_o$7870 (keyword #f "target")) (_o$7871 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx target env)) (_o$7872 (keyword #f "args")) (_o$7873 (let* ((_a$7863 (var-deref "clojure.core" "mapv")) (_a$7864 (lambda (p__97_) (let fnrec7862 ((p__97_ p__97_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__97_ env)))) (_a$7865 (jolt-drop 3 items))) (jolt-invoke _a$7863 _a$7864 _a$7865)))) (jolt-hash-map _o$7866 _o$7867 _o$7868 _o$7869 _o$7870 _o$7871 _o$7872 _o$7873)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-keyword?") member)) (let* ((_a$7874 (var-deref "jolt.ir" "invoke")) (_a$7875 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx member env)) (_a$7876 (jolt-vector (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)))) (jolt-invoke _a$7874 _a$7875 _a$7876)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "special form . (non-symbol member)") jolt-nil)))))))))) analyze-dot))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-field" (letrec ((analyze-field (lambda (ctx hname items env) (let fnrec7872 ((ctx ctx) (hname hname) (items items) (env env)) (begin (if (< (jolt-count items) 2) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed (.-field target) form")) jolt-nil) (let* ((_o$7873 (keyword #f "op")) (_o$7874 (keyword #f "host-call")) (_o$7875 (keyword #f "method")) (_o$7876 (jolt-invoke (var-deref "clojure.core" "subs") hname 1)) (_o$7877 (keyword #f "target")) (_o$7878 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7879 (keyword #f "args")) (_o$7880 (jolt-vector))) (jolt-hash-map _o$7873 _o$7874 _o$7875 _o$7876 _o$7877 _o$7878 _o$7879 _o$7880))))))) analyze-field))) + (def-var! "jolt.analyzer" "analyze-field" (letrec ((analyze-field (lambda (ctx hname items env) (let fnrec7877 ((ctx ctx) (hname hname) (items items) (env env)) (begin (if (< (jolt-count items) 2) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Malformed (.-field target) form")) jolt-nil) (let* ((_o$7878 (keyword #f "op")) (_o$7879 (keyword #f "host-call")) (_o$7880 (keyword #f "method")) (_o$7881 (jolt-invoke (var-deref "clojure.core" "subs") hname 1)) (_o$7882 (keyword #f "target")) (_o$7883 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-nth items 1) env)) (_o$7884 (keyword #f "args")) (_o$7885 (jolt-vector))) (jolt-hash-map _o$7878 _o$7879 _o$7880 _o$7881 _o$7882 _o$7883 _o$7884 _o$7885))))))) analyze-field))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-symbol" (letrec ((analyze-symbol (lambda (ctx form env) (let fnrec7881 ((ctx ctx) (form form) (env env)) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") form)) (ns (jolt-invoke (var-deref "jolt.host" "form-sym-ns") form))) (if (jolt-truthy? (let* ((and__25__auto (jolt-nil? ns))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "local?") env nm) and__25__auto))) (let* ((h (jolt-get (jolt-get env (keyword #f "hints")) nm))) (if (jolt-truthy? h) (jolt-assoc (jolt-invoke (var-deref "jolt.ir" "local") nm) (keyword #f "hint") h) (jolt-invoke (var-deref "jolt.ir" "local") nm))) (if (jolt-truthy? ns) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx form))) (if (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind"))) (let* ((G__144 (let* ((_a$7882 (var-deref "jolt.ir" "var-ref")) (_a$7883 (jolt-get r (keyword #f "ns"))) (_a$7884 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7882 _a$7883 _a$7884)))) (let* ((G__145 (if (jolt-truthy? (jolt-get r (keyword #f "num-ret"))) (jolt-assoc G__144 (keyword #f "num-ret") (jolt-get r (keyword #f "num-ret"))) G__144))) G__145)) (jolt-invoke (var-deref "jolt.ir" "host-static") ns nm))) (if (jolt-truthy? (keyword #f "else")) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx form))) (let* ((G__146 (jolt-get r (keyword #f "kind")))) (if (jolt= G__146 (keyword #f "var")) (let* ((G__147 (let* ((_a$7885 (var-deref "jolt.ir" "var-ref")) (_a$7886 (jolt-get r (keyword #f "ns"))) (_a$7887 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7885 _a$7886 _a$7887)))) (let* ((G__148 (if (jolt-truthy? (jolt-get r (keyword #f "num-ret"))) (jolt-assoc G__147 (keyword #f "num-ret") (jolt-get r (keyword #f "num-ret"))) G__147))) G__148)) (if (jolt= G__146 (keyword #f "host")) (jolt-invoke (var-deref "jolt.ir" "host-ref") (jolt-get r (keyword #f "name"))) (if (jolt= G__146 (keyword #f "class")) (jolt-invoke (var-deref "jolt.ir" "const") (jolt-get r (keyword #f "name"))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "late-bind?") ctx)) (jolt-invoke (var-deref "jolt.ir" "var-ref") (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx) nm) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "Unable to resolve symbol: " nm " in this context")))))))) jolt-nil)))))))) analyze-symbol))) + (def-var! "jolt.analyzer" "analyze-symbol" (letrec ((analyze-symbol (lambda (ctx form env) (let fnrec7886 ((ctx ctx) (form form) (env env)) (let* ((nm (jolt-invoke (var-deref "jolt.host" "form-sym-name") form)) (ns (jolt-invoke (var-deref "jolt.host" "form-sym-ns") form))) (if (jolt-truthy? (let* ((and__25__auto (jolt-nil? ns))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "local?") env nm) and__25__auto))) (let* ((h (jolt-get (jolt-get env (keyword #f "hints")) nm))) (if (jolt-truthy? h) (jolt-assoc (jolt-invoke (var-deref "jolt.ir" "local") nm) (keyword #f "hint") h) (jolt-invoke (var-deref "jolt.ir" "local") nm))) (if (jolt-truthy? ns) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx form))) (if (jolt= (keyword #f "var") (jolt-get r (keyword #f "kind"))) (let* ((G__144 (let* ((_a$7887 (var-deref "jolt.ir" "var-ref")) (_a$7888 (jolt-get r (keyword #f "ns"))) (_a$7889 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7887 _a$7888 _a$7889)))) (let* ((G__145 (if (jolt-truthy? (jolt-get r (keyword #f "num-ret"))) (jolt-assoc G__144 (keyword #f "num-ret") (jolt-get r (keyword #f "num-ret"))) G__144))) G__145)) (jolt-invoke (var-deref "jolt.ir" "host-static") ns nm))) (if (jolt-truthy? (keyword #f "else")) (let* ((r (jolt-invoke (var-deref "jolt.host" "resolve-global") ctx form))) (let* ((G__146 (jolt-get r (keyword #f "kind")))) (if (jolt= G__146 (keyword #f "var")) (let* ((G__147 (let* ((_a$7890 (var-deref "jolt.ir" "var-ref")) (_a$7891 (jolt-get r (keyword #f "ns"))) (_a$7892 (jolt-get r (keyword #f "name")))) (jolt-invoke _a$7890 _a$7891 _a$7892)))) (let* ((G__148 (if (jolt-truthy? (jolt-get r (keyword #f "num-ret"))) (jolt-assoc G__147 (keyword #f "num-ret") (jolt-get r (keyword #f "num-ret"))) G__147))) G__148)) (if (jolt= G__146 (keyword #f "host")) (jolt-invoke (var-deref "jolt.ir" "host-ref") (jolt-get r (keyword #f "name"))) (if (jolt= G__146 (keyword #f "class")) (jolt-invoke (var-deref "jolt.ir" "const") (jolt-get r (keyword #f "name"))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "late-bind?") ctx)) (jolt-invoke (var-deref "jolt.ir" "var-ref") (jolt-invoke (var-deref "jolt.host" "compile-ns") ctx) nm) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "Unable to resolve symbol: " nm " in this context")))))))) jolt-nil)))))))) analyze-symbol))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze-list" (letrec ((analyze-list (lambda (ctx form env) (let fnrec7888 ((ctx ctx) (form form) (env env)) (let* ((items (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") form)))) (if (jolt-zero? (jolt-count items)) (jolt-invoke (var-deref "jolt.ir" "quote-node") form) (let* ((head (jolt-first items)) (hname (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (jolt-nil? (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") head) jolt-nil)) (shadowed (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "local?") env hname) and__25__auto)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-contains? (var-deref "jolt.analyzer" "handled") hname)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-macro?") ctx head) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((node (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-invoke (var-deref "jolt.host" "form-expand-1") ctx form) env)) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? (let* ((and__25__auto p)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "pos") p) node)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "jolt.ffi" (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)))) (if (jolt-truthy? and__25__auto) (jolt= "__cfn" (jolt-invoke (var-deref "jolt.host" "form-sym-name") head)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-ffi-fn") ctx items env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "jolt.ffi" (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)))) (if (jolt-truthy? and__25__auto) (jolt= "__ccallable" (jolt-invoke (var-deref "jolt.host" "form-sym-name") head)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-ffi-callable") ctx items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (jolt-contains? (var-deref "jolt.analyzer" "handled") hname) and__25__auto))) (let* ((node (jolt-invoke (var-deref "jolt.analyzer" "analyze-special") ctx hname items env)) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? (let* ((and__25__auto p)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "pos") p) node)) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "method-head?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-host-call") ctx hname items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "ctor-head?") hname) and__25__auto)) and__25__auto))) (let* ((_a$7889 (var-deref "jolt.analyzer" "analyze-ctor")) (_a$7890 ctx) (_a$7891 (jolt-invoke (var-deref "clojure.core" "subs") hname 0 (jolt-dec (jolt-count hname)))) (_a$7892 (jolt-rest items)) (_a$7893 env)) (jolt-invoke _a$7889 _a$7890 _a$7891 _a$7892 _a$7893)) (if (jolt-truthy? (let* ((and__25__auto (jolt= hname "new"))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= (jolt-count items) 2))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth items 1)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((_a$7894 (var-deref "jolt.analyzer" "analyze-ctor")) (_a$7895 ctx) (_a$7896 (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth items 1))) (_a$7897 (jolt-drop 2 items)) (_a$7898 env)) (jolt-invoke _a$7894 _a$7895 _a$7896 _a$7897 _a$7898)) (if (jolt-truthy? (let* ((and__25__auto (jolt= hname "."))) (if (jolt-truthy? and__25__auto) (jolt-not shadowed) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-dot") ctx items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "field-head?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-field") ctx hname items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-special?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "special form " hname)) (if (jolt-truthy? (keyword #f "else")) (let* ((n (let* ((_a$7903 (var-deref "jolt.ir" "invoke")) (_a$7904 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx head env)) (_a$7905 (let* ((_a$7900 (var-deref "clojure.core" "mapv")) (_a$7901 (lambda (p__98_) (let fnrec7899 ((p__98_ p__98_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__98_ env)))) (_a$7902 (jolt-rest items))) (jolt-invoke _a$7900 _a$7901 _a$7902)))) (jolt-invoke _a$7903 _a$7904 _a$7905))) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? p) (jolt-assoc n (keyword #f "pos") p) n)) jolt-nil)))))))))))))))))) analyze-list))) + (def-var! "jolt.analyzer" "analyze-list" (letrec ((analyze-list (lambda (ctx form env) (let fnrec7893 ((ctx ctx) (form form) (env env)) (let* ((items (jolt-invoke (var-deref "clojure.core" "vec") (jolt-invoke (var-deref "jolt.host" "form-elements") form)))) (if (jolt-zero? (jolt-count items)) (jolt-invoke (var-deref "jolt.ir" "quote-node") form) (let* ((head (jolt-first items)) (hname (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (jolt-nil? (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)) and__25__auto))) (jolt-invoke (var-deref "jolt.host" "form-sym-name") head) jolt-nil)) (shadowed (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "local?") env hname) and__25__auto)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-contains? (var-deref "jolt.analyzer" "handled") hname)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-macro?") ctx head) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((node (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx (jolt-invoke (var-deref "jolt.host" "form-expand-1") ctx form) env)) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? (let* ((and__25__auto p)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "pos") p) node)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "jolt.ffi" (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)))) (if (jolt-truthy? and__25__auto) (jolt= "__cfn" (jolt-invoke (var-deref "jolt.host" "form-sym-name") head)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-ffi-fn") ctx items env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.host" "form-sym?") head))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "jolt.ffi" (jolt-invoke (var-deref "jolt.host" "form-sym-ns") head)))) (if (jolt-truthy? and__25__auto) (jolt= "__ccallable" (jolt-invoke (var-deref "jolt.host" "form-sym-name") head)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-ffi-callable") ctx items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (jolt-contains? (var-deref "jolt.analyzer" "handled") hname) and__25__auto))) (let* ((node (jolt-invoke (var-deref "jolt.analyzer" "analyze-special") ctx hname items env)) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? (let* ((and__25__auto p)) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))) and__25__auto))) (jolt-assoc node (keyword #f "pos") p) node)) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "method-head?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-host-call") ctx hname items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "ctor-head?") hname) and__25__auto)) and__25__auto))) (let* ((_a$7894 (var-deref "jolt.analyzer" "analyze-ctor")) (_a$7895 ctx) (_a$7896 (jolt-invoke (var-deref "clojure.core" "subs") hname 0 (jolt-dec (jolt-count hname)))) (_a$7897 (jolt-rest items)) (_a$7898 env)) (jolt-invoke _a$7894 _a$7895 _a$7896 _a$7897 _a$7898)) (if (jolt-truthy? (let* ((and__25__auto (jolt= hname "new"))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= (jolt-count items) 2))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-sym?") (jolt-nth items 1)) and__25__auto)) and__25__auto)) and__25__auto))) (let* ((_a$7899 (var-deref "jolt.analyzer" "analyze-ctor")) (_a$7900 ctx) (_a$7901 (jolt-invoke (var-deref "jolt.host" "form-sym-name") (jolt-nth items 1))) (_a$7902 (jolt-drop 2 items)) (_a$7903 env)) (jolt-invoke _a$7899 _a$7900 _a$7901 _a$7902 _a$7903)) (if (let* ((and__25__auto (jolt= hname "."))) (if (jolt-truthy? and__25__auto) (jolt-not shadowed) and__25__auto)) (jolt-invoke (var-deref "jolt.analyzer" "analyze-dot") ctx items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.analyzer" "field-head?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "analyze-field") ctx hname items env) (if (jolt-truthy? (let* ((and__25__auto hname)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not shadowed))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.host" "form-special?") hname) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") (jolt-invoke (var-deref "clojure.core" "str") "special form " hname)) (if (jolt-truthy? (keyword #f "else")) (let* ((n (let* ((_a$7908 (var-deref "jolt.ir" "invoke")) (_a$7909 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx head env)) (_a$7910 (let* ((_a$7905 (var-deref "clojure.core" "mapv")) (_a$7906 (lambda (p__98_) (let fnrec7904 ((p__98_ p__98_)) (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx p__98_ env)))) (_a$7907 (jolt-rest items))) (jolt-invoke _a$7905 _a$7906 _a$7907)))) (jolt-invoke _a$7908 _a$7909 _a$7910))) (p (jolt-invoke (var-deref "jolt.host" "form-position") form))) (if (jolt-truthy? p) (jolt-assoc n (keyword #f "pos") p) n)) jolt-nil)))))))))))))))))) analyze-list))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "with-coll-meta" (letrec ((with-coll-meta (lambda (ctx form env node) (let fnrec7906 ((ctx ctx) (form form) (env env) (node node)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-coll-meta") form))) (if (jolt-nil? m) node (let* ((_a$7909 (var-deref "jolt.ir" "invoke")) (_a$7910 (jolt-invoke (var-deref "jolt.ir" "var-ref") "clojure.core" "with-meta")) (_a$7911 (let* ((_o$7907 node) (_o$7908 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx m env))) (jolt-vector _o$7907 _o$7908)))) (jolt-invoke _a$7909 _a$7910 _a$7911)))))))) with-coll-meta))) + (def-var! "jolt.analyzer" "with-coll-meta" (letrec ((with-coll-meta (lambda (ctx form env node) (let fnrec7911 ((ctx ctx) (form form) (env env) (node node)) (let* ((m (jolt-invoke (var-deref "jolt.host" "form-coll-meta") form))) (if (jolt-nil? m) node (let* ((_a$7914 (var-deref "jolt.ir" "invoke")) (_a$7915 (jolt-invoke (var-deref "jolt.ir" "var-ref") "clojure.core" "with-meta")) (_a$7916 (let* ((_o$7912 node) (_o$7913 (jolt-invoke (var-deref "jolt.analyzer" "analyze") ctx m env))) (jolt-vector _o$7912 _o$7913)))) (jolt-invoke _a$7914 _a$7915 _a$7916)))))))) with-coll-meta))) (guard (e (#t #f)) - (def-var! "jolt.analyzer" "analyze" (letrec ((analyze (case-lambda ((ctx form) (let fnrec7912 ((ctx ctx) (form form)) (analyze ctx form (jolt-invoke (var-deref "jolt.analyzer" "empty-env"))))) ((ctx form env) (let fnrec7913 ((ctx ctx) (form form) (env env)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-literal?") form)) (jolt-invoke (var-deref "jolt.ir" "const") form) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") form)) (jolt-invoke (var-deref "jolt.analyzer" "analyze-symbol") ctx form env) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-vec?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "vector-node") (let* ((_a$7915 (var-deref "clojure.core" "mapv")) (_a$7916 (lambda (p__99_) (let fnrec7914 ((p__99_ p__99_)) (analyze ctx p__99_ env)))) (_a$7917 (jolt-invoke (var-deref "jolt.host" "form-vec-items") form))) (jolt-invoke _a$7915 _a$7916 _a$7917)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-map?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "map-node") (let* ((_a$7921 (var-deref "clojure.core" "mapv")) (_a$7922 (lambda (p) (let fnrec7918 ((p p)) (let* ((_o$7919 (analyze ctx (jolt-first p) env)) (_o$7920 (analyze ctx (jolt-invoke (var-deref "clojure.core" "second") p) env))) (jolt-vector _o$7919 _o$7920))))) (_a$7923 (jolt-invoke (var-deref "jolt.host" "form-map-pairs") form))) (jolt-invoke _a$7921 _a$7922 _a$7923)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-set?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "set-node") (let* ((_a$7925 (var-deref "clojure.core" "mapv")) (_a$7926 (lambda (p__100_) (let fnrec7924 ((p__100_ p__100_)) (analyze ctx p__100_ env)))) (_a$7927 (jolt-invoke (var-deref "jolt.host" "form-set-items") form))) (jolt-invoke _a$7925 _a$7926 _a$7927)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") form)) (jolt-invoke (var-deref "jolt.analyzer" "analyze-list") ctx form env) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-regex?") form)) (let* ((_o$7928 (keyword #f "op")) (_o$7929 (keyword #f "regex")) (_o$7930 (keyword #f "source")) (_o$7931 (jolt-invoke (var-deref "jolt.host" "form-regex-source") form))) (jolt-hash-map _o$7928 _o$7929 _o$7930 _o$7931)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-inst?") form)) (let* ((_o$7932 (keyword #f "op")) (_o$7933 (keyword #f "inst")) (_o$7934 (keyword #f "source")) (_o$7935 (jolt-invoke (var-deref "jolt.host" "form-inst-source") form))) (jolt-hash-map _o$7932 _o$7933 _o$7934 _o$7935)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-uuid?") form)) (let* ((_o$7936 (keyword #f "op")) (_o$7937 (keyword #f "uuid")) (_o$7938 (keyword #f "source")) (_o$7939 (jolt-invoke (var-deref "jolt.host" "form-uuid-source") form))) (jolt-hash-map _o$7936 _o$7937 _o$7938 _o$7939)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-bigdec?") form)) (let* ((_o$7940 (keyword #f "op")) (_o$7941 (keyword #f "bigdec")) (_o$7942 (keyword #f "source")) (_o$7943 (jolt-invoke (var-deref "jolt.host" "form-bigdec-source") form))) (jolt-hash-map _o$7940 _o$7941 _o$7942 _o$7943)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-ns-value?") form)) (let* ((_o$7944 (keyword #f "op")) (_o$7945 (keyword #f "the-ns")) (_o$7946 (keyword #f "name")) (_o$7947 (jolt-invoke (var-deref "jolt.host" "form-ns-value-name") form))) (jolt-hash-map _o$7944 _o$7945 _o$7946 _o$7947)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "unsupported form") jolt-nil))))))))))))))))) analyze))) + (def-var! "jolt.analyzer" "analyze" (letrec ((analyze (case-lambda ((ctx form) (let fnrec7917 ((ctx ctx) (form form)) (analyze ctx form (jolt-invoke (var-deref "jolt.analyzer" "empty-env"))))) ((ctx form env) (let fnrec7918 ((ctx ctx) (form form) (env env)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-literal?") form)) (jolt-invoke (var-deref "jolt.ir" "const") form) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-sym?") form)) (jolt-invoke (var-deref "jolt.analyzer" "analyze-symbol") ctx form env) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-vec?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "vector-node") (let* ((_a$7920 (var-deref "clojure.core" "mapv")) (_a$7921 (lambda (p__99_) (let fnrec7919 ((p__99_ p__99_)) (analyze ctx p__99_ env)))) (_a$7922 (jolt-invoke (var-deref "jolt.host" "form-vec-items") form))) (jolt-invoke _a$7920 _a$7921 _a$7922)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-map?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "map-node") (let* ((_a$7926 (var-deref "clojure.core" "mapv")) (_a$7927 (lambda (p) (let fnrec7923 ((p p)) (let* ((_o$7924 (analyze ctx (jolt-first p) env)) (_o$7925 (analyze ctx (jolt-invoke (var-deref "clojure.core" "second") p) env))) (jolt-vector _o$7924 _o$7925))))) (_a$7928 (jolt-invoke (var-deref "jolt.host" "form-map-pairs") form))) (jolt-invoke _a$7926 _a$7927 _a$7928)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-set?") form)) (jolt-invoke (var-deref "jolt.analyzer" "with-coll-meta") ctx form env (jolt-invoke (var-deref "jolt.ir" "set-node") (let* ((_a$7930 (var-deref "clojure.core" "mapv")) (_a$7931 (lambda (p__100_) (let fnrec7929 ((p__100_ p__100_)) (analyze ctx p__100_ env)))) (_a$7932 (jolt-invoke (var-deref "jolt.host" "form-set-items") form))) (jolt-invoke _a$7930 _a$7931 _a$7932)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-list?") form)) (jolt-invoke (var-deref "jolt.analyzer" "analyze-list") ctx form env) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-regex?") form)) (let* ((_o$7933 (keyword #f "op")) (_o$7934 (keyword #f "regex")) (_o$7935 (keyword #f "source")) (_o$7936 (jolt-invoke (var-deref "jolt.host" "form-regex-source") form))) (jolt-hash-map _o$7933 _o$7934 _o$7935 _o$7936)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-inst?") form)) (let* ((_o$7937 (keyword #f "op")) (_o$7938 (keyword #f "inst")) (_o$7939 (keyword #f "source")) (_o$7940 (jolt-invoke (var-deref "jolt.host" "form-inst-source") form))) (jolt-hash-map _o$7937 _o$7938 _o$7939 _o$7940)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-uuid?") form)) (let* ((_o$7941 (keyword #f "op")) (_o$7942 (keyword #f "uuid")) (_o$7943 (keyword #f "source")) (_o$7944 (jolt-invoke (var-deref "jolt.host" "form-uuid-source") form))) (jolt-hash-map _o$7941 _o$7942 _o$7943 _o$7944)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-bigdec?") form)) (let* ((_o$7945 (keyword #f "op")) (_o$7946 (keyword #f "bigdec")) (_o$7947 (keyword #f "source")) (_o$7948 (jolt-invoke (var-deref "jolt.host" "form-bigdec-source") form))) (jolt-hash-map _o$7945 _o$7946 _o$7947 _o$7948)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.host" "form-ns-value?") form)) (let* ((_o$7949 (keyword #f "op")) (_o$7950 (keyword #f "the-ns")) (_o$7951 (keyword #f "name")) (_o$7952 (jolt-invoke (var-deref "jolt.host" "form-ns-value-name") form))) (jolt-hash-map _o$7949 _o$7950 _o$7951 _o$7952)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.analyzer" "uncompilable") "unsupported form") jolt-nil))))))))))))))))) analyze))) (guard (e (#t #f)) (def-var-with-meta! "jolt.backend-scheme" "native-ops" (let* ((_o$6366 "+") (_o$6367 "+") (_o$6368 "-") (_o$6369 "-") (_o$6370 "*") (_o$6371 "*") (_o$6372 "/") (_o$6373 "/") (_o$6374 "<") (_o$6375 "<") (_o$6376 ">") (_o$6377 ">") (_o$6378 "<=") (_o$6379 "<=") (_o$6380 ">=") (_o$6381 ">=") (_o$6382 "=") (_o$6383 "jolt=") (_o$6384 "inc") (_o$6385 "jolt-inc") (_o$6386 "dec") (_o$6387 "jolt-dec") (_o$6388 "not") (_o$6389 "jolt-not") (_o$6390 "min") (_o$6391 "min") (_o$6392 "max") (_o$6393 "max") (_o$6394 "mod") (_o$6395 "modulo") (_o$6396 "rem") (_o$6397 "remainder") (_o$6398 "quot") (_o$6399 "quotient") (_o$6400 "vector") (_o$6401 "jolt-vector") (_o$6402 "hash-map") (_o$6403 "jolt-hash-map") (_o$6404 "hash-set") (_o$6405 "jolt-hash-set") (_o$6406 "conj") (_o$6407 "jolt-conj") (_o$6408 "get") (_o$6409 "jolt-get") (_o$6410 "nth") (_o$6411 "jolt-nth") (_o$6412 "count") (_o$6413 "jolt-count") (_o$6414 "assoc") (_o$6415 "jolt-assoc") (_o$6416 "dissoc") (_o$6417 "jolt-dissoc") (_o$6418 "contains?") (_o$6419 "jolt-contains?") (_o$6420 "empty?") (_o$6421 "jolt-empty?") (_o$6422 "peek") (_o$6423 "jolt-peek") (_o$6424 "pop") (_o$6425 "jolt-pop") (_o$6426 "first") (_o$6427 "jolt-first") (_o$6428 "rest") (_o$6429 "jolt-rest") (_o$6430 "next") (_o$6431 "jolt-next") (_o$6432 "seq") (_o$6433 "jolt-seq") (_o$6434 "cons") (_o$6435 "jolt-cons") (_o$6436 "list") (_o$6437 "jolt-list") (_o$6438 "reverse") (_o$6439 "jolt-reverse") (_o$6440 "last") (_o$6441 "jolt-last") (_o$6442 "map") (_o$6443 "jolt-map") (_o$6444 "filter") (_o$6445 "jolt-filter") (_o$6446 "remove") (_o$6447 "jolt-remove") (_o$6448 "reduce") (_o$6449 "jolt-reduce") (_o$6450 "into") (_o$6451 "jolt-into") (_o$6452 "concat") (_o$6453 "jolt-concat") (_o$6454 "apply") (_o$6455 "jolt-apply") (_o$6456 "range") (_o$6457 "jolt-range") (_o$6458 "take") (_o$6459 "jolt-take") (_o$6460 "drop") (_o$6461 "jolt-drop") (_o$6462 "keys") (_o$6463 "jolt-keys") (_o$6464 "vals") (_o$6465 "jolt-vals") (_o$6466 "even?") (_o$6467 "jolt-even?") (_o$6468 "odd?") (_o$6469 "jolt-odd?") (_o$6470 "pos?") (_o$6471 "jolt-pos?") (_o$6472 "neg?") (_o$6473 "jolt-neg?") (_o$6474 "zero?") (_o$6475 "jolt-zero?") (_o$6476 "identity") (_o$6477 "jolt-identity") (_o$6478 "nil?") (_o$6479 "jolt-nil?") (_o$6480 "some?") (_o$6481 "jolt-some?") (_o$6482 "ex-info") (_o$6483 "jolt-ex-info") (_o$6484 "protocol-dispatch1") (_o$6485 "protocol-dispatch1") (_o$6486 "protocol-dispatch2") (_o$6487 "protocol-dispatch2") (_o$6488 "protocol-dispatch3") (_o$6489 "protocol-dispatch3")) (jolt-hash-map _o$6366 _o$6367 _o$6368 _o$6369 _o$6370 _o$6371 _o$6372 _o$6373 _o$6374 _o$6375 _o$6376 _o$6377 _o$6378 _o$6379 _o$6380 _o$6381 _o$6382 _o$6383 _o$6384 _o$6385 _o$6386 _o$6387 _o$6388 _o$6389 _o$6390 _o$6391 _o$6392 _o$6393 _o$6394 _o$6395 _o$6396 _o$6397 _o$6398 _o$6399 _o$6400 _o$6401 _o$6402 _o$6403 _o$6404 _o$6405 _o$6406 _o$6407 _o$6408 _o$6409 _o$6410 _o$6411 _o$6412 _o$6413 _o$6414 _o$6415 _o$6416 _o$6417 _o$6418 _o$6419 _o$6420 _o$6421 _o$6422 _o$6423 _o$6424 _o$6425 _o$6426 _o$6427 _o$6428 _o$6429 _o$6430 _o$6431 _o$6432 _o$6433 _o$6434 _o$6435 _o$6436 _o$6437 _o$6438 _o$6439 _o$6440 _o$6441 _o$6442 _o$6443 _o$6444 _o$6445 _o$6446 _o$6447 _o$6448 _o$6449 _o$6450 _o$6451 _o$6452 _o$6453 _o$6454 _o$6455 _o$6456 _o$6457 _o$6458 _o$6459 _o$6460 _o$6461 _o$6462 _o$6463 _o$6464 _o$6465 _o$6466 _o$6467 _o$6468 _o$6469 _o$6470 _o$6471 _o$6472 _o$6473 _o$6474 _o$6475 _o$6476 _o$6477 _o$6478 _o$6479 _o$6480 _o$6481 _o$6482 _o$6483 _o$6484 _o$6485 _o$6486 _o$6487 _o$6488 _o$6489)) (let* ((_o$6490 (keyword #f "private")) (_o$6491 #t)) (jolt-hash-map _o$6490 _o$6491)))) (guard (e (#t #f)) @@ -181,7 +181,7 @@ (guard (e (#t #f)) (declare-var! "jolt.backend-scheme" "emit")) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "char-escape" (letrec ((char-escape (lambda (cp) (let fnrec6819 ((cp cp)) (if (jolt= cp 34) "\\\"" (if (jolt= cp 92) "\\\\" (if (jolt= cp 10) "\\n" (if (jolt= cp 9) "\\t" (if (jolt= cp 13) "\\r" (if (jolt-truthy? (let* ((and__25__auto (>= cp 32))) (if (jolt-truthy? and__25__auto) (< cp 127) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "char") cp)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "str") "\\x" (jolt-invoke (var-deref "clojure.core" "format") "%x" cp) ";") jolt-nil))))))))))) char-escape))) + (def-var! "jolt.backend-scheme" "char-escape" (letrec ((char-escape (lambda (cp) (let fnrec6819 ((cp cp)) (if (jolt= cp 34) "\\\"" (if (jolt= cp 92) "\\\\" (if (jolt= cp 10) "\\n" (if (jolt= cp 9) "\\t" (if (jolt= cp 13) "\\r" (if (let* ((and__25__auto (>= cp 32))) (if (jolt-truthy? and__25__auto) (< cp 127) and__25__auto)) (jolt-invoke (var-deref "clojure.core" "str") (jolt-invoke (var-deref "clojure.core" "char") cp)) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "str") "\\x" (jolt-invoke (var-deref "clojure.core" "format") "%x" cp) ";") jolt-nil))))))))))) char-escape))) (guard (e (#t #f)) (def-var! "jolt.backend-scheme" "chez-str-lit" (letrec ((chez-str-lit (lambda (s) (let fnrec6820 ((s s)) (jolt-invoke (var-deref "clojure.core" "str") "\"" (jolt-apply (var-deref "clojure.core" "str") (jolt-map (lambda (c) (let fnrec6821 ((c c)) (jolt-invoke (var-deref "jolt.backend-scheme" "char-escape") (jolt-invoke (var-deref "clojure.core" "int") c)))) s)) "\""))))) chez-str-lit))) (guard (e (#t #f)) @@ -231,49 +231,49 @@ (guard (e (#t #f)) (def-var! "jolt.backend-scheme" "native-op" (letrec ((native-op (lambda (fnode nargs) (let fnrec6990 ((fnode fnode) (nargs nargs)) (let* ((nm (let* ((G__132 (jolt-get fnode (keyword #f "op")))) (if (jolt= G__132 (keyword #f "var")) (if (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) (jolt-get fnode (keyword #f "name")) jolt-nil) (if (jolt= G__132 (keyword #f "host")) (jolt-get fnode (keyword #f "name")) jolt-nil)))) (op (if (jolt-truthy? nm) (jolt-invoke (var-deref "jolt.backend-scheme" "native-ops") nm) jolt-nil)) (arity-ok (if (jolt-truthy? nm) (jolt-invoke (var-deref "jolt.backend-scheme" "op-arity") nm) jolt-nil))) (if (jolt-nil? op) jolt-nil (if (jolt-truthy? (let* ((and__25__auto arity-ok)) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke arity-ok nargs)) and__25__auto))) jolt-nil (if (jolt-truthy? (keyword #f "else")) op jolt-nil)))))))) native-op))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "ifn-kind" (letrec ((ifn-kind (lambda (fnode) (let fnrec6991 ((fnode fnode)) (let* ((G__133 (jolt-get fnode (keyword #f "op")))) (if (jolt= G__133 (keyword #f "const")) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get fnode (keyword #f "val")))) (keyword #f "keyword") jolt-nil) (if (jolt-truthy? (let* ((or__26__auto (jolt= G__133 (keyword #f "map")))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt= G__133 (keyword #f "set")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= G__133 (keyword #f "vector"))))))) (keyword #f "coll") jolt-nil))))))) ifn-kind))) + (def-var! "jolt.backend-scheme" "ifn-kind" (letrec ((ifn-kind (lambda (fnode) (let fnrec6991 ((fnode fnode)) (let* ((G__133 (jolt-get fnode (keyword #f "op")))) (if (jolt= G__133 (keyword #f "const")) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get fnode (keyword #f "val")))) (keyword #f "keyword") jolt-nil) (if (let* ((or__26__auto (jolt= G__133 (keyword #f "map")))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt= G__133 (keyword #f "set")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= G__133 (keyword #f "vector")))))) (keyword #f "coll") jolt-nil))))))) ifn-kind))) (guard (e (#t #f)) (def-var! "jolt.backend-scheme" "stdlib-var?" (letrec ((stdlib-var? (lambda (n) (let fnrec6992 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.string" "starts-with?") (let* ((or__26__auto (jolt-get n (keyword #f "ns")))) (if (jolt-truthy? or__26__auto) or__26__auto "")) "clojure.") and__25__auto)))))) stdlib-var?))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "emit-numeric" (letrec ((emit-numeric (lambda (kind nm args order-args) (let fnrec6993 ((kind kind) (nm nm) (args args) (order-args order-args)) (if (jolt-truthy? (let* ((and__25__auto (jolt= kind (keyword #f "double")))) (if (jolt-truthy? and__25__auto) (jolt= nm "inc") and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") "(fl+ " (jolt-first args) " 1.0)") (if (jolt-truthy? (let* ((and__25__auto (jolt= kind (keyword #f "double")))) (if (jolt-truthy? and__25__auto) (jolt= nm "dec") and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") "(fl- " (jolt-first args) " 1.0)") (if (jolt-truthy? (let* ((and__25__auto (jolt= kind (keyword #f "long")))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= nm "inc"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= nm "unchecked-inc"))) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") "(fx1+ " (jolt-first args) ")") (if (jolt-truthy? (let* ((and__25__auto (jolt= kind (keyword #f "long")))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= nm "dec"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= nm "unchecked-dec"))) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") "(fx1- " (jolt-first args) ")") (if (jolt-truthy? (keyword #f "else")) (let* ((op (let* ((G__134 kind)) (if (jolt= G__134 (keyword #f "double")) (jolt-invoke (var-deref "jolt.backend-scheme" "dbl-ops") nm) (if (jolt= G__134 (keyword #f "long")) (jolt-invoke (var-deref "jolt.backend-scheme" "lng-ops") nm) (if (jolt= G__134 (keyword #f "bigdec")) (jolt-invoke (var-deref "jolt.backend-scheme" "bd-ops") nm) (jolt-throw (let* ((_a$6994 (jolt-invoke (var-deref "clojure.core" "str") "No matching clause: " G__134)) (_a$6995 (jolt-hash-map))) (jolt-ex-info _a$6994 _a$6995))))))))) (jolt-invoke order-args (lambda (as) (let fnrec6996 ((as as)) (jolt-invoke (var-deref "clojure.core" "str") "(" op " " (jolt-invoke (var-deref "clojure.string" "join") " " as) ")"))))) jolt-nil))))))))) emit-numeric))) + (def-var! "jolt.backend-scheme" "emit-numeric" (letrec ((emit-numeric (lambda (kind nm args order-args) (let fnrec6993 ((kind kind) (nm nm) (args args) (order-args order-args)) (if (let* ((and__25__auto (jolt= kind (keyword #f "double")))) (if (jolt-truthy? and__25__auto) (jolt= nm "inc") and__25__auto)) (jolt-invoke (var-deref "clojure.core" "str") "(fl+ " (jolt-first args) " 1.0)") (if (let* ((and__25__auto (jolt= kind (keyword #f "double")))) (if (jolt-truthy? and__25__auto) (jolt= nm "dec") and__25__auto)) (jolt-invoke (var-deref "clojure.core" "str") "(fl- " (jolt-first args) " 1.0)") (if (let* ((and__25__auto (jolt= kind (keyword #f "long")))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= nm "inc"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= nm "unchecked-inc"))) and__25__auto)) (jolt-invoke (var-deref "clojure.core" "str") "(fx1+ " (jolt-first args) ")") (if (let* ((and__25__auto (jolt= kind (keyword #f "long")))) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt= nm "dec"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= nm "unchecked-dec"))) and__25__auto)) (jolt-invoke (var-deref "clojure.core" "str") "(fx1- " (jolt-first args) ")") (if (jolt-truthy? (keyword #f "else")) (let* ((op (let* ((G__134 kind)) (if (jolt= G__134 (keyword #f "double")) (jolt-invoke (var-deref "jolt.backend-scheme" "dbl-ops") nm) (if (jolt= G__134 (keyword #f "long")) (jolt-invoke (var-deref "jolt.backend-scheme" "lng-ops") nm) (if (jolt= G__134 (keyword #f "bigdec")) (jolt-invoke (var-deref "jolt.backend-scheme" "bd-ops") nm) (jolt-throw (let* ((_a$6994 (jolt-invoke (var-deref "clojure.core" "str") "No matching clause: " G__134)) (_a$6995 (jolt-hash-map))) (jolt-ex-info _a$6994 _a$6995))))))))) (jolt-invoke order-args (lambda (as) (let fnrec6996 ((as as)) (jolt-invoke (var-deref "clojure.core" "str") "(" op " " (jolt-invoke (var-deref "clojure.string" "join") " " as) ")"))))) jolt-nil))))))))) emit-numeric))) (guard (e (#t #f)) (def-var! "jolt.backend-scheme" "emit-invoke" (letrec ((emit-invoke (lambda (node) (let fnrec6997 ((node node)) (let* ((fnode (jolt-get node (keyword #f "fn"))) (arg-nodes (jolt-get node (keyword #f "args"))) (args (jolt-invoke (var-deref "clojure.core" "mapv") (var-deref "jolt.backend-scheme" "emit") arg-nodes)) (nop (jolt-invoke (var-deref "jolt.backend-scheme" "native-op") fnode (jolt-count args))) (kind (jolt-invoke (var-deref "jolt.backend-scheme" "ifn-kind") fnode)) (order-args (lambda (build) (let fnrec6998 ((build build)) (jolt-invoke (var-deref "jolt.backend-scheme" "ordered-call") arg-nodes args build)))) (defstr (lambda (as) (let fnrec6999 ((as as)) (if (> (jolt-count as) 1) (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-nth as 1)) "")))) (invoke (lambda () (let fnrec7000 () (let* ((_a$7002 (var-deref "jolt.backend-scheme" "ordered-call")) (_a$7003 (jolt-cons fnode arg-nodes)) (_a$7004 (jolt-cons (jolt-invoke (var-deref "jolt.backend-scheme" "emit") fnode) args)) (_a$7005 (lambda (G__135) (let fnrec7001 ((G__135 G__135)) (let* ((G__136 G__135) (f (jolt-nth G__136 0 jolt-nil)) (as (jolt-invoke (var-deref "clojure.core" "nthnext") G__136 1))) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-invoke " f (if (jolt-truthy? (jolt-seq as)) (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " as)) "") ")")))))) (jolt-invoke _a$7002 _a$7003 _a$7004 _a$7005)))))) (if (jolt-truthy? (jolt-get node (keyword #f "num-kind"))) (let* ((_a$7006 (var-deref "jolt.backend-scheme" "emit-numeric")) (_a$7007 (jolt-get node (keyword #f "num-kind"))) (_a$7008 (jolt-get fnode (keyword #f "name"))) (_a$7009 args) (_a$7010 order-args)) (jolt-invoke _a$7006 _a$7007 _a$7008 _a$7009 _a$7010)) (if (jolt-truthy? (let* ((and__25__auto nop)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-empty? args))) (if (jolt-truthy? and__25__auto) (jolt= nop "+") and__25__auto)) and__25__auto))) "0" (if (jolt-truthy? (let* ((and__25__auto nop)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-empty? args))) (if (jolt-truthy? and__25__auto) (jolt= nop "*") and__25__auto)) and__25__auto))) "1" (if (jolt-truthy? (let* ((and__25__auto nop)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= 1 (jolt-count args)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.backend-scheme" "cmp1-ops") nop) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "clojure.core" "str") "(begin " (jolt-first args) " #t)") (if (jolt-truthy? nop) (jolt-invoke order-args (lambda (as) (let fnrec7011 ((as as)) (jolt-invoke (var-deref "clojure.core" "str") "(" nop " " (jolt-invoke (var-deref "clojure.string" "join") " " as) ")")))) (if (jolt= kind (keyword #f "keyword")) (jolt-invoke order-args (lambda (as) (let fnrec7012 ((as as)) (let* ((_a$7013 (var-deref "clojure.core" "str")) (_a$7014 "(jolt-get ") (_a$7015 (jolt-first as)) (_a$7016 " ") (_a$7017 (jolt-invoke (var-deref "jolt.backend-scheme" "emit") fnode)) (_a$7018 (jolt-invoke defstr as)) (_a$7019 ")")) (jolt-invoke _a$7013 _a$7014 _a$7015 _a$7016 _a$7017 _a$7018 _a$7019))))) (if (jolt= kind (keyword #f "coll")) (let* ((_a$7021 (var-deref "jolt.backend-scheme" "ordered-call")) (_a$7022 (jolt-cons fnode arg-nodes)) (_a$7023 (jolt-cons (jolt-invoke (var-deref "jolt.backend-scheme" "emit") fnode) args)) (_a$7024 (lambda (G__137) (let fnrec7020 ((G__137 G__137)) (let* ((G__138 G__137) (c (jolt-nth G__138 0 jolt-nil)) (as (jolt-invoke (var-deref "clojure.core" "nthnext") G__138 1))) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-get " c " " (jolt-invoke (var-deref "clojure.string" "join") " " as) ")")))))) (jolt-invoke _a$7021 _a$7022 _a$7023 _a$7024)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.backend-scheme" "stdlib-var?") fnode))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.backend-scheme" "prelude-mode?"))) and__25__auto))) (jolt-throw (let* ((_a$7031 (let* ((_a$7025 (var-deref "clojure.core" "str")) (_a$7026 "emit: unsupported stdlib fn `") (_a$7027 (jolt-get fnode (keyword #f "ns"))) (_a$7028 "/") (_a$7029 (jolt-get fnode (keyword #f "name"))) (_a$7030 "` (no core on Chez yet)")) (jolt-invoke _a$7025 _a$7026 _a$7027 _a$7028 _a$7029 _a$7030))) (_a$7032 (jolt-hash-map))) (jolt-ex-info _a$7031 _a$7032))) (if (jolt= (keyword #f "host-static") (jolt-get fnode (keyword #f "op"))) (jolt-invoke order-args (lambda (as) (let fnrec7033 ((as as)) (let* ((_a$7034 (var-deref "clojure.core" "str")) (_a$7035 "(host-static-call ") (_a$7036 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get fnode (keyword #f "class")))) (_a$7037 " ") (_a$7038 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get fnode (keyword #f "member")))) (_a$7039 (if (jolt-empty? as) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " as)))) (_a$7040 ")")) (jolt-invoke _a$7034 _a$7035 _a$7036 _a$7037 _a$7038 _a$7039 _a$7040))))) (if (jolt= (keyword #f "host") (jolt-get fnode (keyword #f "op"))) (jolt-throw (let* ((_a$7041 (jolt-invoke (var-deref "clojure.core" "str") "emit: unsupported host call `" (jolt-get fnode (keyword #f "name")) "`")) (_a$7042 (jolt-hash-map))) (jolt-ex-info _a$7041 _a$7042))) (if (jolt= (keyword #f "local") (jolt-get fnode (keyword #f "op"))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "*known-procs*") (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") (jolt-get fnode (keyword #f "name"))))) (jolt-invoke order-args (lambda (as) (let fnrec7043 ((as as)) (let* ((_a$7044 (var-deref "clojure.core" "str")) (_a$7045 "(") (_a$7046 (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") (jolt-get fnode (keyword #f "name")))) (_a$7047 (if (jolt-truthy? (jolt-seq as)) (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " as)) "")) (_a$7048 ")")) (jolt-invoke _a$7044 _a$7045 _a$7046 _a$7047 _a$7048))))) (jolt-invoke invoke)) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (let* ((_a$7049 (var-deref "jolt.backend-scheme" "direct-linkable?")) (_a$7050 (jolt-get fnode (keyword #f "ns"))) (_a$7051 (jolt-get fnode (keyword #f "name")))) (jolt-invoke _a$7049 _a$7050 _a$7051)))) (if (jolt-truthy? and__25__auto) (let* ((_a$7052 (var-deref "jolt.backend-scheme" "direct-link-fn?")) (_a$7053 (jolt-get fnode (keyword #f "ns"))) (_a$7054 (jolt-get fnode (keyword #f "name")))) (jolt-invoke _a$7052 _a$7053 _a$7054)) and__25__auto)) and__25__auto))) (jolt-invoke order-args (lambda (as) (let fnrec7055 ((as as)) (let* ((_a$7059 (var-deref "clojure.core" "str")) (_a$7060 "(") (_a$7061 (let* ((_a$7056 (var-deref "jolt.backend-scheme" "dl-name")) (_a$7057 (jolt-get fnode (keyword #f "ns"))) (_a$7058 (jolt-get fnode (keyword #f "name")))) (jolt-invoke _a$7056 _a$7057 _a$7058))) (_a$7062 (if (jolt-truthy? (jolt-seq as)) (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " as)) "")) (_a$7063 ")")) (jolt-invoke _a$7059 _a$7060 _a$7061 _a$7062 _a$7063))))) (if (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))) (jolt-invoke invoke) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke invoke) jolt-nil))))))))))))))))))) emit-invoke))) (guard (e (#t #f)) (def-var! "jolt.backend-scheme" "emit-try" (letrec ((emit-try (lambda (node) (let fnrec7064 ((node node)) (let* ((core (let* ((temp__16__auto (jolt-get node (keyword #f "catch-sym")))) (if (jolt-truthy? temp__16__auto) (let* ((cs temp__16__auto)) (let* ((_a$7065 (var-deref "clojure.core" "str")) (_a$7066 "(guard (") (_a$7067 (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") cs)) (_a$7068 " (else ") (_a$7069 (jolt-invoke (var-deref "jolt.backend-scheme" "emit") (jolt-get node (keyword #f "catch-body")))) (_a$7070 ")) ") (_a$7071 (jolt-invoke (var-deref "jolt.backend-scheme" "emit") (jolt-get node (keyword #f "body")))) (_a$7072 ")")) (jolt-invoke _a$7065 _a$7066 _a$7067 _a$7068 _a$7069 _a$7070 _a$7071 _a$7072))) (jolt-invoke (var-deref "jolt.backend-scheme" "emit") (jolt-get node (keyword #f "body"))))))) (let* ((temp__16__auto (jolt-get node (keyword #f "finally")))) (if (jolt-truthy? temp__16__auto) (let* ((fin temp__16__auto)) (jolt-invoke (var-deref "clojure.core" "str") "(dynamic-wind (lambda () #f) (lambda () " core ") (lambda () " (jolt-invoke (var-deref "jolt.backend-scheme" "emit") fin) "))")) core))))))) emit-try))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "returns-scheme-bool?" (letrec ((returns-scheme-bool? (lambda (node) (let fnrec7073 ((node node)) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get node (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "boolean?") (jolt-get node (keyword #f "val"))) and__25__auto))) #t (if (jolt= (keyword #f "invoke") (jolt-get node (keyword #f "op"))) (let* ((nop (let* ((_a$7074 (var-deref "jolt.backend-scheme" "native-op")) (_a$7075 (jolt-get node (keyword #f "fn"))) (_a$7076 (jolt-count (jolt-get node (keyword #f "args"))))) (jolt-invoke _a$7074 _a$7075 _a$7076)))) (if (jolt-truthy? (let* ((and__25__auto nop)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.backend-scheme" "bool-returning-ops") nop) and__25__auto))) #t #f)) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))))) returns-scheme-bool?))) + (def-var! "jolt.backend-scheme" "returns-scheme-bool?" (letrec ((returns-scheme-bool? (case-lambda ((node) (let fnrec7073 ((node node)) (returns-scheme-bool? node (jolt-hash-set)))) ((node bools) (let fnrec7074 ((node node) (bools bools)) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get node (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "boolean?") (jolt-get node (keyword #f "val"))) and__25__auto))) #t (if (jolt= (keyword #f "invoke") (jolt-get node (keyword #f "op"))) (let* ((nop (let* ((_a$7075 (var-deref "jolt.backend-scheme" "native-op")) (_a$7076 (jolt-get node (keyword #f "fn"))) (_a$7077 (jolt-count (jolt-get node (keyword #f "args"))))) (jolt-invoke _a$7075 _a$7076 _a$7077)))) (jolt-invoke (var-deref "clojure.core" "boolean") (let* ((and__25__auto nop)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.backend-scheme" "bool-returning-ops") nop) and__25__auto)))) (if (jolt= (keyword #f "local") (jolt-get node (keyword #f "op"))) (jolt-contains? bools (jolt-get node (keyword #f "name"))) (if (jolt= (keyword #f "if") (jolt-get node (keyword #f "op"))) (let* ((and__25__auto (returns-scheme-bool? (jolt-get node (keyword #f "then")) bools))) (if (jolt-truthy? and__25__auto) (returns-scheme-bool? (jolt-get node (keyword #f "else")) bools) and__25__auto)) (if (jolt= (keyword #f "let") (jolt-get node (keyword #f "op"))) (let* ((bools_PRIME_ (let* ((_a$7079 (lambda (s b) (let fnrec7078 ((s s) (b b)) (if (jolt-truthy? (returns-scheme-bool? (jolt-nth b 1) s)) (jolt-conj s (jolt-nth b 0)) (jolt-invoke (var-deref "clojure.core" "disj") s (jolt-nth b 0)))))) (_a$7080 bools) (_a$7081 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$7079 _a$7080 _a$7081)))) (returns-scheme-bool? (jolt-get node (keyword #f "body")) bools_PRIME_)) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))))))))) returns-scheme-bool?))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "emit" (letrec ((emit (lambda (node) (let fnrec7077 ((node node)) (let* ((G__139 (jolt-get node (keyword #f "op")))) (if (jolt= G__139 (keyword #f "const")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-const") (jolt-get node (keyword #f "val"))) (if (jolt= G__139 (keyword #f "local")) (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") (jolt-get node (keyword #f "name"))) (if (jolt= G__139 (keyword #f "var")) (let* ((core-proc (let* ((and__25__auto (jolt= "clojure.core" (jolt-get node (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.backend-scheme" "core-value-procs") (jolt-get node (keyword #f "name"))) and__25__auto)))) (if (jolt-truthy? core-proc) core-proc (if (jolt-truthy? (let* ((_a$7078 (var-deref "jolt.backend-scheme" "direct-linkable?")) (_a$7079 (jolt-get node (keyword #f "ns"))) (_a$7080 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$7078 _a$7079 _a$7080))) (let* ((_a$7081 (var-deref "jolt.backend-scheme" "dl-name")) (_a$7082 (jolt-get node (keyword #f "ns"))) (_a$7083 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$7081 _a$7082 _a$7083)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.backend-scheme" "stdlib-var?") node))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.backend-scheme" "prelude-mode?"))) and__25__auto))) (jolt-throw (let* ((_a$7090 (let* ((_a$7084 (var-deref "clojure.core" "str")) (_a$7085 "emit: unsupported stdlib ref `") (_a$7086 (jolt-get node (keyword #f "ns"))) (_a$7087 "/") (_a$7088 (jolt-get node (keyword #f "name"))) (_a$7089 "` (no core on Chez yet)")) (jolt-invoke _a$7084 _a$7085 _a$7086 _a$7087 _a$7088 _a$7089))) (_a$7091 (jolt-hash-map))) (jolt-ex-info _a$7090 _a$7091))) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7092 (var-deref "clojure.core" "str")) (_a$7093 "(var-deref ") (_a$7094 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7095 " ") (_a$7096 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7097 ")")) (jolt-invoke _a$7092 _a$7093 _a$7094 _a$7095 _a$7096 _a$7097)) jolt-nil))))) (if (jolt= G__139 (keyword #f "the-var")) (let* ((_a$7098 (var-deref "clojure.core" "str")) (_a$7099 "(jolt-var ") (_a$7100 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7101 " ") (_a$7102 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7103 ")")) (jolt-invoke _a$7098 _a$7099 _a$7100 _a$7101 _a$7102 _a$7103)) (if (jolt= G__139 (keyword #f "set-var")) (let* ((_a$7104 (var-deref "clojure.core" "str")) (_a$7105 "(jolt-var-set ") (_a$7106 (emit (jolt-get node (keyword #f "the-var")))) (_a$7107 " ") (_a$7108 (emit (jolt-get node (keyword #f "val")))) (_a$7109 ")")) (jolt-invoke _a$7104 _a$7105 _a$7106 _a$7107 _a$7108 _a$7109)) (if (jolt= G__139 (keyword #f "set-field")) (let* ((_a$7110 (var-deref "clojure.core" "str")) (_a$7111 "(jolt-set-field! ") (_a$7112 (emit (jolt-get node (keyword #f "obj")))) (_a$7113 " (keyword #f ") (_a$7114 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "field")))) (_a$7115 ") ") (_a$7116 (emit (jolt-get node (keyword #f "val")))) (_a$7117 ")")) (jolt-invoke _a$7110 _a$7111 _a$7112 _a$7113 _a$7114 _a$7115 _a$7116 _a$7117)) (if (jolt= G__139 (keyword #f "defmacro")) (let* ((_a$7118 (var-deref "clojure.core" "str")) (_a$7119 "(begin (def-var! ") (_a$7120 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7121 " ") (_a$7122 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7123 " ") (_a$7124 (emit (jolt-get node (keyword #f "fn")))) (_a$7125 ") (mark-macro! ") (_a$7126 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7127 " ") (_a$7128 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7129 ") jolt-nil)")) (jolt-invoke _a$7118 _a$7119 _a$7120 _a$7121 _a$7122 _a$7123 _a$7124 _a$7125 _a$7126 _a$7127 _a$7128 _a$7129)) (if (jolt= G__139 (keyword #f "host")) (jolt-throw (let* ((_a$7130 (jolt-invoke (var-deref "clojure.core" "str") "emit: unsupported host ref `" (jolt-get node (keyword #f "name")) "`")) (_a$7131 (jolt-hash-map))) (jolt-ex-info _a$7130 _a$7131))) (if (jolt= G__139 (keyword #f "host-static")) (let* ((_a$7132 (var-deref "clojure.core" "str")) (_a$7133 "(host-static-ref ") (_a$7134 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "class")))) (_a$7135 " ") (_a$7136 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "member")))) (_a$7137 ")")) (jolt-invoke _a$7132 _a$7133 _a$7134 _a$7135 _a$7136 _a$7137)) (if (jolt= G__139 (keyword #f "host-new")) (let* ((_a$7138 (var-deref "clojure.core" "str")) (_a$7139 "(host-new ") (_a$7140 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "class")))) (_a$7141 (let* ((args (jolt-map emit (jolt-get node (keyword #f "args"))))) (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args))))) (_a$7142 ")")) (jolt-invoke _a$7138 _a$7139 _a$7140 _a$7141 _a$7142)) (if (jolt= G__139 (keyword #f "if")) (let* ((test (jolt-get node (keyword #f "test"))) (t (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "returns-scheme-bool?") test)) (emit test) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-truthy? " (emit test) ")")))) (let* ((_a$7143 (var-deref "clojure.core" "str")) (_a$7144 "(if ") (_a$7145 t) (_a$7146 " ") (_a$7147 (emit (jolt-get node (keyword #f "then")))) (_a$7148 " ") (_a$7149 (emit (jolt-get node (keyword #f "else")))) (_a$7150 ")")) (jolt-invoke _a$7143 _a$7144 _a$7145 _a$7146 _a$7147 _a$7148 _a$7149 _a$7150))) (if (jolt= G__139 (keyword #f "do")) (let* ((_a$7151 (var-deref "clojure.core" "str")) (_a$7152 "(begin ") (_a$7153 (jolt-invoke (var-deref "clojure.string" "join") " " (jolt-map emit (jolt-get node (keyword #f "statements"))))) (_a$7154 (if (jolt-empty? (jolt-get node (keyword #f "statements"))) "" " ")) (_a$7155 (emit (jolt-get node (keyword #f "ret")))) (_a$7156 ")")) (jolt-invoke _a$7151 _a$7152 _a$7153 _a$7154 _a$7155 _a$7156)) (if (jolt= G__139 (keyword #f "invoke")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-invoke") node) (if (jolt= G__139 (keyword #f "vector")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-vector" (jolt-map emit (jolt-get node (keyword #f "items")))) (if (jolt= G__139 (keyword #f "set")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-hash-set" (jolt-map emit (jolt-get node (keyword #f "items")))) (if (jolt= G__139 (keyword #f "map")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-hash-map" (let* ((_a$7160 (var-deref "clojure.core" "mapcat")) (_a$7161 (lambda (p) (let fnrec7157 ((p p)) (let* ((_o$7158 (emit (jolt-nth p 0))) (_o$7159 (emit (jolt-nth p 1)))) (jolt-vector _o$7158 _o$7159))))) (_a$7162 (jolt-get node (keyword #f "pairs")))) (jolt-invoke _a$7160 _a$7161 _a$7162))) (if (jolt= G__139 (keyword #f "quote")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-quoted") (jolt-get node (keyword #f "form"))) (if (jolt= G__139 (keyword #f "throw")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-throw " (emit (jolt-get node (keyword #f "expr"))) ")") (if (jolt= G__139 (keyword #f "coerce")) (let* ((e (emit (jolt-get node (keyword #f "expr"))))) (if (jolt= (keyword #f "double") (jolt-get node (keyword #f "kind"))) (jolt-invoke (var-deref "clojure.core" "str") "(exact->inexact " e ")") (if (jolt= (keyword #f "long") (jolt-get node (keyword #f "kind"))) (jolt-invoke (var-deref "clojure.core" "str") "(jolt->fx " e ")") (if (jolt-truthy? (keyword #f "else")) e jolt-nil)))) (if (jolt= G__139 (keyword #f "try")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-try") node) (if (jolt= G__139 (keyword #f "regex")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-regex " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "inst")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-inst-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "uuid")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-uuid-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "bigdec")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-bigdec-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "the-ns")) (jolt-invoke (var-deref "clojure.core" "str") "(intern-ns! " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name"))) ")") (if (jolt= G__139 (keyword #f "host-call")) (let* ((m (jolt-get node (keyword #f "method"))) (target (emit (jolt-get node (keyword #f "target")))) (args (jolt-map emit (jolt-get node (keyword #f "args"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "supported-host-methods") m)) (let* ((_a$7163 (var-deref "clojure.core" "str")) (_a$7164 "(jolt-host-call ") (_a$7165 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") m)) (_a$7166 " ") (_a$7167 target) (_a$7168 (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args)))) (_a$7169 ")")) (jolt-invoke _a$7163 _a$7164 _a$7165 _a$7166 _a$7167 _a$7168 _a$7169)) (let* ((_a$7170 (var-deref "clojure.core" "str")) (_a$7171 "(record-method-dispatch ") (_a$7172 target) (_a$7173 " ") (_a$7174 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") m)) (_a$7175 " (jolt-vector") (_a$7176 (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args)))) (_a$7177 "))")) (jolt-invoke _a$7170 _a$7171 _a$7172 _a$7173 _a$7174 _a$7175 _a$7176 _a$7177)))) (if (jolt= G__139 (keyword #f "let")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-let") node) (if (jolt= G__139 (keyword #f "loop")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-loop") node) (if (jolt= G__139 (keyword #f "recur")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-recur") node) (if (jolt= G__139 (keyword #f "ffi-fn")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ffi-fn") node) (if (jolt= G__139 (keyword #f "ffi-callable")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ffi-callable") node) (if (jolt= G__139 (keyword #f "fn")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-fn") node) (if (jolt= G__139 (keyword #f "def")) (if (jolt-truthy? (jolt-get node (keyword #f "no-init"))) (let* ((_a$7178 (var-deref "clojure.core" "str")) (_a$7179 "(declare-var! ") (_a$7180 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7181 " ") (_a$7182 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7183 ")")) (jolt-invoke _a$7178 _a$7179 _a$7180 _a$7181 _a$7182 _a$7183)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "jmeta-nonempty?") (jolt-get node (keyword #f "meta")))) (let* ((_a$7184 (var-deref "clojure.core" "str")) (_a$7185 "(def-var-with-meta! ") (_a$7186 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7187 " ") (_a$7188 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7189 " ") (_a$7190 (emit (jolt-get node (keyword #f "init")))) (_a$7191 " ") (_a$7192 (jolt-invoke (var-deref "jolt.backend-scheme" "emit-def-meta") node)) (_a$7193 ")")) (jolt-invoke _a$7184 _a$7185 _a$7186 _a$7187 _a$7188 _a$7189 _a$7190 _a$7191 _a$7192 _a$7193)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7194 (var-deref "clojure.core" "str")) (_a$7195 "(def-var! ") (_a$7196 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7197 " ") (_a$7198 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7199 " ") (_a$7200 (emit (jolt-get node (keyword #f "init")))) (_a$7201 ")")) (jolt-invoke _a$7194 _a$7195 _a$7196 _a$7197 _a$7198 _a$7199 _a$7200 _a$7201)) jolt-nil))) (jolt-throw (let* ((_a$7202 (jolt-invoke (var-deref "clojure.core" "str") "emit: op not yet ported / unhandled: " (jolt-invoke (var-deref "clojure.core" "pr-str") (jolt-get node (keyword #f "op"))))) (_a$7203 (jolt-hash-map))) (jolt-ex-info _a$7202 _a$7203))))))))))))))))))))))))))))))))))))))))) emit))) + (def-var! "jolt.backend-scheme" "emit" (letrec ((emit (lambda (node) (let fnrec7082 ((node node)) (let* ((G__139 (jolt-get node (keyword #f "op")))) (if (jolt= G__139 (keyword #f "const")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-const") (jolt-get node (keyword #f "val"))) (if (jolt= G__139 (keyword #f "local")) (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") (jolt-get node (keyword #f "name"))) (if (jolt= G__139 (keyword #f "var")) (let* ((core-proc (let* ((and__25__auto (jolt= "clojure.core" (jolt-get node (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.backend-scheme" "core-value-procs") (jolt-get node (keyword #f "name"))) and__25__auto)))) (if (jolt-truthy? core-proc) core-proc (if (jolt-truthy? (let* ((_a$7083 (var-deref "jolt.backend-scheme" "direct-linkable?")) (_a$7084 (jolt-get node (keyword #f "ns"))) (_a$7085 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$7083 _a$7084 _a$7085))) (let* ((_a$7086 (var-deref "jolt.backend-scheme" "dl-name")) (_a$7087 (jolt-get node (keyword #f "ns"))) (_a$7088 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$7086 _a$7087 _a$7088)) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.backend-scheme" "stdlib-var?") node))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.backend-scheme" "prelude-mode?"))) and__25__auto))) (jolt-throw (let* ((_a$7095 (let* ((_a$7089 (var-deref "clojure.core" "str")) (_a$7090 "emit: unsupported stdlib ref `") (_a$7091 (jolt-get node (keyword #f "ns"))) (_a$7092 "/") (_a$7093 (jolt-get node (keyword #f "name"))) (_a$7094 "` (no core on Chez yet)")) (jolt-invoke _a$7089 _a$7090 _a$7091 _a$7092 _a$7093 _a$7094))) (_a$7096 (jolt-hash-map))) (jolt-ex-info _a$7095 _a$7096))) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7097 (var-deref "clojure.core" "str")) (_a$7098 "(var-deref ") (_a$7099 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7100 " ") (_a$7101 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7102 ")")) (jolt-invoke _a$7097 _a$7098 _a$7099 _a$7100 _a$7101 _a$7102)) jolt-nil))))) (if (jolt= G__139 (keyword #f "the-var")) (let* ((_a$7103 (var-deref "clojure.core" "str")) (_a$7104 "(jolt-var ") (_a$7105 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7106 " ") (_a$7107 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7108 ")")) (jolt-invoke _a$7103 _a$7104 _a$7105 _a$7106 _a$7107 _a$7108)) (if (jolt= G__139 (keyword #f "set-var")) (let* ((_a$7109 (var-deref "clojure.core" "str")) (_a$7110 "(jolt-var-set ") (_a$7111 (emit (jolt-get node (keyword #f "the-var")))) (_a$7112 " ") (_a$7113 (emit (jolt-get node (keyword #f "val")))) (_a$7114 ")")) (jolt-invoke _a$7109 _a$7110 _a$7111 _a$7112 _a$7113 _a$7114)) (if (jolt= G__139 (keyword #f "set-field")) (let* ((_a$7115 (var-deref "clojure.core" "str")) (_a$7116 "(jolt-set-field! ") (_a$7117 (emit (jolt-get node (keyword #f "obj")))) (_a$7118 " (keyword #f ") (_a$7119 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "field")))) (_a$7120 ") ") (_a$7121 (emit (jolt-get node (keyword #f "val")))) (_a$7122 ")")) (jolt-invoke _a$7115 _a$7116 _a$7117 _a$7118 _a$7119 _a$7120 _a$7121 _a$7122)) (if (jolt= G__139 (keyword #f "defmacro")) (let* ((_a$7123 (var-deref "clojure.core" "str")) (_a$7124 "(begin (def-var! ") (_a$7125 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7126 " ") (_a$7127 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7128 " ") (_a$7129 (emit (jolt-get node (keyword #f "fn")))) (_a$7130 ") (mark-macro! ") (_a$7131 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7132 " ") (_a$7133 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7134 ") jolt-nil)")) (jolt-invoke _a$7123 _a$7124 _a$7125 _a$7126 _a$7127 _a$7128 _a$7129 _a$7130 _a$7131 _a$7132 _a$7133 _a$7134)) (if (jolt= G__139 (keyword #f "host")) (jolt-throw (let* ((_a$7135 (jolt-invoke (var-deref "clojure.core" "str") "emit: unsupported host ref `" (jolt-get node (keyword #f "name")) "`")) (_a$7136 (jolt-hash-map))) (jolt-ex-info _a$7135 _a$7136))) (if (jolt= G__139 (keyword #f "host-static")) (let* ((_a$7137 (var-deref "clojure.core" "str")) (_a$7138 "(host-static-ref ") (_a$7139 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "class")))) (_a$7140 " ") (_a$7141 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "member")))) (_a$7142 ")")) (jolt-invoke _a$7137 _a$7138 _a$7139 _a$7140 _a$7141 _a$7142)) (if (jolt= G__139 (keyword #f "host-new")) (let* ((_a$7143 (var-deref "clojure.core" "str")) (_a$7144 "(host-new ") (_a$7145 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "class")))) (_a$7146 (let* ((args (jolt-map emit (jolt-get node (keyword #f "args"))))) (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args))))) (_a$7147 ")")) (jolt-invoke _a$7143 _a$7144 _a$7145 _a$7146 _a$7147)) (if (jolt= G__139 (keyword #f "if")) (let* ((test (jolt-get node (keyword #f "test"))) (t (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "returns-scheme-bool?") test)) (emit test) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-truthy? " (emit test) ")")))) (let* ((_a$7148 (var-deref "clojure.core" "str")) (_a$7149 "(if ") (_a$7150 t) (_a$7151 " ") (_a$7152 (emit (jolt-get node (keyword #f "then")))) (_a$7153 " ") (_a$7154 (emit (jolt-get node (keyword #f "else")))) (_a$7155 ")")) (jolt-invoke _a$7148 _a$7149 _a$7150 _a$7151 _a$7152 _a$7153 _a$7154 _a$7155))) (if (jolt= G__139 (keyword #f "do")) (let* ((_a$7156 (var-deref "clojure.core" "str")) (_a$7157 "(begin ") (_a$7158 (jolt-invoke (var-deref "clojure.string" "join") " " (jolt-map emit (jolt-get node (keyword #f "statements"))))) (_a$7159 (if (jolt-empty? (jolt-get node (keyword #f "statements"))) "" " ")) (_a$7160 (emit (jolt-get node (keyword #f "ret")))) (_a$7161 ")")) (jolt-invoke _a$7156 _a$7157 _a$7158 _a$7159 _a$7160 _a$7161)) (if (jolt= G__139 (keyword #f "invoke")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-invoke") node) (if (jolt= G__139 (keyword #f "vector")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-vector" (jolt-map emit (jolt-get node (keyword #f "items")))) (if (jolt= G__139 (keyword #f "set")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-hash-set" (jolt-map emit (jolt-get node (keyword #f "items")))) (if (jolt= G__139 (keyword #f "map")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ordered") "jolt-hash-map" (let* ((_a$7165 (var-deref "clojure.core" "mapcat")) (_a$7166 (lambda (p) (let fnrec7162 ((p p)) (let* ((_o$7163 (emit (jolt-nth p 0))) (_o$7164 (emit (jolt-nth p 1)))) (jolt-vector _o$7163 _o$7164))))) (_a$7167 (jolt-get node (keyword #f "pairs")))) (jolt-invoke _a$7165 _a$7166 _a$7167))) (if (jolt= G__139 (keyword #f "quote")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-quoted") (jolt-get node (keyword #f "form"))) (if (jolt= G__139 (keyword #f "throw")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-throw " (emit (jolt-get node (keyword #f "expr"))) ")") (if (jolt= G__139 (keyword #f "coerce")) (let* ((e (emit (jolt-get node (keyword #f "expr"))))) (if (jolt= (keyword #f "double") (jolt-get node (keyword #f "kind"))) (jolt-invoke (var-deref "clojure.core" "str") "(exact->inexact " e ")") (if (jolt= (keyword #f "long") (jolt-get node (keyword #f "kind"))) (jolt-invoke (var-deref "clojure.core" "str") "(jolt->fx " e ")") (if (jolt-truthy? (keyword #f "else")) e jolt-nil)))) (if (jolt= G__139 (keyword #f "try")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-try") node) (if (jolt= G__139 (keyword #f "regex")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-regex " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "inst")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-inst-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "uuid")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-uuid-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "bigdec")) (jolt-invoke (var-deref "clojure.core" "str") "(jolt-bigdec-from-string " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "source"))) ")") (if (jolt= G__139 (keyword #f "the-ns")) (jolt-invoke (var-deref "clojure.core" "str") "(intern-ns! " (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name"))) ")") (if (jolt= G__139 (keyword #f "host-call")) (let* ((m (jolt-get node (keyword #f "method"))) (target (emit (jolt-get node (keyword #f "target")))) (args (jolt-map emit (jolt-get node (keyword #f "args"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "supported-host-methods") m)) (let* ((_a$7168 (var-deref "clojure.core" "str")) (_a$7169 "(jolt-host-call ") (_a$7170 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") m)) (_a$7171 " ") (_a$7172 target) (_a$7173 (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args)))) (_a$7174 ")")) (jolt-invoke _a$7168 _a$7169 _a$7170 _a$7171 _a$7172 _a$7173 _a$7174)) (let* ((_a$7175 (var-deref "clojure.core" "str")) (_a$7176 "(record-method-dispatch ") (_a$7177 target) (_a$7178 " ") (_a$7179 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") m)) (_a$7180 " (jolt-vector") (_a$7181 (if (jolt-empty? args) "" (jolt-invoke (var-deref "clojure.core" "str") " " (jolt-invoke (var-deref "clojure.string" "join") " " args)))) (_a$7182 "))")) (jolt-invoke _a$7175 _a$7176 _a$7177 _a$7178 _a$7179 _a$7180 _a$7181 _a$7182)))) (if (jolt= G__139 (keyword #f "let")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-let") node) (if (jolt= G__139 (keyword #f "loop")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-loop") node) (if (jolt= G__139 (keyword #f "recur")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-recur") node) (if (jolt= G__139 (keyword #f "ffi-fn")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ffi-fn") node) (if (jolt= G__139 (keyword #f "ffi-callable")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-ffi-callable") node) (if (jolt= G__139 (keyword #f "fn")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit-fn") node) (if (jolt= G__139 (keyword #f "def")) (if (jolt-truthy? (jolt-get node (keyword #f "no-init"))) (let* ((_a$7183 (var-deref "clojure.core" "str")) (_a$7184 "(declare-var! ") (_a$7185 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7186 " ") (_a$7187 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7188 ")")) (jolt-invoke _a$7183 _a$7184 _a$7185 _a$7186 _a$7187 _a$7188)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "jmeta-nonempty?") (jolt-get node (keyword #f "meta")))) (let* ((_a$7189 (var-deref "clojure.core" "str")) (_a$7190 "(def-var-with-meta! ") (_a$7191 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7192 " ") (_a$7193 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7194 " ") (_a$7195 (emit (jolt-get node (keyword #f "init")))) (_a$7196 " ") (_a$7197 (jolt-invoke (var-deref "jolt.backend-scheme" "emit-def-meta") node)) (_a$7198 ")")) (jolt-invoke _a$7189 _a$7190 _a$7191 _a$7192 _a$7193 _a$7194 _a$7195 _a$7196 _a$7197 _a$7198)) (if (jolt-truthy? (keyword #f "else")) (let* ((_a$7199 (var-deref "clojure.core" "str")) (_a$7200 "(def-var! ") (_a$7201 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "ns")))) (_a$7202 " ") (_a$7203 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get node (keyword #f "name")))) (_a$7204 " ") (_a$7205 (emit (jolt-get node (keyword #f "init")))) (_a$7206 ")")) (jolt-invoke _a$7199 _a$7200 _a$7201 _a$7202 _a$7203 _a$7204 _a$7205 _a$7206)) jolt-nil))) (jolt-throw (let* ((_a$7207 (jolt-invoke (var-deref "clojure.core" "str") "emit: op not yet ported / unhandled: " (jolt-invoke (var-deref "clojure.core" "pr-str") (jolt-get node (keyword #f "op"))))) (_a$7208 (jolt-hash-map))) (jolt-ex-info _a$7207 _a$7208))))))))))))))))))))))))))))))))))))))))) emit))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "dl-opt-out?" (letrec ((dl-opt-out? (lambda (m) (let fnrec7204 ((m m)) (let* ((or__26__auto (jolt-get m (keyword #f "dynamic")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get m (keyword #f "redef")))))))) dl-opt-out?))) + (def-var! "jolt.backend-scheme" "dl-opt-out?" (letrec ((dl-opt-out? (lambda (m) (let fnrec7209 ((m m)) (let* ((or__26__auto (jolt-get m (keyword #f "dynamic")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get m (keyword #f "redef")))))))) dl-opt-out?))) (guard (e (#t #f)) - (def-var! "jolt.backend-scheme" "emit-top-form" (letrec ((emit-top-form (lambda (node) (let fnrec7205 ((node node)) (if (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.backend-scheme" "direct-link?"))) (jolt-invoke (var-deref "jolt.backend-scheme" "emit") node) (if (jolt= (keyword #f "do") (jolt-get node (keyword #f "op"))) (let* ((_a$7206 (var-deref "clojure.core" "str")) (_a$7207 "(begin ") (_a$7208 (jolt-invoke (var-deref "clojure.string" "join") " " (jolt-map emit-top-form (jolt-get node (keyword #f "statements"))))) (_a$7209 (if (jolt-empty? (jolt-get node (keyword #f "statements"))) "" " ")) (_a$7210 (emit-top-form (jolt-get node (keyword #f "ret")))) (_a$7211 ")")) (jolt-invoke _a$7206 _a$7207 _a$7208 _a$7209 _a$7210 _a$7211)) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-get node (keyword #f "no-init"))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "jolt.backend-scheme" "dl-opt-out?") (jolt-get node (keyword #f "meta")))) and__25__auto)) and__25__auto))) (let* ((ns (jolt-get node (keyword #f "ns"))) (nm (jolt-get node (keyword #f "name"))) (b (jolt-invoke (var-deref "jolt.backend-scheme" "dl-name") ns nm)) (fn? (jolt= (keyword #f "fn") (jolt-get (jolt-get node (keyword #f "init")) (keyword #f "op")))) (pos (jolt-get node (keyword #f "pos"))) (frame-name (if (jolt-truthy? fn?) (let* ((temp__16__auto (jolt-get (jolt-get node (keyword #f "init")) (keyword #f "name")))) (if (jolt-truthy? temp__16__auto) (let* ((fnm temp__16__auto)) (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") fnm)) b)) jolt-nil)) (reg (if (jolt-truthy? (let* ((and__25__auto fn?)) (if (jolt-truthy? and__25__auto) pos and__25__auto))) (let* ((_a$7212 (var-deref "clojure.core" "str")) (_a$7213 " (jolt-register-source! ") (_a$7214 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") frame-name)) (_a$7215 " ") (_a$7216 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7217 " ") (_a$7218 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7219 " ") (_a$7220 (if (jolt-truthy? (jolt-get pos (keyword #f "file"))) (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get pos (keyword #f "file"))) "jolt-nil")) (_a$7221 " ") (_a$7222 (let* ((or__26__auto (jolt-get pos (keyword #f "line")))) (if (jolt-truthy? or__26__auto) or__26__auto 0))) (_a$7223 ")")) (jolt-invoke _a$7212 _a$7213 _a$7214 _a$7215 _a$7216 _a$7217 _a$7218 _a$7219 _a$7220 _a$7221 _a$7222 _a$7223)) jolt-nil))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.backend-scheme" "direct-link-defined") jolt-conj (jolt-invoke (var-deref "jolt.backend-scheme" "dl-fqn") ns nm)) (if (jolt-truthy? fn?) (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.backend-scheme" "direct-link-fns") jolt-conj (jolt-invoke (var-deref "jolt.backend-scheme" "dl-fqn") ns nm)) jolt-nil) (let* ((init (jolt-invoke (var-deref "jolt.backend-scheme" "emit") (jolt-get node (keyword #f "init"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "jmeta-nonempty?") (jolt-get node (keyword #f "meta")))) (let* ((_a$7224 (var-deref "clojure.core" "str")) (_a$7225 "(begin (define ") (_a$7226 b) (_a$7227 " ") (_a$7228 init) (_a$7229 ") (def-var-with-meta! ") (_a$7230 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7231 " ") (_a$7232 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7233 " ") (_a$7234 b) (_a$7235 " ") (_a$7236 (jolt-invoke (var-deref "jolt.backend-scheme" "emit-def-meta") node)) (_a$7237 ")") (_a$7238 (let* ((or__26__auto reg)) (if (jolt-truthy? or__26__auto) or__26__auto ""))) (_a$7239 ")")) (jolt-invoke _a$7224 _a$7225 _a$7226 _a$7227 _a$7228 _a$7229 _a$7230 _a$7231 _a$7232 _a$7233 _a$7234 _a$7235 _a$7236 _a$7237 _a$7238 _a$7239)) (let* ((_a$7240 (var-deref "clojure.core" "str")) (_a$7241 "(begin (define ") (_a$7242 b) (_a$7243 " ") (_a$7244 init) (_a$7245 ") (def-var! ") (_a$7246 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7247 " ") (_a$7248 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7249 " ") (_a$7250 b) (_a$7251 ")") (_a$7252 (let* ((or__26__auto reg)) (if (jolt-truthy? or__26__auto) or__26__auto ""))) (_a$7253 ")")) (jolt-invoke _a$7240 _a$7241 _a$7242 _a$7243 _a$7244 _a$7245 _a$7246 _a$7247 _a$7248 _a$7249 _a$7250 _a$7251 _a$7252 _a$7253)))))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit") node) jolt-nil)))))))) emit-top-form))) + (def-var! "jolt.backend-scheme" "emit-top-form" (letrec ((emit-top-form (lambda (node) (let fnrec7210 ((node node)) (if (jolt-not (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "jolt.backend-scheme" "direct-link?"))) (jolt-invoke (var-deref "jolt.backend-scheme" "emit") node) (if (jolt= (keyword #f "do") (jolt-get node (keyword #f "op"))) (let* ((_a$7211 (var-deref "clojure.core" "str")) (_a$7212 "(begin ") (_a$7213 (jolt-invoke (var-deref "clojure.string" "join") " " (jolt-map emit-top-form (jolt-get node (keyword #f "statements"))))) (_a$7214 (if (jolt-empty? (jolt-get node (keyword #f "statements"))) "" " ")) (_a$7215 (emit-top-form (jolt-get node (keyword #f "ret")))) (_a$7216 ")")) (jolt-invoke _a$7211 _a$7212 _a$7213 _a$7214 _a$7215 _a$7216)) (if (let* ((and__25__auto (jolt= (keyword #f "def") (jolt-get node (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-get node (keyword #f "no-init"))))) (if (jolt-truthy? and__25__auto) (jolt-not (jolt-invoke (var-deref "jolt.backend-scheme" "dl-opt-out?") (jolt-get node (keyword #f "meta")))) and__25__auto)) and__25__auto)) (let* ((ns (jolt-get node (keyword #f "ns"))) (nm (jolt-get node (keyword #f "name"))) (b (jolt-invoke (var-deref "jolt.backend-scheme" "dl-name") ns nm)) (fn? (jolt= (keyword #f "fn") (jolt-get (jolt-get node (keyword #f "init")) (keyword #f "op")))) (pos (jolt-get node (keyword #f "pos"))) (frame-name (if (jolt-truthy? fn?) (let* ((temp__16__auto (jolt-get (jolt-get node (keyword #f "init")) (keyword #f "name")))) (if (jolt-truthy? temp__16__auto) (let* ((fnm temp__16__auto)) (jolt-invoke (var-deref "jolt.backend-scheme" "munge-name") fnm)) b)) jolt-nil)) (reg (if (jolt-truthy? (let* ((and__25__auto fn?)) (if (jolt-truthy? and__25__auto) pos and__25__auto))) (let* ((_a$7217 (var-deref "clojure.core" "str")) (_a$7218 " (jolt-register-source! ") (_a$7219 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") frame-name)) (_a$7220 " ") (_a$7221 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7222 " ") (_a$7223 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7224 " ") (_a$7225 (if (jolt-truthy? (jolt-get pos (keyword #f "file"))) (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") (jolt-get pos (keyword #f "file"))) "jolt-nil")) (_a$7226 " ") (_a$7227 (let* ((or__26__auto (jolt-get pos (keyword #f "line")))) (if (jolt-truthy? or__26__auto) or__26__auto 0))) (_a$7228 ")")) (jolt-invoke _a$7217 _a$7218 _a$7219 _a$7220 _a$7221 _a$7222 _a$7223 _a$7224 _a$7225 _a$7226 _a$7227 _a$7228)) jolt-nil))) (begin (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.backend-scheme" "direct-link-defined") jolt-conj (jolt-invoke (var-deref "jolt.backend-scheme" "dl-fqn") ns nm)) (if (jolt-truthy? fn?) (jolt-invoke (var-deref "clojure.core" "swap!") (var-deref "jolt.backend-scheme" "direct-link-fns") jolt-conj (jolt-invoke (var-deref "jolt.backend-scheme" "dl-fqn") ns nm)) jolt-nil) (let* ((init (jolt-invoke (var-deref "jolt.backend-scheme" "emit") (jolt-get node (keyword #f "init"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.backend-scheme" "jmeta-nonempty?") (jolt-get node (keyword #f "meta")))) (let* ((_a$7229 (var-deref "clojure.core" "str")) (_a$7230 "(begin (define ") (_a$7231 b) (_a$7232 " ") (_a$7233 init) (_a$7234 ") (def-var-with-meta! ") (_a$7235 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7236 " ") (_a$7237 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7238 " ") (_a$7239 b) (_a$7240 " ") (_a$7241 (jolt-invoke (var-deref "jolt.backend-scheme" "emit-def-meta") node)) (_a$7242 ")") (_a$7243 (let* ((or__26__auto reg)) (if (jolt-truthy? or__26__auto) or__26__auto ""))) (_a$7244 ")")) (jolt-invoke _a$7229 _a$7230 _a$7231 _a$7232 _a$7233 _a$7234 _a$7235 _a$7236 _a$7237 _a$7238 _a$7239 _a$7240 _a$7241 _a$7242 _a$7243 _a$7244)) (let* ((_a$7245 (var-deref "clojure.core" "str")) (_a$7246 "(begin (define ") (_a$7247 b) (_a$7248 " ") (_a$7249 init) (_a$7250 ") (def-var! ") (_a$7251 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") ns)) (_a$7252 " ") (_a$7253 (jolt-invoke (var-deref "jolt.backend-scheme" "chez-str-lit") nm)) (_a$7254 " ") (_a$7255 b) (_a$7256 ")") (_a$7257 (let* ((or__26__auto reg)) (if (jolt-truthy? or__26__auto) or__26__auto ""))) (_a$7258 ")")) (jolt-invoke _a$7245 _a$7246 _a$7247 _a$7248 _a$7249 _a$7250 _a$7251 _a$7252 _a$7253 _a$7254 _a$7255 _a$7256 _a$7257 _a$7258)))))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.backend-scheme" "emit") node) jolt-nil)))))))) emit-top-form))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.fold" "foldable" (let* ((_o$7254 "+") (_o$7255 jolt-add) (_o$7256 "-") (_o$7257 jolt-sub) (_o$7258 "*") (_o$7259 jolt-mul) (_o$7260 "/") (_o$7261 jolt-div) (_o$7262 "<") (_o$7263 <) (_o$7264 ">") (_o$7265 >) (_o$7266 "<=") (_o$7267 <=) (_o$7268 ">=") (_o$7269 >=) (_o$7270 "=") (_o$7271 jolt=) (_o$7272 "inc") (_o$7273 jolt-inc) (_o$7274 "dec") (_o$7275 jolt-dec) (_o$7276 "mod") (_o$7277 modulo) (_o$7278 "rem") (_o$7279 remainder) (_o$7280 "quot") (_o$7281 quotient) (_o$7282 "bit-and") (_o$7283 (var-deref "clojure.core" "__bit-and")) (_o$7284 "bit-or") (_o$7285 (var-deref "clojure.core" "__bit-or")) (_o$7286 "bit-xor") (_o$7287 (var-deref "clojure.core" "__bit-xor"))) (jolt-hash-map _o$7254 _o$7255 _o$7256 _o$7257 _o$7258 _o$7259 _o$7260 _o$7261 _o$7262 _o$7263 _o$7264 _o$7265 _o$7266 _o$7267 _o$7268 _o$7269 _o$7270 _o$7271 _o$7272 _o$7273 _o$7274 _o$7275 _o$7276 _o$7277 _o$7278 _o$7279 _o$7280 _o$7281 _o$7282 _o$7283 _o$7284 _o$7285 _o$7286 _o$7287)) (let* ((_o$7288 (keyword #f "private")) (_o$7289 #t)) (jolt-hash-map _o$7288 _o$7289)))) + (def-var-with-meta! "jolt.passes.fold" "foldable" (let* ((_o$7259 "+") (_o$7260 jolt-add) (_o$7261 "-") (_o$7262 jolt-sub) (_o$7263 "*") (_o$7264 jolt-mul) (_o$7265 "/") (_o$7266 jolt-div) (_o$7267 "<") (_o$7268 <) (_o$7269 ">") (_o$7270 >) (_o$7271 "<=") (_o$7272 <=) (_o$7273 ">=") (_o$7274 >=) (_o$7275 "=") (_o$7276 jolt=) (_o$7277 "inc") (_o$7278 jolt-inc) (_o$7279 "dec") (_o$7280 jolt-dec) (_o$7281 "mod") (_o$7282 modulo) (_o$7283 "rem") (_o$7284 remainder) (_o$7285 "quot") (_o$7286 quotient) (_o$7287 "bit-and") (_o$7288 (var-deref "clojure.core" "__bit-and")) (_o$7289 "bit-or") (_o$7290 (var-deref "clojure.core" "__bit-or")) (_o$7291 "bit-xor") (_o$7292 (var-deref "clojure.core" "__bit-xor"))) (jolt-hash-map _o$7259 _o$7260 _o$7261 _o$7262 _o$7263 _o$7264 _o$7265 _o$7266 _o$7267 _o$7268 _o$7269 _o$7270 _o$7271 _o$7272 _o$7273 _o$7274 _o$7275 _o$7276 _o$7277 _o$7278 _o$7279 _o$7280 _o$7281 _o$7282 _o$7283 _o$7284 _o$7285 _o$7286 _o$7287 _o$7288 _o$7289 _o$7290 _o$7291 _o$7292)) (let* ((_o$7293 (keyword #f "private")) (_o$7294 #t)) (jolt-hash-map _o$7293 _o$7294)))) (guard (e (#t #f)) - (def-var! "jolt.passes.fold" "const?" (letrec ((const? (lambda (n) (let fnrec7290 ((n n)) (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))))) const?))) + (def-var! "jolt.passes.fold" "const?" (letrec ((const? (lambda (n) (let fnrec7295 ((n n)) (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))))) const?))) (guard (e (#t #f)) - (def-var! "jolt.passes.fold" "const-num?" (letrec ((const-num? (lambda (n) (let fnrec7291 ((n n)) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "const?") n))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "number?") (jolt-get n (keyword #f "val"))) and__25__auto)))))) const-num?))) + (def-var! "jolt.passes.fold" "const-num?" (letrec ((const-num? (lambda (n) (let fnrec7296 ((n n)) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "const?") n))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "number?") (jolt-get n (keyword #f "val"))) and__25__auto)))))) const-num?))) (guard (e (#t #f)) - (def-var! "jolt.passes.fold" "fold-fn" (letrec ((fold-fn (lambda (fnode) (let fnrec7292 ((fnode fnode)) (let* ((op (jolt-get fnode (keyword #f "op")))) (if (jolt-truthy? (let* ((or__26__auto (let* ((and__25__auto (jolt= op (keyword #f "var")))) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= op (keyword #f "host"))))) (jolt-get (var-deref "jolt.passes.fold" "foldable") (jolt-get fnode (keyword #f "name"))) jolt-nil)))))) fold-fn))) + (def-var! "jolt.passes.fold" "fold-fn" (letrec ((fold-fn (lambda (fnode) (let fnrec7297 ((fnode fnode)) (let* ((op (jolt-get fnode (keyword #f "op")))) (if (let* ((or__26__auto (let* ((and__25__auto (jolt= op (keyword #f "var")))) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= op (keyword #f "host")))) (jolt-get (var-deref "jolt.passes.fold" "foldable") (jolt-get fnode (keyword #f "name"))) jolt-nil)))))) fold-fn))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.fold" "const-fold" (letrec ((const-fold (lambda (node) (let fnrec7293 ((node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "invoke")) (let* ((n (jolt-invoke (var-deref "jolt.ir" "map-ir-children") const-fold node)) (ff (jolt-invoke (var-deref "jolt.passes.fold" "fold-fn") (jolt-get n (keyword #f "fn")))) (args (jolt-get n (keyword #f "args"))) (folded (if (jolt-truthy? (let* ((and__25__auto ff)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-pos? (jolt-count args)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (var-deref "jolt.passes.fold" "const-num?") args) and__25__auto)) and__25__auto))) (guard (_r$catch1510 (else (let* ((e _r$catch1510)) jolt-nil))) (let* ((_o$7295 (keyword #f "op")) (_o$7296 (keyword #f "const")) (_o$7297 (keyword #f "val")) (_o$7298 (jolt-apply ff (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (a) (let fnrec7294 ((a a)) (jolt-get a (keyword #f "val")))) args)))) (jolt-hash-map _o$7295 _o$7296 _o$7297 _o$7298))) jolt-nil))) (let* ((or__26__auto folded)) (if (jolt-truthy? or__26__auto) or__26__auto n))) (if (jolt= op (keyword #f "if")) (let* ((t (const-fold (jolt-get node (keyword #f "test"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.fold" "const?") t)) (if (jolt-truthy? (let* ((or__26__auto (jolt-nil? (jolt-get t (keyword #f "val"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= #f (jolt-get t (keyword #f "val")))))) (const-fold (jolt-get node (keyword #f "else"))) (const-fold (jolt-get node (keyword #f "then")))) (let* ((_a$7299 node) (_a$7300 (keyword #f "test")) (_a$7301 t) (_a$7302 (keyword #f "then")) (_a$7303 (const-fold (jolt-get node (keyword #f "then")))) (_a$7304 (keyword #f "else")) (_a$7305 (const-fold (jolt-get node (keyword #f "else"))))) (jolt-assoc _a$7299 _a$7300 _a$7301 _a$7302 _a$7303 _a$7304 _a$7305)))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.ir" "map-ir-children") const-fold node) jolt-nil)))))))) const-fold) (let* ((_o$7306 (keyword #f "doc")) (_o$7307 "Bottom-up constant folding: a call of a foldable numeric fn whose args are\n all constant numbers becomes a constant; an if with a constant test becomes\n the taken branch.")) (jolt-hash-map _o$7306 _o$7307)))) + (def-var-with-meta! "jolt.passes.fold" "const-fold" (letrec ((const-fold (lambda (node) (let fnrec7298 ((node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "invoke")) (let* ((n (jolt-invoke (var-deref "jolt.ir" "map-ir-children") const-fold node)) (ff (jolt-invoke (var-deref "jolt.passes.fold" "fold-fn") (jolt-get n (keyword #f "fn")))) (args (jolt-get n (keyword #f "args"))) (folded (if (jolt-truthy? (let* ((and__25__auto ff)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-pos? (jolt-count args)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (var-deref "jolt.passes.fold" "const-num?") args) and__25__auto)) and__25__auto))) (guard (_r$catch1512 (else (let* ((e _r$catch1512)) jolt-nil))) (let* ((_o$7300 (keyword #f "op")) (_o$7301 (keyword #f "const")) (_o$7302 (keyword #f "val")) (_o$7303 (jolt-apply ff (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (a) (let fnrec7299 ((a a)) (jolt-get a (keyword #f "val")))) args)))) (jolt-hash-map _o$7300 _o$7301 _o$7302 _o$7303))) jolt-nil))) (let* ((or__26__auto folded)) (if (jolt-truthy? or__26__auto) or__26__auto n))) (if (jolt= op (keyword #f "if")) (let* ((t (const-fold (jolt-get node (keyword #f "test"))))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.fold" "const?") t)) (if (let* ((or__26__auto (jolt-nil? (jolt-get t (keyword #f "val"))))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= #f (jolt-get t (keyword #f "val"))))) (const-fold (jolt-get node (keyword #f "else"))) (const-fold (jolt-get node (keyword #f "then")))) (let* ((_a$7304 node) (_a$7305 (keyword #f "test")) (_a$7306 t) (_a$7307 (keyword #f "then")) (_a$7308 (const-fold (jolt-get node (keyword #f "then")))) (_a$7309 (keyword #f "else")) (_a$7310 (const-fold (jolt-get node (keyword #f "else"))))) (jolt-assoc _a$7304 _a$7305 _a$7306 _a$7307 _a$7308 _a$7309 _a$7310)))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.ir" "map-ir-children") const-fold node) jolt-nil)))))))) const-fold) (let* ((_o$7311 (keyword #f "doc")) (_o$7312 "Bottom-up constant folding: a call of a foldable numeric fn whose args are\n all constant numbers becomes a constant; an if with a constant test becomes\n the taken branch.")) (jolt-hash-map _o$7311 _o$7312)))) (guard (e (#t #f)) - (def-var! "jolt.passes.fold" "scalar-const?" (letrec ((scalar-const? (lambda (n) (let fnrec7308 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((v (jolt-get n (keyword #f "val")))) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "string?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "number?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "boolean?") v)))))))) and__25__auto)))))) scalar-const?))) + (def-var! "jolt.passes.fold" "scalar-const?" (letrec ((scalar-const? (lambda (n) (let fnrec7313 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((v (jolt-get n (keyword #f "val")))) (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "keyword?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "string?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (jolt-invoke (var-deref "clojure.core" "number?") v))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-invoke (var-deref "clojure.core" "boolean?") v)))))))) and__25__auto)))))) scalar-const?))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.fold" "kw-callee?" (letrec ((kw-callee? (lambda (fnode) (let fnrec7309 ((fnode fnode)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get fnode (keyword #f "val"))) and__25__auto)))))) kw-callee?) (let* ((_o$7310 (keyword #f "doc")) (_o$7311 "True if fnode is a constant keyword used as a function head \x2014; the (:k m) form.")) (jolt-hash-map _o$7310 _o$7311)))) + (def-var-with-meta! "jolt.passes.fold" "kw-callee?" (letrec ((kw-callee? (lambda (fnode) (let fnrec7314 ((fnode fnode)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get fnode (keyword #f "val"))) and__25__auto)))))) kw-callee?) (let* ((_o$7315 (keyword #f "doc")) (_o$7316 "True if fnode is a constant keyword used as a function head \x2014; the (:k m) form.")) (jolt-hash-map _o$7315 _o$7316)))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.fold" "get-callee?" (letrec ((get-callee? (lambda (fnode) (let fnrec7312 ((fnode fnode)) (let* ((or__26__auto (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (jolt= "get" (jolt-get fnode (keyword #f "name"))) and__25__auto)) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt= (keyword #f "host") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= "get" (jolt-get fnode (keyword #f "name"))) and__25__auto)))))))) get-callee?) (let* ((_o$7313 (keyword #f "doc")) (_o$7314 "True if fnode is the clojure.core/get (or host get) callee \x2014; the (get m k) form.")) (jolt-hash-map _o$7313 _o$7314)))) + (def-var-with-meta! "jolt.passes.fold" "get-callee?" (letrec ((get-callee? (lambda (fnode) (let fnrec7317 ((fnode fnode)) (let* ((or__26__auto (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (jolt= "get" (jolt-get fnode (keyword #f "name"))) and__25__auto)) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt= (keyword #f "host") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= "get" (jolt-get fnode (keyword #f "name"))) and__25__auto)))))))) get-callee?) (let* ((_o$7318 (keyword #f "doc")) (_o$7319 "True if fnode is the clojure.core/get (or host get) callee \x2014; the (get m k) form.")) (jolt-hash-map _o$7318 _o$7319)))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "int-lit?" (letrec ((int-lit? (lambda (n) (let fnrec5892 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((v (jolt-get n (keyword #f "val")))) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") v))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "integer?") v) and__25__auto))) and__25__auto)))))) int-lit?))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "float-lit?" (letrec ((float-lit? (lambda (n) (let fnrec5893 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((v (jolt-get n (keyword #f "val")))) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "number?") v))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "float?") v) and__25__auto))) and__25__auto)))))) float-lit?))) (guard (e (#t #f)) - (def-var! "jolt.passes.numeric" "dbl-spec" (letrec ((dbl-spec (lambda (nm n) (let fnrec5894 ((nm nm) (n n)) (if (jolt-truthy? (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5895 "+") (_o$5896 "-") (_o$5897 "*") (_o$5898 "/") (_o$5899 "min") (_o$5900 "max")) (jolt-hash-set _o$5895 _o$5896 _o$5897 _o$5898 _o$5899 _o$5900)) nm) and__25__auto))) (keyword #f "double") (if (jolt-truthy? (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5901 "inc") (_o$5902 "dec")) (jolt-hash-set _o$5901 _o$5902)) nm) and__25__auto))) (keyword #f "double") (if (jolt-truthy? (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5903 "<") (_o$5904 ">") (_o$5905 "<=") (_o$5906 ">=") (_o$5907 "=") (_o$5908 "==")) (jolt-hash-set _o$5903 _o$5904 _o$5905 _o$5906 _o$5907 _o$5908)) nm) and__25__auto))) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))))) dbl-spec))) + (def-var! "jolt.passes.numeric" "dbl-spec" (letrec ((dbl-spec (lambda (nm n) (let fnrec5894 ((nm nm) (n n)) (if (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5895 "+") (_o$5896 "-") (_o$5897 "*") (_o$5898 "/") (_o$5899 "min") (_o$5900 "max")) (jolt-hash-set _o$5895 _o$5896 _o$5897 _o$5898 _o$5899 _o$5900)) nm) and__25__auto)) (keyword #f "double") (if (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5901 "inc") (_o$5902 "dec")) (jolt-hash-set _o$5901 _o$5902)) nm) and__25__auto)) (keyword #f "double") (if (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5903 "<") (_o$5904 ">") (_o$5905 "<=") (_o$5906 ">=") (_o$5907 "=") (_o$5908 "==")) (jolt-hash-set _o$5903 _o$5904 _o$5905 _o$5906 _o$5907 _o$5908)) nm) and__25__auto)) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil)))))))) dbl-spec))) (guard (e (#t #f)) - (def-var! "jolt.passes.numeric" "lng-spec" (letrec ((lng-spec (lambda (nm n) (let fnrec5909 ((nm nm) (n n)) (if (jolt-truthy? (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5910 "+") (_o$5911 "-") (_o$5912 "*") (_o$5913 "min") (_o$5914 "max") (_o$5915 "unchecked-add") (_o$5916 "unchecked-subtract") (_o$5917 "unchecked-multiply")) (jolt-hash-set _o$5910 _o$5911 _o$5912 _o$5913 _o$5914 _o$5915 _o$5916 _o$5917)) nm) and__25__auto))) (keyword #f "long") (if (jolt-truthy? (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5918 "inc") (_o$5919 "dec") (_o$5920 "unchecked-inc") (_o$5921 "unchecked-dec")) (jolt-hash-set _o$5918 _o$5919 _o$5920 _o$5921)) nm) and__25__auto))) (keyword #f "long") (if (jolt-truthy? (let* ((and__25__auto (jolt= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5922 "quot") (_o$5923 "rem") (_o$5924 "mod")) (jolt-hash-set _o$5922 _o$5923 _o$5924)) nm) and__25__auto))) (keyword #f "long") (if (jolt-truthy? (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5925 "<") (_o$5926 ">") (_o$5927 "<=") (_o$5928 ">=") (_o$5929 "=") (_o$5930 "==")) (jolt-hash-set _o$5925 _o$5926 _o$5927 _o$5928 _o$5929 _o$5930)) nm) and__25__auto))) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))))) lng-spec))) + (def-var! "jolt.passes.numeric" "lng-spec" (letrec ((lng-spec (lambda (nm n) (let fnrec5909 ((nm nm) (n n)) (if (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5910 "+") (_o$5911 "-") (_o$5912 "*") (_o$5913 "min") (_o$5914 "max") (_o$5915 "unchecked-add") (_o$5916 "unchecked-subtract") (_o$5917 "unchecked-multiply")) (jolt-hash-set _o$5910 _o$5911 _o$5912 _o$5913 _o$5914 _o$5915 _o$5916 _o$5917)) nm) and__25__auto)) (keyword #f "long") (if (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5918 "inc") (_o$5919 "dec") (_o$5920 "unchecked-inc") (_o$5921 "unchecked-dec")) (jolt-hash-set _o$5918 _o$5919 _o$5920 _o$5921)) nm) and__25__auto)) (keyword #f "long") (if (let* ((and__25__auto (jolt= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5922 "quot") (_o$5923 "rem") (_o$5924 "mod")) (jolt-hash-set _o$5922 _o$5923 _o$5924)) nm) and__25__auto)) (keyword #f "long") (if (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5925 "<") (_o$5926 ">") (_o$5927 "<=") (_o$5928 ">=") (_o$5929 "=") (_o$5930 "==")) (jolt-hash-set _o$5925 _o$5926 _o$5927 _o$5928 _o$5929 _o$5930)) nm) and__25__auto)) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))))) lng-spec))) (guard (e (#t #f)) - (def-var! "jolt.passes.numeric" "bd-spec" (letrec ((bd-spec (lambda (nm n) (let fnrec5931 ((nm nm) (n n)) (if (jolt-truthy? (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5932 "+") (_o$5933 "-") (_o$5934 "*") (_o$5935 "/") (_o$5936 "min") (_o$5937 "max")) (jolt-hash-set _o$5932 _o$5933 _o$5934 _o$5935 _o$5936 _o$5937)) nm) and__25__auto))) (keyword #f "bigdec") (if (jolt-truthy? (let* ((and__25__auto (jolt= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5938 "quot") (_o$5939 "rem")) (jolt-hash-set _o$5938 _o$5939)) nm) and__25__auto))) (keyword #f "bigdec") (if (jolt-truthy? (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5940 "zero?") (_o$5941 "pos?") (_o$5942 "neg?")) (jolt-hash-set _o$5940 _o$5941 _o$5942)) nm) and__25__auto))) (keyword #f "bool") (if (jolt-truthy? (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5943 "<") (_o$5944 ">") (_o$5945 "<=") (_o$5946 ">=")) (jolt-hash-set _o$5943 _o$5944 _o$5945 _o$5946)) nm) and__25__auto))) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))))) bd-spec))) + (def-var! "jolt.passes.numeric" "bd-spec" (letrec ((bd-spec (lambda (nm n) (let fnrec5931 ((nm nm) (n n)) (if (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5932 "+") (_o$5933 "-") (_o$5934 "*") (_o$5935 "/") (_o$5936 "min") (_o$5937 "max")) (jolt-hash-set _o$5932 _o$5933 _o$5934 _o$5935 _o$5936 _o$5937)) nm) and__25__auto)) (keyword #f "bigdec") (if (let* ((and__25__auto (jolt= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5938 "quot") (_o$5939 "rem")) (jolt-hash-set _o$5938 _o$5939)) nm) and__25__auto)) (keyword #f "bigdec") (if (let* ((and__25__auto (jolt= n 1))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5940 "zero?") (_o$5941 "pos?") (_o$5942 "neg?")) (jolt-hash-set _o$5940 _o$5941 _o$5942)) nm) and__25__auto)) (keyword #f "bool") (if (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt-contains? (let* ((_o$5943 "<") (_o$5944 ">") (_o$5945 "<=") (_o$5946 ">=")) (jolt-hash-set _o$5943 _o$5944 _o$5945 _o$5946)) nm) and__25__auto)) (keyword #f "bool") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))))) bd-spec))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "propagate" (letrec ((propagate (lambda (spec) (let fnrec5947 ((spec spec)) (if (jolt= spec (keyword #f "bool")) jolt-nil spec))))) propagate))) (guard (e (#t #f)) @@ -283,13 +283,13 @@ (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "recur-arg-lists" (letrec ((recur-arg-lists (lambda (node) (let fnrec5964 ((node node)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "recur")) (jolt-vector (jolt-get node (keyword #f "args"))) (if (jolt= op (keyword #f "let")) (recur-arg-lists (jolt-get node (keyword #f "body"))) (if (jolt= op (keyword #f "if")) (let* ((_a$5965 (recur-arg-lists (jolt-get node (keyword #f "then")))) (_a$5966 (recur-arg-lists (jolt-get node (keyword #f "else"))))) (jolt-concat _a$5965 _a$5966)) (if (jolt= op (keyword #f "do")) (recur-arg-lists (jolt-get node (keyword #f "ret"))) (if (jolt-truthy? (keyword #f "else")) (jolt-vector) jolt-nil)))))))))) recur-arg-lists))) (guard (e (#t #f)) - (def-var! "jolt.passes.numeric" "counter-step?" (letrec ((counter-step? (lambda (arg vname) (let fnrec5967 ((arg arg) (vname vname)) (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "local") (jolt-get arg (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= vname (jolt-get arg (keyword #f "name"))) and__25__auto))) #t (if (jolt= (keyword #f "invoke") (jolt-get arg (keyword #f "op"))) (let* ((f (jolt-get arg (keyword #f "fn"))) (as (jolt-get arg (keyword #f "args")))) (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get f (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "clojure.core" (jolt-get f (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (let* ((nm (jolt-get f (keyword #f "name"))) (v? (lambda (n) (let fnrec5968 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "local") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= vname (jolt-get n (keyword #f "name"))) and__25__auto)))))) (if (jolt-truthy? (let* ((and__25__auto (jolt-contains? (let* ((_o$5969 "inc") (_o$5970 "dec") (_o$5971 "unchecked-inc") (_o$5972 "unchecked-dec")) (jolt-hash-set _o$5969 _o$5970 _o$5971 _o$5972)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 1 (jolt-count as)) and__25__auto))) (jolt-invoke v? (jolt-nth as 0)) (if (jolt-truthy? (let* ((and__25__auto (jolt-contains? (let* ((_o$5973 "+") (_o$5974 "unchecked-add")) (jolt-hash-set _o$5973 _o$5974)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count as)) and__25__auto))) (let* ((or__26__auto (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 0)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 1)) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 1)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 0)) and__25__auto)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-contains? (let* ((_o$5975 "-") (_o$5976 "unchecked-subtract")) (jolt-hash-set _o$5975 _o$5976)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count as)) and__25__auto))) (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 0)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 1)) and__25__auto)) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))) and__25__auto)) and__25__auto))) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))))) counter-step?))) + (def-var! "jolt.passes.numeric" "counter-step?" (letrec ((counter-step? (lambda (arg vname) (let fnrec5967 ((arg arg) (vname vname)) (if (let* ((and__25__auto (jolt= (keyword #f "local") (jolt-get arg (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= vname (jolt-get arg (keyword #f "name"))) and__25__auto)) #t (if (jolt= (keyword #f "invoke") (jolt-get arg (keyword #f "op"))) (let* ((f (jolt-get arg (keyword #f "fn"))) (as (jolt-get arg (keyword #f "args")))) (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get f (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= "clojure.core" (jolt-get f (keyword #f "ns"))))) (if (jolt-truthy? and__25__auto) (let* ((nm (jolt-get f (keyword #f "name"))) (v? (lambda (n) (let fnrec5968 ((n n)) (let* ((and__25__auto (jolt= (keyword #f "local") (jolt-get n (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= vname (jolt-get n (keyword #f "name"))) and__25__auto)))))) (if (let* ((and__25__auto (jolt-contains? (let* ((_o$5969 "inc") (_o$5970 "dec") (_o$5971 "unchecked-inc") (_o$5972 "unchecked-dec")) (jolt-hash-set _o$5969 _o$5970 _o$5971 _o$5972)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 1 (jolt-count as)) and__25__auto)) (jolt-invoke v? (jolt-nth as 0)) (if (let* ((and__25__auto (jolt-contains? (let* ((_o$5973 "+") (_o$5974 "unchecked-add")) (jolt-hash-set _o$5973 _o$5974)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count as)) and__25__auto)) (let* ((or__26__auto (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 0)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 1)) and__25__auto)))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 1)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 0)) and__25__auto)))) (if (let* ((and__25__auto (jolt-contains? (let* ((_o$5975 "-") (_o$5976 "unchecked-subtract")) (jolt-hash-set _o$5975 _o$5976)) nm))) (if (jolt-truthy? and__25__auto) (jolt= 2 (jolt-count as)) and__25__auto)) (let* ((and__25__auto (jolt-invoke v? (jolt-nth as 0)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth as 1)) and__25__auto)) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))) and__25__auto)) and__25__auto))) (if (jolt-truthy? (keyword #f "else")) #f jolt-nil))))))) counter-step?))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "loop-kinds" (letrec ((loop-kinds (lambda (names seed body tenv) (let fnrec5977 ((names names) (seed seed) (body body) (tenv tenv)) (let* ((cur seed) (iter 0)) (let loop5978 ((cur cur) (iter iter)) (if (> iter (jolt-count names)) cur (let* ((te (let* ((_a$5983 (lambda (t i) (let fnrec5979 ((t t) (i i)) (let* ((_a$5980 t) (_a$5981 (jolt-nth names i)) (_a$5982 (jolt-nth cur i))) (jolt-assoc _a$5980 _a$5981 _a$5982))))) (_a$5984 tenv) (_a$5985 (jolt-range (jolt-count names)))) (jolt-reduce _a$5983 _a$5984 _a$5985))) (rks (jolt-invoke (var-deref "jolt.passes.numeric" "recur-kinds") body te)) (nxt (let* ((_a$5988 (var-deref "clojure.core" "mapv")) (_a$5989 (lambda (j) (let fnrec5986 ((j j)) (let* ((k (jolt-nth cur j))) (if (jolt-truthy? (let* ((and__25__auto k)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (rk) (let fnrec5987 ((rk rk)) (jolt= k (jolt-nth rk j)))) rks) and__25__auto))) k jolt-nil))))) (_a$5990 (jolt-range (jolt-count names)))) (jolt-invoke _a$5988 _a$5989 _a$5990)))) (if (jolt= nxt cur) cur (loop5978 nxt (jolt-inc iter))))))))))) loop-kinds))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "arity-env" (letrec ((arity-env (lambda (tenv a) (let fnrec5991 ((tenv tenv) (a a)) (let* ((nh (let* ((_a$5992 (jolt-hash-map)) (_a$5993 (jolt-get a (keyword #f "nhints")))) (jolt-into _a$5992 _a$5993))) (pe (let* ((_a$5995 (lambda (e p) (let fnrec5994 ((e e) (p p)) (jolt-assoc e p (jolt-get nh p))))) (_a$5996 tenv) (_a$5997 (jolt-get a (keyword #f "params")))) (jolt-reduce _a$5995 _a$5996 _a$5997)))) (if (jolt-truthy? (jolt-get a (keyword #f "rest"))) (jolt-assoc pe (jolt-get a (keyword #f "rest")) jolt-nil) pe)))))) arity-env))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.numeric" "an-invoke" (letrec ((an-invoke (lambda (node tenv) (let fnrec5998 ((node node) (tenv tenv)) (let* ((fnode (jolt-get node (keyword #f "fn"))) (nm (if (jolt-truthy? (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto))) (jolt-get fnode (keyword #f "name")) jolt-nil)) (ars (let* ((_a$6000 (var-deref "clojure.core" "mapv")) (_a$6001 (lambda (a) (let fnrec5999 ((a a)) (jolt-invoke (var-deref "jolt.passes.numeric" "an") a tenv)))) (_a$6002 (jolt-get node (keyword #f "args")))) (jolt-invoke _a$6000 _a$6001 _a$6002))) (argnodes (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec6003 ((r r)) (jolt-nth r 1))) ars)) (node1 (jolt-assoc node (keyword #f "args") argnodes)) (n (jolt-count ars))) (if (jolt-truthy? (jolt-get fnode (keyword #f "num-ret"))) (let* ((_o$6004 (jolt-get fnode (keyword #f "num-ret"))) (_o$6005 node1)) (jolt-vector _o$6004 _o$6005)) (if (jolt-nil? nm) (let* ((_o$6006 jolt-nil) (_o$6007 node1)) (jolt-vector _o$6006 _o$6007)) (if (jolt-truthy? (keyword #f "else")) (let* ((cls (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec6008 ((r r)) (let* ((k (jolt-nth r 0)) (nd (jolt-nth r 1))) (if (jolt= k (keyword #f "double")) (keyword #f "double") (if (jolt= k (keyword #f "long")) (keyword #f "long") (if (jolt= k (keyword #f "bigdec")) (keyword #f "bigdec") (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") nd)) (keyword #f "wild") (if (jolt-truthy? (keyword #f "else")) (keyword #f "no") jolt-nil)))))))) ars)) (ok? (lambda (allowed need) (let fnrec6009 ((allowed allowed) (need need)) (let* ((and__25__auto (jolt-pos? n))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "every?") (lambda (c) (let fnrec6010 ((c c)) (let* ((or__26__auto (jolt= c (keyword #f "wild")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= c allowed))))) cls))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "some") (lambda (c) (let fnrec6011 ((c c)) (jolt= c need))) cls) and__25__auto)) and__25__auto))))) (ds (jolt-invoke (var-deref "jolt.passes.numeric" "dbl-spec") nm n)) (ls (jolt-invoke (var-deref "jolt.passes.numeric" "lng-spec") nm n)) (bs (jolt-invoke (var-deref "jolt.passes.numeric" "bd-spec") nm n))) (if (jolt-truthy? (let* ((and__25__auto ds)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "double") (keyword #f "double")) and__25__auto))) (let* ((args_PRIME_ (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (nd) (let fnrec6012 ((nd nd)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") nd)) (jolt-assoc nd (keyword #f "val") (jolt-invoke (var-deref "clojure.core" "double") (jolt-get nd (keyword #f "val")))) nd))) argnodes))) (let* ((_o$6013 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") ds)) (_o$6014 (jolt-assoc node1 (keyword #f "args") args_PRIME_ (keyword #f "num-kind") (keyword #f "double")))) (jolt-vector _o$6013 _o$6014))) (if (jolt-truthy? (let* ((and__25__auto ls)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "long") (keyword #f "long")) and__25__auto))) (let* ((_o$6015 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") ls)) (_o$6016 (jolt-assoc node1 (keyword #f "num-kind") (keyword #f "long")))) (jolt-vector _o$6015 _o$6016)) (if (jolt-truthy? (let* ((and__25__auto bs)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "bigdec") (keyword #f "bigdec")) and__25__auto))) (let* ((_o$6017 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") bs)) (_o$6018 (jolt-assoc node1 (keyword #f "num-kind") (keyword #f "bigdec")))) (jolt-vector _o$6017 _o$6018)) (if (jolt-truthy? (keyword #f "else")) (let* ((_o$6019 jolt-nil) (_o$6020 node1)) (jolt-vector _o$6019 _o$6020)) jolt-nil))))) jolt-nil)))))))) an-invoke) (let* ((_o$6021 (keyword #f "doc")) (_o$6022 "Annotate an :invoke with its numeric kind. An arithmetic core op specializes to\n the Chez fl*/fx* op only when every operand is the same kind (:double or :long),\n except an integer literal is :wild \x2014; valid in either \x2014; so (+ ^double x 2) stays\n double. A call to a ^double/^long-returning var yields that kind without lowering\n the call (its body already coerces the return).")) (jolt-hash-map _o$6021 _o$6022)))) + (def-var-with-meta! "jolt.passes.numeric" "an-invoke" (letrec ((an-invoke (lambda (node tenv) (let fnrec5998 ((node node) (tenv tenv)) (let* ((fnode (jolt-get node (keyword #f "fn"))) (nm (if (let* ((and__25__auto (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto)) (jolt-get fnode (keyword #f "name")) jolt-nil)) (ars (let* ((_a$6000 (var-deref "clojure.core" "mapv")) (_a$6001 (lambda (a) (let fnrec5999 ((a a)) (jolt-invoke (var-deref "jolt.passes.numeric" "an") a tenv)))) (_a$6002 (jolt-get node (keyword #f "args")))) (jolt-invoke _a$6000 _a$6001 _a$6002))) (argnodes (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec6003 ((r r)) (jolt-nth r 1))) ars)) (node1 (jolt-assoc node (keyword #f "args") argnodes)) (n (jolt-count ars))) (if (jolt-truthy? (jolt-get fnode (keyword #f "num-ret"))) (let* ((_o$6004 (jolt-get fnode (keyword #f "num-ret"))) (_o$6005 node1)) (jolt-vector _o$6004 _o$6005)) (if (jolt-nil? nm) (let* ((_o$6006 jolt-nil) (_o$6007 node1)) (jolt-vector _o$6006 _o$6007)) (if (jolt-truthy? (keyword #f "else")) (let* ((cls (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec6008 ((r r)) (let* ((k (jolt-nth r 0)) (nd (jolt-nth r 1))) (if (jolt= k (keyword #f "double")) (keyword #f "double") (if (jolt= k (keyword #f "long")) (keyword #f "long") (if (jolt= k (keyword #f "bigdec")) (keyword #f "bigdec") (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") nd)) (keyword #f "wild") (if (jolt-truthy? (keyword #f "else")) (keyword #f "no") jolt-nil)))))))) ars)) (ok? (lambda (allowed need) (let fnrec6009 ((allowed allowed) (need need)) (let* ((and__25__auto (jolt-pos? n))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "every?") (lambda (c) (let fnrec6010 ((c c)) (let* ((or__26__auto (jolt= c (keyword #f "wild")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= c allowed))))) cls))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "some") (lambda (c) (let fnrec6011 ((c c)) (jolt= c need))) cls) and__25__auto)) and__25__auto))))) (ds (jolt-invoke (var-deref "jolt.passes.numeric" "dbl-spec") nm n)) (ls (jolt-invoke (var-deref "jolt.passes.numeric" "lng-spec") nm n)) (bs (jolt-invoke (var-deref "jolt.passes.numeric" "bd-spec") nm n))) (if (jolt-truthy? (let* ((and__25__auto ds)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "double") (keyword #f "double")) and__25__auto))) (let* ((args_PRIME_ (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (nd) (let fnrec6012 ((nd nd)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") nd)) (jolt-assoc nd (keyword #f "val") (jolt-invoke (var-deref "clojure.core" "double") (jolt-get nd (keyword #f "val")))) nd))) argnodes))) (let* ((_o$6013 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") ds)) (_o$6014 (jolt-assoc node1 (keyword #f "args") args_PRIME_ (keyword #f "num-kind") (keyword #f "double")))) (jolt-vector _o$6013 _o$6014))) (if (jolt-truthy? (let* ((and__25__auto ls)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "long") (keyword #f "long")) and__25__auto))) (let* ((_o$6015 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") ls)) (_o$6016 (jolt-assoc node1 (keyword #f "num-kind") (keyword #f "long")))) (jolt-vector _o$6015 _o$6016)) (if (jolt-truthy? (let* ((and__25__auto bs)) (if (jolt-truthy? and__25__auto) (jolt-invoke ok? (keyword #f "bigdec") (keyword #f "bigdec")) and__25__auto))) (let* ((_o$6017 (jolt-invoke (var-deref "jolt.passes.numeric" "propagate") bs)) (_o$6018 (jolt-assoc node1 (keyword #f "num-kind") (keyword #f "bigdec")))) (jolt-vector _o$6017 _o$6018)) (if (jolt-truthy? (keyword #f "else")) (let* ((_o$6019 jolt-nil) (_o$6020 node1)) (jolt-vector _o$6019 _o$6020)) jolt-nil))))) jolt-nil)))))))) an-invoke) (let* ((_o$6021 (keyword #f "doc")) (_o$6022 "Annotate an :invoke with its numeric kind. An arithmetic core op specializes to\n the Chez fl*/fx* op only when every operand is the same kind (:double or :long),\n except an integer literal is :wild \x2014; valid in either \x2014; so (+ ^double x 2) stays\n double. A call to a ^double/^long-returning var yields that kind without lowering\n the call (its body already coerces the return).")) (jolt-hash-map _o$6021 _o$6022)))) (guard (e (#t #f)) (def-var! "jolt.passes.numeric" "an" (letrec ((an (lambda (node tenv) (let fnrec6023 ((node node) (tenv tenv)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "const")) (let* ((_o$6024 (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.numeric" "float-lit?") node)) (keyword #f "double") jolt-nil)) (_o$6025 node)) (jolt-vector _o$6024 _o$6025)) (if (jolt= op (keyword #f "bigdec")) (let* ((_o$6026 (keyword #f "bigdec")) (_o$6027 node)) (jolt-vector _o$6026 _o$6027)) (if (jolt= op (keyword #f "local")) (let* ((_o$6028 (jolt-get tenv (jolt-get node (keyword #f "name")))) (_o$6029 node)) (jolt-vector _o$6028 _o$6029)) (if (jolt= op (keyword #f "coerce")) (let* ((_o$6030 (jolt-get node (keyword #f "kind"))) (_o$6031 (jolt-assoc node (keyword #f "expr") (jolt-nth (an (jolt-get node (keyword #f "expr")) tenv) 1)))) (jolt-vector _o$6030 _o$6031)) (if (jolt= op (keyword #f "invoke")) (jolt-invoke (var-deref "jolt.passes.numeric" "an-invoke") node tenv) (if (jolt= op (keyword #f "let")) (let* ((res (let* ((_a$6042 (lambda (acc b) (let fnrec6032 ((acc acc) (b b)) (let* ((te (jolt-nth acc 0)) (binds (jolt-nth acc 1)) (ir (an (jolt-nth b 1) te))) (let* ((_o$6038 (let* ((_a$6033 te) (_a$6034 (jolt-nth b 0)) (_a$6035 (jolt-nth ir 0))) (jolt-assoc _a$6033 _a$6034 _a$6035))) (_o$6039 (jolt-conj binds (let* ((_o$6036 (jolt-nth b 0)) (_o$6037 (jolt-nth ir 1))) (jolt-vector _o$6036 _o$6037))))) (jolt-vector _o$6038 _o$6039)))))) (_a$6043 (let* ((_o$6040 tenv) (_o$6041 (jolt-vector))) (jolt-vector _o$6040 _o$6041))) (_a$6044 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$6042 _a$6043 _a$6044))) (br (let* ((_a$6045 (jolt-get node (keyword #f "body"))) (_a$6046 (jolt-nth res 0))) (an _a$6045 _a$6046)))) (let* ((_o$6052 (jolt-nth br 0)) (_o$6053 (let* ((_a$6047 node) (_a$6048 (keyword #f "bindings")) (_a$6049 (jolt-nth res 1)) (_a$6050 (keyword #f "body")) (_a$6051 (jolt-nth br 1))) (jolt-assoc _a$6047 _a$6048 _a$6049 _a$6050 _a$6051)))) (jolt-vector _o$6052 _o$6053))) (if (jolt= op (keyword #f "loop")) (let* ((binds (jolt-get node (keyword #f "bindings"))) (names (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (b) (let fnrec6054 ((b b)) (jolt-nth b 0))) binds)) (ik (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (b) (let fnrec6055 ((b b)) (jolt-nth (an (jolt-nth b 1) tenv) 0))) binds)) (rlists (jolt-invoke (var-deref "jolt.passes.numeric" "recur-arg-lists") (jolt-get node (keyword #f "body")))) (seed (let* ((_a$6061 (var-deref "clojure.core" "mapv")) (_a$6062 (lambda (j) (let fnrec6056 ((j j)) (let* ((k (jolt-nth ik j)) (b (jolt-nth binds j))) (if (jolt-truthy? k) k (if (jolt-truthy? (let* ((and__25__auto (jolt-seq rlists))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.numeric" "int-lit?") (jolt-nth b 1)))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (args) (let fnrec6057 ((args args)) (let* ((_a$6058 (var-deref "jolt.passes.numeric" "counter-step?")) (_a$6059 (jolt-nth args j)) (_a$6060 (jolt-nth b 0))) (jolt-invoke _a$6058 _a$6059 _a$6060)))) rlists) and__25__auto)) and__25__auto))) (keyword #f "long") (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))) (_a$6063 (jolt-range (jolt-count names)))) (jolt-invoke _a$6061 _a$6062 _a$6063))) (lk (jolt-invoke (var-deref "jolt.passes.numeric" "loop-kinds") names seed (jolt-get node (keyword #f "body")) tenv)) (te (let* ((_a$6068 (lambda (t i) (let fnrec6064 ((t t) (i i)) (let* ((_a$6065 t) (_a$6066 (jolt-nth names i)) (_a$6067 (jolt-nth lk i))) (jolt-assoc _a$6065 _a$6066 _a$6067))))) (_a$6069 tenv) (_a$6070 (jolt-range (jolt-count names)))) (jolt-reduce _a$6068 _a$6069 _a$6070)))) (let* ((_o$6079 jolt-nil) (_o$6080 (let* ((_a$6074 node) (_a$6075 (keyword #f "bindings")) (_a$6076 (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (b) (let fnrec6071 ((b b)) (let* ((_o$6072 (jolt-nth b 0)) (_o$6073 (jolt-nth (an (jolt-nth b 1) tenv) 1))) (jolt-vector _o$6072 _o$6073)))) binds)) (_a$6077 (keyword #f "body")) (_a$6078 (jolt-nth (an (jolt-get node (keyword #f "body")) te) 1))) (jolt-assoc _a$6074 _a$6075 _a$6076 _a$6077 _a$6078)))) (jolt-vector _o$6079 _o$6080))) (if (jolt= op (keyword #f "if")) (let* ((tr (an (jolt-get node (keyword #f "test")) tenv)) (thn (an (jolt-get node (keyword #f "then")) tenv)) (els (an (jolt-get node (keyword #f "else")) tenv)) (tk (jolt-nth thn 0)) (ek (jolt-nth els 0))) (let* ((_o$6088 (if (jolt= tk ek) tk jolt-nil)) (_o$6089 (let* ((_a$6081 node) (_a$6082 (keyword #f "test")) (_a$6083 (jolt-nth tr 1)) (_a$6084 (keyword #f "then")) (_a$6085 (jolt-nth thn 1)) (_a$6086 (keyword #f "else")) (_a$6087 (jolt-nth els 1))) (jolt-assoc _a$6081 _a$6082 _a$6083 _a$6084 _a$6085 _a$6086 _a$6087)))) (jolt-vector _o$6088 _o$6089))) (if (jolt= op (keyword #f "do")) (let* ((stmts (let* ((_a$6091 (var-deref "clojure.core" "mapv")) (_a$6092 (lambda (s) (let fnrec6090 ((s s)) (jolt-nth (an s tenv) 1)))) (_a$6093 (jolt-get node (keyword #f "statements")))) (jolt-invoke _a$6091 _a$6092 _a$6093))) (r (an (jolt-get node (keyword #f "ret")) tenv))) (let* ((_o$6094 (jolt-nth r 0)) (_o$6095 (jolt-assoc node (keyword #f "statements") stmts (keyword #f "ret") (jolt-nth r 1)))) (jolt-vector _o$6094 _o$6095))) (if (jolt= op (keyword #f "fn")) (let* ((_o$6102 jolt-nil) (_o$6103 (jolt-assoc node (keyword #f "arities") (let* ((_a$6099 (var-deref "clojure.core" "mapv")) (_a$6100 (lambda (a) (let fnrec6096 ((a a)) (jolt-assoc a (keyword #f "body") (jolt-nth (let* ((_a$6097 (jolt-get a (keyword #f "body"))) (_a$6098 (jolt-invoke (var-deref "jolt.passes.numeric" "arity-env") tenv a))) (an _a$6097 _a$6098)) 1))))) (_a$6101 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$6099 _a$6100 _a$6101))))) (jolt-vector _o$6102 _o$6103)) (if (jolt= op (keyword #f "def")) (let* ((_o$6104 jolt-nil) (_o$6105 (jolt-assoc node (keyword #f "init") (jolt-nth (an (jolt-get node (keyword #f "init")) tenv) 1)))) (jolt-vector _o$6104 _o$6105)) (if (jolt-truthy? (keyword #f "else")) (let* ((_o$6107 jolt-nil) (_o$6108 (jolt-invoke (var-deref "jolt.ir" "map-ir-children") (lambda (c) (let fnrec6106 ((c c)) (jolt-nth (an c tenv) 1))) node))) (jolt-vector _o$6107 _o$6108)) jolt-nil))))))))))))))))) an))) (guard (e (#t #f)) @@ -439,9 +439,9 @@ (guard (e (#t #f)) (def-var-with-meta! "jolt.passes.types.check" "type-name" (letrec ((type-name (lambda (t) (let fnrec5818 ((t t)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "union-type?") t)) (let* ((_a$5820 (lambda (s m) (let fnrec5819 ((s s) (m m)) (if (jolt= s "") (type-name m) (jolt-invoke (var-deref "clojure.core" "str") s " or " (type-name m)))))) (_a$5821 "") (_a$5822 (jolt-invoke (var-deref "jolt.passes.types.lattice" "umembers") t))) (jolt-reduce _a$5820 _a$5821 _a$5822)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-type?") t)) "a map" (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "vec-type?") t)) "a vector" (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "set-type?") t)) "a set" (if (jolt= t (keyword #f "str")) "a string" (if (jolt= t (keyword #f "kw")) "a keyword" (if (jolt= t (keyword #f "num")) "a number" (if (jolt= t (keyword #f "phm")) "a map" (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "clojure.core" "str") t) jolt-nil))))))))))))) type-name) (let* ((_o$5823 (keyword #f "doc")) (_o$5824 "Render an inferred type for an error message.")) (jolt-hash-map _o$5823 _o$5824)))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.types.check" "check-invoke" (letrec ((check-invoke (lambda (cn args arg-types pos env) (let fnrec5825 ((cn cn) (args args) (arg-types arg-types) (pos pos) (env env)) (if (jolt-contains? (var-deref "jolt.passes.types.check" "num-ops") cn) (let* ((_a$5848 (lambda (_ i) (let fnrec5826 ((_ _) (i i)) (begin (let* ((t (jolt-nth arg-types i))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.check" "not-number?") t)) (let* ((_a$5844 (var-deref "clojure.core" "swap!")) (_a$5845 (jolt-get env (keyword #f "diags"))) (_a$5846 jolt-conj) (_a$5847 (let* ((_o$5834 (keyword #f "op")) (_o$5835 cn) (_o$5836 (keyword #f "argpos")) (_o$5837 i) (_o$5838 (keyword #f "type")) (_o$5839 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t)) (_o$5840 (keyword #f "pos")) (_o$5841 pos) (_o$5842 (keyword #f "msg")) (_o$5843 (let* ((_a$5827 (var-deref "clojure.core" "str")) (_a$5828 "`") (_a$5829 cn) (_a$5830 "` requires a number, but argument ") (_a$5831 (jolt-inc i)) (_a$5832 " is ") (_a$5833 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t))) (jolt-invoke _a$5827 _a$5828 _a$5829 _a$5830 _a$5831 _a$5832 _a$5833)))) (jolt-hash-map _o$5834 _o$5835 _o$5836 _o$5837 _o$5838 _o$5839 _o$5840 _o$5841 _o$5842 _o$5843)))) (jolt-invoke _a$5844 _a$5845 _a$5846 _a$5847)) jolt-nil)) jolt-nil)))) (_a$5849 jolt-nil) (_a$5850 (jolt-range (jolt-count args)))) (jolt-reduce _a$5848 _a$5849 _a$5850)) (if (jolt-truthy? (let* ((and__25__auto (jolt-contains? (var-deref "jolt.passes.types.check" "seq-ops") cn))) (if (jolt-truthy? and__25__auto) (> (jolt-count args) 0) and__25__auto))) (let* ((t (jolt-nth arg-types 0))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.check" "not-seqable?") t)) (let* ((_a$5868 (var-deref "clojure.core" "swap!")) (_a$5869 (jolt-get env (keyword #f "diags"))) (_a$5870 jolt-conj) (_a$5871 (let* ((_o$5858 (keyword #f "op")) (_o$5859 cn) (_o$5860 (keyword #f "argpos")) (_o$5861 0) (_o$5862 (keyword #f "type")) (_o$5863 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t)) (_o$5864 (keyword #f "pos")) (_o$5865 pos) (_o$5866 (keyword #f "msg")) (_o$5867 (let* ((_a$5851 (var-deref "clojure.core" "str")) (_a$5852 "`") (_a$5853 cn) (_a$5854 "` requires ") (_a$5855 (if (jolt= cn "count") "a countable collection" "a seqable")) (_a$5856 ", but argument 1 is ") (_a$5857 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t))) (jolt-invoke _a$5851 _a$5852 _a$5853 _a$5854 _a$5855 _a$5856 _a$5857)))) (jolt-hash-map _o$5858 _o$5859 _o$5860 _o$5861 _o$5862 _o$5863 _o$5864 _o$5865 _o$5866 _o$5867)))) (jolt-invoke _a$5868 _a$5869 _a$5870 _a$5871)) jolt-nil)) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))) check-invoke) (let* ((_o$5872 (keyword #f "doc")) (_o$5873 "If node is a core-op call whose argument type is provably in the error domain,\n conj a diagnostic into env's diags cell. arg-types is the vector of inferred\n argument types; pos is the call form's source offset, carried into each\n diagnostic.")) (jolt-hash-map _o$5872 _o$5873)))) + (def-var-with-meta! "jolt.passes.types.check" "check-invoke" (letrec ((check-invoke (lambda (cn args arg-types pos env) (let fnrec5825 ((cn cn) (args args) (arg-types arg-types) (pos pos) (env env)) (if (jolt-contains? (var-deref "jolt.passes.types.check" "num-ops") cn) (let* ((_a$5848 (lambda (_ i) (let fnrec5826 ((_ _) (i i)) (begin (let* ((t (jolt-nth arg-types i))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.check" "not-number?") t)) (let* ((_a$5844 (var-deref "clojure.core" "swap!")) (_a$5845 (jolt-get env (keyword #f "diags"))) (_a$5846 jolt-conj) (_a$5847 (let* ((_o$5834 (keyword #f "op")) (_o$5835 cn) (_o$5836 (keyword #f "argpos")) (_o$5837 i) (_o$5838 (keyword #f "type")) (_o$5839 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t)) (_o$5840 (keyword #f "pos")) (_o$5841 pos) (_o$5842 (keyword #f "msg")) (_o$5843 (let* ((_a$5827 (var-deref "clojure.core" "str")) (_a$5828 "`") (_a$5829 cn) (_a$5830 "` requires a number, but argument ") (_a$5831 (jolt-inc i)) (_a$5832 " is ") (_a$5833 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t))) (jolt-invoke _a$5827 _a$5828 _a$5829 _a$5830 _a$5831 _a$5832 _a$5833)))) (jolt-hash-map _o$5834 _o$5835 _o$5836 _o$5837 _o$5838 _o$5839 _o$5840 _o$5841 _o$5842 _o$5843)))) (jolt-invoke _a$5844 _a$5845 _a$5846 _a$5847)) jolt-nil)) jolt-nil)))) (_a$5849 jolt-nil) (_a$5850 (jolt-range (jolt-count args)))) (jolt-reduce _a$5848 _a$5849 _a$5850)) (if (let* ((and__25__auto (jolt-contains? (var-deref "jolt.passes.types.check" "seq-ops") cn))) (if (jolt-truthy? and__25__auto) (> (jolt-count args) 0) and__25__auto)) (let* ((t (jolt-nth arg-types 0))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.check" "not-seqable?") t)) (let* ((_a$5868 (var-deref "clojure.core" "swap!")) (_a$5869 (jolt-get env (keyword #f "diags"))) (_a$5870 jolt-conj) (_a$5871 (let* ((_o$5858 (keyword #f "op")) (_o$5859 cn) (_o$5860 (keyword #f "argpos")) (_o$5861 0) (_o$5862 (keyword #f "type")) (_o$5863 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t)) (_o$5864 (keyword #f "pos")) (_o$5865 pos) (_o$5866 (keyword #f "msg")) (_o$5867 (let* ((_a$5851 (var-deref "clojure.core" "str")) (_a$5852 "`") (_a$5853 cn) (_a$5854 "` requires ") (_a$5855 (if (jolt= cn "count") "a countable collection" "a seqable")) (_a$5856 ", but argument 1 is ") (_a$5857 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") t))) (jolt-invoke _a$5851 _a$5852 _a$5853 _a$5854 _a$5855 _a$5856 _a$5857)))) (jolt-hash-map _o$5858 _o$5859 _o$5860 _o$5861 _o$5862 _o$5863 _o$5864 _o$5865 _o$5866 _o$5867)))) (jolt-invoke _a$5868 _a$5869 _a$5870 _a$5871)) jolt-nil)) (if (jolt-truthy? (keyword #f "else")) jolt-nil jolt-nil))))))) check-invoke) (let* ((_o$5872 (keyword #f "doc")) (_o$5873 "If node is a core-op call whose argument type is provably in the error domain,\n conj a diagnostic into env's diags cell. arg-types is the vector of inferred\n argument types; pos is the call form's source offset, carried into each\n diagnostic.")) (jolt-hash-map _o$5872 _o$5873)))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.types.check" "register-user-fn!" (letrec ((register-user-fn! (lambda (node env) (let fnrec5874 ((node node) (env env)) (let* ((init (jolt-get node (keyword #f "init"))) (m (jolt-get node (keyword #f "meta"))) (redefable (let* ((and__25__auto m)) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-get m (keyword #f "redef")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get m (keyword #f "dynamic")))) and__25__auto)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-not redefable))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get init (keyword #f "op"))) and__25__auto))) (let* ((arities (jolt-get init (keyword #f "arities")))) (if (jolt= 1 (jolt-count arities)) (let* ((ar (jolt-first arities))) (if (jolt-not (jolt-get ar (keyword #f "rest"))) (let* ((_a$5885 (var-deref "clojure.core" "swap!")) (_a$5886 (jolt-get env (keyword #f "user-sigs"))) (_a$5887 jolt-assoc) (_a$5888 (let* ((_a$5875 (var-deref "clojure.core" "str")) (_a$5876 (jolt-get node (keyword #f "ns"))) (_a$5877 "/") (_a$5878 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$5875 _a$5876 _a$5877 _a$5878))) (_a$5889 (let* ((_o$5879 (keyword #f "name")) (_o$5880 (jolt-get node (keyword #f "name"))) (_o$5881 (keyword #f "params")) (_o$5882 (jolt-get ar (keyword #f "params"))) (_o$5883 (keyword #f "body")) (_o$5884 (jolt-get ar (keyword #f "body")))) (jolt-hash-map _o$5879 _o$5880 _o$5881 _o$5882 _o$5883 _o$5884)))) (jolt-invoke _a$5885 _a$5886 _a$5887 _a$5888 _a$5889)) jolt-nil)) jolt-nil)) jolt-nil)))))) register-user-fn!) (let* ((_o$5890 (keyword #f "doc")) (_o$5891 "Record a (def name (fn [params] body)) \x2014; single fixed arity, not redefinable \x2014;\n for later user-fn call checking. Redefinable/dynamic and multi/variadic fns are\n skipped (their body is not a stable requirement).")) (jolt-hash-map _o$5890 _o$5891)))) + (def-var-with-meta! "jolt.passes.types.check" "register-user-fn!" (letrec ((register-user-fn! (lambda (node env) (let fnrec5874 ((node node) (env env)) (let* ((init (jolt-get node (keyword #f "init"))) (m (jolt-get node (keyword #f "meta"))) (redefable (let* ((and__25__auto m)) (if (jolt-truthy? and__25__auto) (let* ((or__26__auto (jolt-get m (keyword #f "redef")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-get m (keyword #f "dynamic")))) and__25__auto)))) (if (let* ((and__25__auto (jolt-not redefable))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get init (keyword #f "op"))) and__25__auto)) (let* ((arities (jolt-get init (keyword #f "arities")))) (if (jolt= 1 (jolt-count arities)) (let* ((ar (jolt-first arities))) (if (jolt-not (jolt-get ar (keyword #f "rest"))) (let* ((_a$5885 (var-deref "clojure.core" "swap!")) (_a$5886 (jolt-get env (keyword #f "user-sigs"))) (_a$5887 jolt-assoc) (_a$5888 (let* ((_a$5875 (var-deref "clojure.core" "str")) (_a$5876 (jolt-get node (keyword #f "ns"))) (_a$5877 "/") (_a$5878 (jolt-get node (keyword #f "name")))) (jolt-invoke _a$5875 _a$5876 _a$5877 _a$5878))) (_a$5889 (let* ((_o$5879 (keyword #f "name")) (_o$5880 (jolt-get node (keyword #f "name"))) (_o$5881 (keyword #f "params")) (_o$5882 (jolt-get ar (keyword #f "params"))) (_o$5883 (keyword #f "body")) (_o$5884 (jolt-get ar (keyword #f "body")))) (jolt-hash-map _o$5879 _o$5880 _o$5881 _o$5882 _o$5883 _o$5884)))) (jolt-invoke _a$5885 _a$5886 _a$5887 _a$5888 _a$5889)) jolt-nil)) jolt-nil)) jolt-nil)))))) register-user-fn!) (let* ((_o$5890 (keyword #f "doc")) (_o$5891 "Record a (def name (fn [params] body)) \x2014; single fixed arity, not redefinable \x2014;\n for later user-fn call checking. Redefinable/dynamic and multi/variadic fns are\n skipped (their body is not a stable requirement).")) (jolt-hash-map _o$5890 _o$5891)))) (guard (e (#t #f)) (def-var-with-meta! "jolt.passes.types" "config-box" (jolt-invoke (var-deref "clojure.core" "atom") (let* ((_o$5127 (keyword #f "rtenv")) (_o$5128 (jolt-hash-map)) (_o$5129 (keyword #f "vtypes")) (_o$5130 (jolt-hash-map)) (_o$5131 (keyword #f "record-shapes")) (_o$5132 (jolt-hash-map)) (_o$5133 (keyword #f "protocol-methods")) (_o$5134 (jolt-hash-map)) (_o$5135 (keyword #f "map-shapes?")) (_o$5136 #f)) (jolt-hash-map _o$5127 _o$5128 _o$5129 _o$5130 _o$5131 _o$5132 _o$5133 _o$5134 _o$5135 _o$5136))) (let* ((_o$5137 (keyword #f "private")) (_o$5138 #t)) (jolt-hash-map _o$5137 _o$5138)))) (guard (e (#t #f)) @@ -457,7 +457,7 @@ (guard (e (#t #f)) (declare-var! "jolt.passes.types" "record-type-from-entry")) (guard (e (#t #f)) - (def-var! "jolt.passes.types" "field-type-from-tag" (letrec ((field-type-from-tag (lambda (tag depth shapes) (let fnrec5178 ((tag tag) (depth depth) (shapes shapes)) (if (jolt-truthy? (let* ((or__26__auto (jolt-nil? tag))) (if (jolt-truthy? or__26__auto) or__26__auto (<= depth 0)))) (keyword #f "any") (if (jolt= tag "num") (keyword #f "num") (if (jolt-truthy? (keyword #f "else")) (let* ((e (jolt-get shapes tag))) (if (jolt-truthy? e) (jolt-invoke (var-deref "jolt.passes.types" "record-type-from-entry") e depth shapes) (keyword #f "any"))) jolt-nil))))))) field-type-from-tag))) + (def-var! "jolt.passes.types" "field-type-from-tag" (letrec ((field-type-from-tag (lambda (tag depth shapes) (let fnrec5178 ((tag tag) (depth depth) (shapes shapes)) (if (let* ((or__26__auto (jolt-nil? tag))) (if (jolt-truthy? or__26__auto) or__26__auto (<= depth 0))) (keyword #f "any") (if (jolt= tag "num") (keyword #f "num") (if (jolt-truthy? (keyword #f "else")) (let* ((e (jolt-get shapes tag))) (if (jolt-truthy? e) (jolt-invoke (var-deref "jolt.passes.types" "record-type-from-entry") e depth shapes) (keyword #f "any"))) jolt-nil))))))) field-type-from-tag))) (guard (e (#t #f)) (def-var! "jolt.passes.types" "record-type-from-entry" (letrec ((record-type-from-entry (lambda (rs depth shapes) (let fnrec5179 ((rs rs) (depth depth) (shapes shapes)) (let* ((fields (jolt-get rs (keyword #f "fields"))) (tags (jolt-get rs (keyword #f "tags"))) (fmap (let* ((_a$5188 (lambda (m i) (let fnrec5180 ((m m) (i i)) (let* ((_a$5185 m) (_a$5186 (jolt-nth fields i)) (_a$5187 (let* ((_a$5181 (var-deref "jolt.passes.types" "field-type-from-tag")) (_a$5182 (if (jolt-truthy? tags) (jolt-nth tags i) jolt-nil)) (_a$5183 (jolt-dec depth)) (_a$5184 shapes)) (jolt-invoke _a$5181 _a$5182 _a$5183 _a$5184)))) (jolt-assoc _a$5185 _a$5186 _a$5187))))) (_a$5189 (jolt-hash-map)) (_a$5190 (jolt-range (jolt-count fields)))) (jolt-reduce _a$5188 _a$5189 _a$5190)))) (let* ((_a$5191 (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-struct") fmap)) (_a$5192 (keyword #f "shape")) (_a$5193 (jolt-invoke (var-deref "clojure.core" "vec") fields)) (_a$5194 (keyword #f "type")) (_a$5195 (jolt-get rs (keyword #f "type")))) (jolt-assoc _a$5191 _a$5192 _a$5193 _a$5194 _a$5195))))))) record-type-from-entry))) (guard (e (#t #f)) @@ -473,7 +473,7 @@ (guard (e (#t #f)) (def-var! "jolt.passes.types" "record-t?" (letrec ((record-t? (lambda (t) (let fnrec5221 ((t t)) (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-type?") t))) (if (jolt-truthy? and__25__auto) (jolt-some? (jolt-get t (keyword #f "type"))) and__25__auto)))))) record-t?))) (guard (e (#t #f)) - (def-var! "jolt.passes.types" "pred-on" (letrec ((pred-on (lambda (pname t) (let fnrec5222 ((pname pname) (t t)) (if (jolt-truthy? (let* ((or__26__auto (jolt= t (keyword #f "any")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= t (keyword #f "truthy"))))) jolt-nil (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "union-type?") t)) (let* ((vs (let* ((_a$5224 (lambda (m) (let fnrec5223 ((m m)) (pred-on pname m)))) (_a$5225 (jolt-invoke (var-deref "jolt.passes.types.lattice" "umembers") t))) (jolt-map _a$5224 _a$5225)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-seq vs))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-nil? (jolt-first vs))))) (if (jolt-truthy? and__25__auto) (jolt-apply jolt= vs) and__25__auto)) and__25__auto))) (jolt-first vs) jolt-nil)) (if (jolt-truthy? (keyword #f "else")) (let* ((G__131 pname)) (if (jolt= G__131 "number?") (jolt= t (keyword #f "num")) (if (jolt= G__131 "string?") (jolt= t (keyword #f "str")) (if (jolt= G__131 "keyword?") (jolt= t (keyword #f "kw")) (if (jolt= G__131 "record?") (jolt-invoke (var-deref "jolt.passes.types" "record-t?") t) (if (jolt= G__131 "nil?") #f (if (jolt= G__131 "some?") #t jolt-nil))))))) jolt-nil))))))) pred-on))) + (def-var! "jolt.passes.types" "pred-on" (letrec ((pred-on (lambda (pname t) (let fnrec5222 ((pname pname) (t t)) (if (let* ((or__26__auto (jolt= t (keyword #f "any")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= t (keyword #f "truthy")))) jolt-nil (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "union-type?") t)) (let* ((vs (let* ((_a$5224 (lambda (m) (let fnrec5223 ((m m)) (pred-on pname m)))) (_a$5225 (jolt-invoke (var-deref "jolt.passes.types.lattice" "umembers") t))) (jolt-map _a$5224 _a$5225)))) (if (jolt-truthy? (let* ((and__25__auto (jolt-seq vs))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-not (jolt-nil? (jolt-first vs))))) (if (jolt-truthy? and__25__auto) (jolt-apply jolt= vs) and__25__auto)) and__25__auto))) (jolt-first vs) jolt-nil)) (if (jolt-truthy? (keyword #f "else")) (let* ((G__131 pname)) (if (jolt= G__131 "number?") (jolt= t (keyword #f "num")) (if (jolt= G__131 "string?") (jolt= t (keyword #f "str")) (if (jolt= G__131 "keyword?") (jolt= t (keyword #f "kw")) (if (jolt= G__131 "record?") (jolt-invoke (var-deref "jolt.passes.types" "record-t?") t) (if (jolt= G__131 "nil?") #f (if (jolt= G__131 "some?") #t jolt-nil))))))) jolt-nil))))))) pred-on))) (guard (e (#t #f)) (def-var! "jolt.passes.types" "pure-node?" (letrec ((pure-node? (lambda (n) (let fnrec5226 ((n n)) (let* ((op (jolt-get n (keyword #f "op")))) (let* ((or__26__auto (jolt= op (keyword #f "const")))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= op (keyword #f "local"))))))))) pure-node?))) (guard (e (#t #f)) @@ -501,9 +501,9 @@ (guard (e (#t #f)) (def-var-with-meta! "jolt.passes.types" "infer-call" (letrec ((infer-call (lambda (node fnode iscall-var cn args n tenv env) (let fnrec5361 ((node node) (fnode fnode) (iscall-var iscall-var) (cn cn) (args args) (n n) (tenv tenv) (env env)) (let* ((fr (if (jolt-not iscall-var) (jolt-invoke (var-deref "jolt.passes.types" "infer") fnode tenv env) jolt-nil)) (fnode_PRIME_ (if (jolt-truthy? iscall-var) fnode (jolt-invoke (var-deref "jolt.passes.types" "nd") fr))) (callee-t (if (jolt-truthy? iscall-var) (let* ((_a$5362 (jolt-get env (keyword #f "vtypes"))) (_a$5363 (jolt-invoke (var-deref "jolt.passes.types" "var-key") fnode))) (jolt-get _a$5362 _a$5363)) (jolt-invoke (var-deref "jolt.passes.types" "ty") fr))) (ares (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (a) (let fnrec5364 ((a a)) (jolt-invoke (var-deref "jolt.passes.types" "infer") a tenv env))) args))) (begin (if (jolt-truthy? iscall-var) (let* ((_a$5368 (var-deref "clojure.core" "swap!")) (_a$5369 (jolt-get env (keyword #f "calls"))) (_a$5370 jolt-conj) (_a$5371 (let* ((_o$5366 (jolt-invoke (var-deref "jolt.passes.types" "var-key") fnode)) (_o$5367 (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5365 ((r r)) (jolt-invoke (var-deref "jolt.passes.types" "ty") r))) ares))) (jolt-vector _o$5366 _o$5367)))) (jolt-invoke _a$5368 _a$5369 _a$5370 _a$5371)) jolt-nil) (if (jolt-truthy? (jolt-get env (keyword #f "checking?"))) (let* ((ats (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5372 ((r r)) (jolt-invoke (var-deref "jolt.passes.types" "ty") r))) ares)) (pos (jolt-get node (keyword #f "pos")))) (begin (if (jolt-truthy? cn) (jolt-invoke (var-deref "jolt.passes.types.check" "check-invoke") cn args ats pos env) jolt-nil) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.check" "not-callable?") callee-t)) (let* ((_a$5381 (var-deref "clojure.core" "swap!")) (_a$5382 (jolt-get env (keyword #f "diags"))) (_a$5383 jolt-conj) (_a$5384 (let* ((_o$5373 (keyword #f "op")) (_o$5374 (keyword #f "call")) (_o$5375 (keyword #f "type")) (_o$5376 (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") callee-t)) (_o$5377 (keyword #f "pos")) (_o$5378 pos) (_o$5379 (keyword #f "msg")) (_o$5380 (jolt-invoke (var-deref "clojure.core" "str") "cannot call " (jolt-invoke (var-deref "jolt.passes.types.check" "type-name") callee-t) " as a function"))) (jolt-hash-map _o$5373 _o$5374 _o$5375 _o$5376 _o$5377 _o$5378 _o$5379 _o$5380)))) (jolt-invoke _a$5381 _a$5382 _a$5383 _a$5384)) jolt-nil) (if (jolt-truthy? (let* ((and__25__auto (jolt-get env (keyword #f "strict?")))) (if (jolt-truthy? and__25__auto) iscall-var and__25__auto))) (let* ((k (jolt-invoke (var-deref "jolt.passes.types" "var-key") fnode)) (usig (jolt-get (jolt-invoke (var-deref "clojure.core" "deref") (jolt-get env (keyword #f "user-sigs"))) k))) (if (jolt-truthy? usig) (jolt-invoke (var-deref "jolt.passes.types" "check-user-call") k usig ats pos env) jolt-nil)) jolt-nil))) jolt-nil) (let* ((pm (let* ((and__25__auto iscall-var)) (if (jolt-truthy? and__25__auto) (let* ((_a$5385 (jolt-get env (keyword #f "protocol-methods"))) (_a$5386 (jolt-invoke (var-deref "jolt.passes.types" "var-key") fnode))) (jolt-get _a$5385 _a$5386)) and__25__auto))) (rtype (if (jolt-truthy? (let* ((and__25__auto pm)) (if (jolt-truthy? and__25__auto) (jolt-pos? n) and__25__auto))) (jolt-get (jolt-invoke (var-deref "jolt.passes.types" "ty") (jolt-nth ares 0)) (keyword #f "type")) jolt-nil)) (base (jolt-assoc node (keyword #f "fn") fnode_PRIME_ (keyword #f "args") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5387 ((r r)) (jolt-invoke (var-deref "jolt.passes.types" "nd") r))) ares)))) (let* ((_o$5395 (if (jolt= cn "range") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-vec") (keyword #f "num")) (if (jolt-truthy? (let* ((and__25__auto cn)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-contains? (var-deref "jolt.passes.types" "elem-fns") cn))) (if (jolt-truthy? and__25__auto) (> n 0) and__25__auto)) and__25__auto))) (let* ((a0 (jolt-invoke (var-deref "jolt.passes.types" "ty") (jolt-nth ares 0)))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "vec-type?") a0)) (jolt-invoke (var-deref "jolt.passes.types.lattice" "velem") a0) (keyword #f "any"))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.passes.types" "call-ret-type") fnode env) jolt-nil)))) (_o$5396 (if (jolt-truthy? rtype) (let* ((_a$5388 base) (_a$5389 (keyword #f "devirt-type")) (_a$5390 rtype) (_a$5391 (keyword #f "devirt-proto")) (_a$5392 (jolt-nth pm 0)) (_a$5393 (keyword #f "devirt-method")) (_a$5394 (jolt-nth pm 1))) (jolt-assoc _a$5388 _a$5389 _a$5390 _a$5391 _a$5392 _a$5393 _a$5394)) base))) (jolt-vector _o$5395 _o$5396))))))))) infer-call) (let* ((_o$5397 (keyword #f "doc")) (_o$5398 "Everything else: type the args, collect the call (var callee) for whole-program\n inference, run the success-type check, and use the declared/estimated return type.\n range produces a numeric vector; an element-returning fn over a typed vector\n yields the element type. A protocol-method call whose receiver (arg 0) is a known\n record type is annotated [type-tag proto method] for devirtualization \x2014; the back\n end looks up the impl at emit time and calls it directly, skipping the registry\n dispatch (~19x cheaper).")) (jolt-hash-map _o$5397 _o$5398)))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.types" "infer-invoke" (letrec ((infer-invoke (lambda (node tenv env) (let fnrec5399 ((node node) (tenv tenv) (env env)) (let* ((fnode (jolt-get node (keyword #f "fn"))) (iscall-var (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op")))) (cn (if (jolt-truthy? (let* ((and__25__auto iscall-var)) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto))) (jolt-get fnode (keyword #f "name")) jolt-nil)) (args (jolt-get node (keyword #f "args"))) (n (jolt-count args))) (if (jolt-truthy? (let* ((and__25__auto iscall-var)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-contains? (var-deref "jolt.passes.types" "fold-preds") cn))) (if (jolt-truthy? and__25__auto) (jolt= n 1) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-pred-fold") node fnode cn args tenv env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "kw-callee?") fnode))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (<= n 2) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-kw-lookup") node fnode args n tenv env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "get-callee?") fnode))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get (jolt-nth args 1) (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get (jolt-nth args 1) (keyword #f "val"))) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-get-lookup") node args n tenv env) (if (jolt-truthy? (let* ((and__25__auto (jolt= cn "reduce"))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get (jolt-nth args 0) (keyword #f "op"))) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-reduce-hof") node args n tenv env) (if (jolt-truthy? (let* ((and__25__auto cn)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-get (var-deref "jolt.passes.types" "hof-table") cn))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get (jolt-nth args 0) (keyword #f "op"))) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-seq-hof") node cn args tenv env) (if (jolt-truthy? (let* ((and__25__auto (let* ((or__26__auto (jolt= cn "conj"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= cn "into"))))) (if (jolt-truthy? and__25__auto) (>= n 1) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-conj-into") node fnode cn args n tenv env) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.passes.types" "infer-call") node fnode iscall-var cn args n tenv env) jolt-nil)))))))))))) infer-invoke) (let* ((_o$5400 (keyword #f "doc")) (_o$5401 "Split the callee/args once and dispatch by callee shape to a pattern helper.")) (jolt-hash-map _o$5400 _o$5401)))) + (def-var-with-meta! "jolt.passes.types" "infer-invoke" (letrec ((infer-invoke (lambda (node tenv env) (let fnrec5399 ((node node) (tenv tenv) (env env)) (let* ((fnode (jolt-get node (keyword #f "fn"))) (iscall-var (jolt= (keyword #f "var") (jolt-get fnode (keyword #f "op")))) (cn (if (jolt-truthy? (let* ((and__25__auto iscall-var)) (if (jolt-truthy? and__25__auto) (jolt= "clojure.core" (jolt-get fnode (keyword #f "ns"))) and__25__auto))) (jolt-get fnode (keyword #f "name")) jolt-nil)) (args (jolt-get node (keyword #f "args"))) (n (jolt-count args))) (if (jolt-truthy? (let* ((and__25__auto iscall-var)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-contains? (var-deref "jolt.passes.types" "fold-preds") cn))) (if (jolt-truthy? and__25__auto) (jolt= n 1) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-pred-fold") node fnode cn args tenv env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "kw-callee?") fnode))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 1))) (if (jolt-truthy? and__25__auto) (<= n 2) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-kw-lookup") node fnode args n tenv env) (if (jolt-truthy? (let* ((and__25__auto (jolt-invoke (var-deref "jolt.passes.fold" "get-callee?") fnode))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt= (keyword #f "const") (jolt-get (jolt-nth args 1) (keyword #f "op"))))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "keyword?") (jolt-get (jolt-nth args 1) (keyword #f "val"))) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-get-lookup") node args n tenv env) (if (let* ((and__25__auto (jolt= cn "reduce"))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get (jolt-nth args 0) (keyword #f "op"))) and__25__auto)) and__25__auto)) (jolt-invoke (var-deref "jolt.passes.types" "infer-reduce-hof") node args n tenv env) (if (jolt-truthy? (let* ((and__25__auto cn)) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-get (var-deref "jolt.passes.types" "hof-table") cn))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (>= n 2))) (if (jolt-truthy? and__25__auto) (jolt= (keyword #f "fn") (jolt-get (jolt-nth args 0) (keyword #f "op"))) and__25__auto)) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types" "infer-seq-hof") node cn args tenv env) (if (let* ((and__25__auto (let* ((or__26__auto (jolt= cn "conj"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= cn "into"))))) (if (jolt-truthy? and__25__auto) (>= n 1) and__25__auto)) (jolt-invoke (var-deref "jolt.passes.types" "infer-conj-into") node fnode cn args n tenv env) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke (var-deref "jolt.passes.types" "infer-call") node fnode iscall-var cn args n tenv env) jolt-nil)))))))))))) infer-invoke) (let* ((_o$5400 (keyword #f "doc")) (_o$5401 "Split the callee/args once and dispatch by callee shape to a pattern helper.")) (jolt-hash-map _o$5400 _o$5401)))) (guard (e (#t #f)) - (def-var-with-meta! "jolt.passes.types" "infer" (letrec ((infer (lambda (node tenv env) (let fnrec5402 ((node node) (tenv tenv) (env env)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "const")) (let* ((_o$5403 (let* ((v (jolt-get node (keyword #f "val")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") v)) (keyword #f "num") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") v)) (keyword #f "str") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") v)) (keyword #f "kw") (if (jolt-truthy? (let* ((or__26__auto (jolt-nil? v))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= #f v)))) (keyword #f "any") (if (jolt-truthy? (keyword #f "else")) (keyword #f "truthy") jolt-nil))))))) (_o$5404 node)) (jolt-vector _o$5403 _o$5404)) (if (jolt= op (keyword #f "local")) (let* ((t (jolt-get tenv (jolt-get node (keyword #f "name"))))) (let* ((_o$5405 (if (jolt-truthy? t) t (keyword #f "any"))) (_o$5406 (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-safe?") t)) (let* ((n (jolt-assoc node (keyword #f "hint") (keyword #f "struct")))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "type-shape") t)) (jolt-assoc n (keyword #f "shape") (jolt-invoke (var-deref "jolt.passes.types.lattice" "type-shape") t)) n)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "vec-type?") t)) (jolt-assoc node (keyword #f "hint") (keyword #f "vector")) (if (jolt-truthy? (keyword #f "else")) node jolt-nil))))) (jolt-vector _o$5405 _o$5406))) (if (jolt= op (keyword #f "map")) (let* ((pairs (jolt-get node (keyword #f "pairs"))) (res (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (pr) (let fnrec5407 ((pr pr)) (let* ((kr (infer (jolt-nth pr 0) tenv env)) (vr (infer (jolt-nth pr 1) tenv env))) (let* ((_o$5408 (jolt-nth kr 1)) (_o$5409 (jolt-nth vr 1)) (_o$5410 (jolt-nth vr 0)) (_o$5411 (jolt-get (jolt-nth pr 0) (keyword #f "val")))) (jolt-vector _o$5408 _o$5409 _o$5410 _o$5411))))) pairs)) (struct? (let* ((and__25__auto (> (jolt-count res) 0))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "every?") (lambda (pr) (let fnrec5412 ((pr pr)) (jolt-invoke (var-deref "jolt.passes.fold" "scalar-const?") (jolt-nth pr 0)))) pairs))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (r) (let fnrec5413 ((r r)) (jolt-invoke (var-deref "jolt.passes.types.lattice" "truthy-type?") (jolt-nth r 2)))) res) and__25__auto)) and__25__auto))) (base (if (jolt-truthy? struct?) (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-struct") (let* ((_a$5418 (lambda (m r) (let fnrec5414 ((m m) (r r)) (let* ((_a$5415 m) (_a$5416 (jolt-nth r 3)) (_a$5417 (jolt-nth r 2))) (jolt-assoc _a$5415 _a$5416 _a$5417))))) (_a$5419 (jolt-hash-map)) (_a$5420 res)) (jolt-reduce _a$5418 _a$5419 _a$5420))) (var-deref "jolt.passes.types.lattice" "type-depth")) jolt-nil)) (shp (if (jolt-truthy? (let* ((and__25__auto (jolt-get env (keyword #f "map-shapes?")))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto base)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-type?") base) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types.lattice" "shape-order") (jolt-keys (jolt-invoke (var-deref "jolt.passes.types.lattice" "sfields") base))) jolt-nil)) (t (if (jolt-truthy? base) (if (jolt-truthy? shp) (jolt-assoc base (keyword #f "shape") shp) base) (keyword #f "any"))) (node_PRIME_ (jolt-assoc node (keyword #f "pairs") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5421 ((r r)) (let* ((_o$5422 (jolt-nth r 0)) (_o$5423 (jolt-nth r 1))) (jolt-vector _o$5422 _o$5423)))) res)))) (let* ((_o$5424 t) (_o$5425 (if (jolt-truthy? shp) (jolt-assoc node_PRIME_ (keyword #f "shape") shp) node_PRIME_))) (jolt-vector _o$5424 _o$5425))) (if (jolt= op (keyword #f "vector")) (let* ((irs (let* ((_a$5427 (var-deref "clojure.core" "mapv")) (_a$5428 (lambda (x) (let fnrec5426 ((x x)) (infer x tenv env)))) (_a$5429 (jolt-get node (keyword #f "items")))) (jolt-invoke _a$5427 _a$5428 _a$5429))) (ets (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5430 ((r r)) (jolt-nth r 0))) irs)) (el (if (jolt-empty? ets) (keyword #f "any") (let* ((_a$5431 (var-deref "jolt.passes.types.lattice" "join")) (_a$5432 (jolt-first ets)) (_a$5433 (jolt-rest ets))) (jolt-reduce _a$5431 _a$5432 _a$5433))))) (let* ((_o$5435 (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-vec") el) (var-deref "jolt.passes.types.lattice" "type-depth"))) (_o$5436 (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5434 ((r r)) (jolt-nth r 1))) irs)))) (jolt-vector _o$5435 _o$5436))) (if (jolt= op (keyword #f "set")) (let* ((irs (let* ((_a$5438 (var-deref "clojure.core" "mapv")) (_a$5439 (lambda (x) (let fnrec5437 ((x x)) (infer x tenv env)))) (_a$5440 (jolt-get node (keyword #f "items")))) (jolt-invoke _a$5438 _a$5439 _a$5440))) (ets (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5441 ((r r)) (jolt-nth r 0))) irs)) (el (if (jolt-empty? ets) (keyword #f "any") (let* ((_a$5442 (var-deref "jolt.passes.types.lattice" "join")) (_a$5443 (jolt-first ets)) (_a$5444 (jolt-rest ets))) (jolt-reduce _a$5442 _a$5443 _a$5444))))) (let* ((_o$5446 (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-set") el) (var-deref "jolt.passes.types.lattice" "type-depth"))) (_o$5447 (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5445 ((r r)) (jolt-nth r 1))) irs)))) (jolt-vector _o$5446 _o$5447))) (if (jolt= op (keyword #f "if")) (let* ((tr (infer (jolt-get node (keyword #f "test")) tenv env)) (thn (infer (jolt-get node (keyword #f "then")) tenv env)) (els (infer (jolt-get node (keyword #f "else")) tenv env))) (let* ((_o$5458 (let* ((_a$5448 (var-deref "jolt.passes.types.lattice" "join")) (_a$5449 (jolt-nth thn 0)) (_a$5450 (jolt-nth els 0))) (jolt-invoke _a$5448 _a$5449 _a$5450))) (_o$5459 (let* ((_a$5451 node) (_a$5452 (keyword #f "test")) (_a$5453 (jolt-nth tr 1)) (_a$5454 (keyword #f "then")) (_a$5455 (jolt-nth thn 1)) (_a$5456 (keyword #f "else")) (_a$5457 (jolt-nth els 1))) (jolt-assoc _a$5451 _a$5452 _a$5453 _a$5454 _a$5455 _a$5456 _a$5457)))) (jolt-vector _o$5458 _o$5459))) (if (jolt= op (keyword #f "do")) (let* ((stmts (let* ((_a$5461 (var-deref "clojure.core" "mapv")) (_a$5462 (lambda (s) (let fnrec5460 ((s s)) (jolt-nth (infer s tenv env) 1)))) (_a$5463 (jolt-get node (keyword #f "statements")))) (jolt-invoke _a$5461 _a$5462 _a$5463))) (r (infer (jolt-get node (keyword #f "ret")) tenv env))) (let* ((_o$5464 (jolt-nth r 0)) (_o$5465 (jolt-assoc node (keyword #f "statements") stmts (keyword #f "ret") (jolt-nth r 1)))) (jolt-vector _o$5464 _o$5465))) (if (jolt= op (keyword #f "throw")) (let* ((_o$5466 (keyword #f "any")) (_o$5467 (jolt-assoc node (keyword #f "expr") (jolt-nth (infer (jolt-get node (keyword #f "expr")) tenv env) 1)))) (jolt-vector _o$5466 _o$5467)) (if (jolt= op (keyword #f "var")) (begin (let* ((_a$5468 (var-deref "clojure.core" "swap!")) (_a$5469 (jolt-get env (keyword #f "escapes"))) (_a$5470 jolt-conj) (_a$5471 (jolt-invoke (var-deref "jolt.passes.types" "var-key") node))) (jolt-invoke _a$5468 _a$5469 _a$5470 _a$5471)) (let* ((_o$5474 (let* ((vt (let* ((_a$5472 (jolt-get env (keyword #f "vtypes"))) (_a$5473 (jolt-invoke (var-deref "jolt.passes.types" "var-key") node))) (jolt-get _a$5472 _a$5473)))) (if (jolt-truthy? vt) vt (keyword #f "any")))) (_o$5475 node)) (jolt-vector _o$5474 _o$5475))) (if (jolt= op (keyword #f "invoke")) (jolt-invoke (var-deref "jolt.passes.types" "infer-invoke") node tenv env) (if (jolt= op (keyword #f "let")) (let* ((res (let* ((_a$5486 (lambda (acc b) (let fnrec5476 ((acc acc) (b b)) (let* ((te (jolt-nth acc 0)) (binds (jolt-nth acc 1)) (ir (infer (jolt-nth b 1) te env))) (let* ((_o$5482 (let* ((_a$5477 te) (_a$5478 (jolt-nth b 0)) (_a$5479 (jolt-nth ir 0))) (jolt-assoc _a$5477 _a$5478 _a$5479))) (_o$5483 (jolt-conj binds (let* ((_o$5480 (jolt-nth b 0)) (_o$5481 (jolt-nth ir 1))) (jolt-vector _o$5480 _o$5481))))) (jolt-vector _o$5482 _o$5483)))))) (_a$5487 (let* ((_o$5484 tenv) (_o$5485 (jolt-vector))) (jolt-vector _o$5484 _o$5485))) (_a$5488 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$5486 _a$5487 _a$5488))) (br (let* ((_a$5489 (jolt-get node (keyword #f "body"))) (_a$5490 (jolt-nth res 0)) (_a$5491 env)) (infer _a$5489 _a$5490 _a$5491)))) (let* ((_o$5497 (jolt-nth br 0)) (_o$5498 (let* ((_a$5492 node) (_a$5493 (keyword #f "bindings")) (_a$5494 (jolt-nth res 1)) (_a$5495 (keyword #f "body")) (_a$5496 (jolt-nth br 1))) (jolt-assoc _a$5492 _a$5493 _a$5494 _a$5495 _a$5496)))) (jolt-vector _o$5497 _o$5498))) (if (jolt= op (keyword #f "loop")) (let* ((_o$5510 (keyword #f "any")) (_o$5511 (let* ((_a$5505 node) (_a$5506 (keyword #f "bindings")) (_a$5507 (let* ((_a$5502 (var-deref "clojure.core" "mapv")) (_a$5503 (lambda (b) (let fnrec5499 ((b b)) (let* ((_o$5500 (jolt-nth b 0)) (_o$5501 (jolt-nth (infer (jolt-nth b 1) tenv env) 1))) (jolt-vector _o$5500 _o$5501))))) (_a$5504 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$5502 _a$5503 _a$5504))) (_a$5508 (keyword #f "body")) (_a$5509 (jolt-nth (infer (jolt-get node (keyword #f "body")) tenv env) 1))) (jolt-assoc _a$5505 _a$5506 _a$5507 _a$5508 _a$5509)))) (jolt-vector _o$5510 _o$5511)) (if (jolt= op (keyword #f "recur")) (let* ((_o$5516 (keyword #f "any")) (_o$5517 (jolt-assoc node (keyword #f "args") (let* ((_a$5513 (var-deref "clojure.core" "mapv")) (_a$5514 (lambda (a) (let fnrec5512 ((a a)) (jolt-nth (infer a tenv env) 1)))) (_a$5515 (jolt-get node (keyword #f "args")))) (jolt-invoke _a$5513 _a$5514 _a$5515))))) (jolt-vector _o$5516 _o$5517)) (if (jolt= op (keyword #f "fn")) (let* ((_o$5533 (keyword #f "any")) (_o$5534 (jolt-assoc node (keyword #f "arities") (let* ((_a$5530 (var-deref "clojure.core" "mapv")) (_a$5531 (lambda (a) (let fnrec5518 ((a a)) (let* ((shapes (jolt-get env (keyword #f "record-shapes"))) (phm (let* ((_a$5523 (lambda (m pr) (let fnrec5519 ((m m) (pr pr)) (let* ((_a$5520 m) (_a$5521 (jolt-nth pr 0)) (_a$5522 (jolt-nth pr 1))) (jolt-assoc _a$5520 _a$5521 _a$5522))))) (_a$5524 (jolt-hash-map)) (_a$5525 (jolt-get a (keyword #f "phints")))) (jolt-reduce _a$5523 _a$5524 _a$5525))) (pe (let* ((_a$5527 (lambda (e p) (let fnrec5526 ((e e) (p p)) (jolt-assoc e p (let* ((ent (jolt-get shapes (jolt-get phm p)))) (if (jolt-truthy? ent) (jolt-invoke (var-deref "jolt.passes.types" "record-type-from-entry") ent (var-deref "jolt.passes.types.lattice" "type-depth") shapes) (keyword #f "any"))))))) (_a$5528 tenv) (_a$5529 (jolt-get a (keyword #f "params")))) (jolt-reduce _a$5527 _a$5528 _a$5529))) (pe (if (jolt-truthy? (jolt-get a (keyword #f "rest"))) (jolt-assoc pe (jolt-get a (keyword #f "rest")) (keyword #f "any")) pe))) (jolt-assoc a (keyword #f "body") (jolt-nth (infer (jolt-get a (keyword #f "body")) pe env) 1)))))) (_a$5532 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$5530 _a$5531 _a$5532))))) (jolt-vector _o$5533 _o$5534)) (if (jolt= op (keyword #f "def")) (begin (if (jolt-truthy? (jolt-get env (keyword #f "checking?"))) (jolt-invoke (var-deref "jolt.passes.types.check" "register-user-fn!") node env) jolt-nil) (let* ((_o$5535 (keyword #f "any")) (_o$5536 (jolt-assoc node (keyword #f "init") (jolt-nth (infer (jolt-get node (keyword #f "init")) tenv env) 1)))) (jolt-vector _o$5535 _o$5536))) (if (jolt= op (keyword #f "try")) (let* ((_o$5544 (keyword #f "any")) (_o$5545 (let* ((_a$5537 node) (_a$5538 (keyword #f "body")) (_a$5539 (jolt-nth (infer (jolt-get node (keyword #f "body")) tenv env) 1)) (_a$5540 (keyword #f "catch-body")) (_a$5541 (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-nth (infer (jolt-get node (keyword #f "catch-body")) tenv env) 1) jolt-nil)) (_a$5542 (keyword #f "finally")) (_a$5543 (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-nth (infer (jolt-get node (keyword #f "finally")) tenv env) 1) jolt-nil))) (jolt-assoc _a$5537 _a$5538 _a$5539 _a$5540 _a$5541 _a$5542 _a$5543)))) (jolt-vector _o$5544 _o$5545)) (if (jolt-truthy? (keyword #f "else")) (let* ((_o$5546 (keyword #f "any")) (_o$5547 node)) (jolt-vector _o$5546 _o$5547)) jolt-nil)))))))))))))))))))))) infer) (let* ((_o$5548 (keyword #f "doc")) (_o$5549 "Returns [type node'] \x2014; the inferred type of node and node with struct-safe\n :local references annotated :hint :struct. tenv maps in-scope local names to\n inferred types; env carries the inference config and this run's accumulators.")) (jolt-hash-map _o$5548 _o$5549)))) + (def-var-with-meta! "jolt.passes.types" "infer" (letrec ((infer (lambda (node tenv env) (let fnrec5402 ((node node) (tenv tenv) (env env)) (let* ((op (jolt-get node (keyword #f "op")))) (if (jolt= op (keyword #f "const")) (let* ((_o$5403 (let* ((v (jolt-get node (keyword #f "val")))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "number?") v)) (keyword #f "num") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "string?") v)) (keyword #f "str") (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "keyword?") v)) (keyword #f "kw") (if (let* ((or__26__auto (jolt-nil? v))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= #f v))) (keyword #f "any") (if (jolt-truthy? (keyword #f "else")) (keyword #f "truthy") jolt-nil))))))) (_o$5404 node)) (jolt-vector _o$5403 _o$5404)) (if (jolt= op (keyword #f "local")) (let* ((t (jolt-get tenv (jolt-get node (keyword #f "name"))))) (let* ((_o$5405 (if (jolt-truthy? t) t (keyword #f "any"))) (_o$5406 (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-safe?") t)) (let* ((n (jolt-assoc node (keyword #f "hint") (keyword #f "struct")))) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "type-shape") t)) (jolt-assoc n (keyword #f "shape") (jolt-invoke (var-deref "jolt.passes.types.lattice" "type-shape") t)) n)) (if (jolt-truthy? (jolt-invoke (var-deref "jolt.passes.types.lattice" "vec-type?") t)) (jolt-assoc node (keyword #f "hint") (keyword #f "vector")) (if (jolt-truthy? (keyword #f "else")) node jolt-nil))))) (jolt-vector _o$5405 _o$5406))) (if (jolt= op (keyword #f "map")) (let* ((pairs (jolt-get node (keyword #f "pairs"))) (res (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (pr) (let fnrec5407 ((pr pr)) (let* ((kr (infer (jolt-nth pr 0) tenv env)) (vr (infer (jolt-nth pr 1) tenv env))) (let* ((_o$5408 (jolt-nth kr 1)) (_o$5409 (jolt-nth vr 1)) (_o$5410 (jolt-nth vr 0)) (_o$5411 (jolt-get (jolt-nth pr 0) (keyword #f "val")))) (jolt-vector _o$5408 _o$5409 _o$5410 _o$5411))))) pairs)) (struct? (let* ((and__25__auto (> (jolt-count res) 0))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto (jolt-invoke (var-deref "clojure.core" "every?") (lambda (pr) (let fnrec5412 ((pr pr)) (jolt-invoke (var-deref "jolt.passes.fold" "scalar-const?") (jolt-nth pr 0)))) pairs))) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "clojure.core" "every?") (lambda (r) (let fnrec5413 ((r r)) (jolt-invoke (var-deref "jolt.passes.types.lattice" "truthy-type?") (jolt-nth r 2)))) res) and__25__auto)) and__25__auto))) (base (if (jolt-truthy? struct?) (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-struct") (let* ((_a$5418 (lambda (m r) (let fnrec5414 ((m m) (r r)) (let* ((_a$5415 m) (_a$5416 (jolt-nth r 3)) (_a$5417 (jolt-nth r 2))) (jolt-assoc _a$5415 _a$5416 _a$5417))))) (_a$5419 (jolt-hash-map)) (_a$5420 res)) (jolt-reduce _a$5418 _a$5419 _a$5420))) (var-deref "jolt.passes.types.lattice" "type-depth")) jolt-nil)) (shp (if (jolt-truthy? (let* ((and__25__auto (jolt-get env (keyword #f "map-shapes?")))) (if (jolt-truthy? and__25__auto) (let* ((and__25__auto base)) (if (jolt-truthy? and__25__auto) (jolt-invoke (var-deref "jolt.passes.types.lattice" "struct-type?") base) and__25__auto)) and__25__auto))) (jolt-invoke (var-deref "jolt.passes.types.lattice" "shape-order") (jolt-keys (jolt-invoke (var-deref "jolt.passes.types.lattice" "sfields") base))) jolt-nil)) (t (if (jolt-truthy? base) (if (jolt-truthy? shp) (jolt-assoc base (keyword #f "shape") shp) base) (keyword #f "any"))) (node_PRIME_ (jolt-assoc node (keyword #f "pairs") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5421 ((r r)) (let* ((_o$5422 (jolt-nth r 0)) (_o$5423 (jolt-nth r 1))) (jolt-vector _o$5422 _o$5423)))) res)))) (let* ((_o$5424 t) (_o$5425 (if (jolt-truthy? shp) (jolt-assoc node_PRIME_ (keyword #f "shape") shp) node_PRIME_))) (jolt-vector _o$5424 _o$5425))) (if (jolt= op (keyword #f "vector")) (let* ((irs (let* ((_a$5427 (var-deref "clojure.core" "mapv")) (_a$5428 (lambda (x) (let fnrec5426 ((x x)) (infer x tenv env)))) (_a$5429 (jolt-get node (keyword #f "items")))) (jolt-invoke _a$5427 _a$5428 _a$5429))) (ets (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5430 ((r r)) (jolt-nth r 0))) irs)) (el (if (jolt-empty? ets) (keyword #f "any") (let* ((_a$5431 (var-deref "jolt.passes.types.lattice" "join")) (_a$5432 (jolt-first ets)) (_a$5433 (jolt-rest ets))) (jolt-reduce _a$5431 _a$5432 _a$5433))))) (let* ((_o$5435 (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-vec") el) (var-deref "jolt.passes.types.lattice" "type-depth"))) (_o$5436 (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5434 ((r r)) (jolt-nth r 1))) irs)))) (jolt-vector _o$5435 _o$5436))) (if (jolt= op (keyword #f "set")) (let* ((irs (let* ((_a$5438 (var-deref "clojure.core" "mapv")) (_a$5439 (lambda (x) (let fnrec5437 ((x x)) (infer x tenv env)))) (_a$5440 (jolt-get node (keyword #f "items")))) (jolt-invoke _a$5438 _a$5439 _a$5440))) (ets (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5441 ((r r)) (jolt-nth r 0))) irs)) (el (if (jolt-empty? ets) (keyword #f "any") (let* ((_a$5442 (var-deref "jolt.passes.types.lattice" "join")) (_a$5443 (jolt-first ets)) (_a$5444 (jolt-rest ets))) (jolt-reduce _a$5442 _a$5443 _a$5444))))) (let* ((_o$5446 (jolt-invoke (var-deref "jolt.passes.types.lattice" "cap") (jolt-invoke (var-deref "jolt.passes.types.lattice" "mk-set") el) (var-deref "jolt.passes.types.lattice" "type-depth"))) (_o$5447 (jolt-assoc node (keyword #f "items") (jolt-invoke (var-deref "clojure.core" "mapv") (lambda (r) (let fnrec5445 ((r r)) (jolt-nth r 1))) irs)))) (jolt-vector _o$5446 _o$5447))) (if (jolt= op (keyword #f "if")) (let* ((tr (infer (jolt-get node (keyword #f "test")) tenv env)) (thn (infer (jolt-get node (keyword #f "then")) tenv env)) (els (infer (jolt-get node (keyword #f "else")) tenv env))) (let* ((_o$5458 (let* ((_a$5448 (var-deref "jolt.passes.types.lattice" "join")) (_a$5449 (jolt-nth thn 0)) (_a$5450 (jolt-nth els 0))) (jolt-invoke _a$5448 _a$5449 _a$5450))) (_o$5459 (let* ((_a$5451 node) (_a$5452 (keyword #f "test")) (_a$5453 (jolt-nth tr 1)) (_a$5454 (keyword #f "then")) (_a$5455 (jolt-nth thn 1)) (_a$5456 (keyword #f "else")) (_a$5457 (jolt-nth els 1))) (jolt-assoc _a$5451 _a$5452 _a$5453 _a$5454 _a$5455 _a$5456 _a$5457)))) (jolt-vector _o$5458 _o$5459))) (if (jolt= op (keyword #f "do")) (let* ((stmts (let* ((_a$5461 (var-deref "clojure.core" "mapv")) (_a$5462 (lambda (s) (let fnrec5460 ((s s)) (jolt-nth (infer s tenv env) 1)))) (_a$5463 (jolt-get node (keyword #f "statements")))) (jolt-invoke _a$5461 _a$5462 _a$5463))) (r (infer (jolt-get node (keyword #f "ret")) tenv env))) (let* ((_o$5464 (jolt-nth r 0)) (_o$5465 (jolt-assoc node (keyword #f "statements") stmts (keyword #f "ret") (jolt-nth r 1)))) (jolt-vector _o$5464 _o$5465))) (if (jolt= op (keyword #f "throw")) (let* ((_o$5466 (keyword #f "any")) (_o$5467 (jolt-assoc node (keyword #f "expr") (jolt-nth (infer (jolt-get node (keyword #f "expr")) tenv env) 1)))) (jolt-vector _o$5466 _o$5467)) (if (jolt= op (keyword #f "var")) (begin (let* ((_a$5468 (var-deref "clojure.core" "swap!")) (_a$5469 (jolt-get env (keyword #f "escapes"))) (_a$5470 jolt-conj) (_a$5471 (jolt-invoke (var-deref "jolt.passes.types" "var-key") node))) (jolt-invoke _a$5468 _a$5469 _a$5470 _a$5471)) (let* ((_o$5474 (let* ((vt (let* ((_a$5472 (jolt-get env (keyword #f "vtypes"))) (_a$5473 (jolt-invoke (var-deref "jolt.passes.types" "var-key") node))) (jolt-get _a$5472 _a$5473)))) (if (jolt-truthy? vt) vt (keyword #f "any")))) (_o$5475 node)) (jolt-vector _o$5474 _o$5475))) (if (jolt= op (keyword #f "invoke")) (jolt-invoke (var-deref "jolt.passes.types" "infer-invoke") node tenv env) (if (jolt= op (keyword #f "let")) (let* ((res (let* ((_a$5486 (lambda (acc b) (let fnrec5476 ((acc acc) (b b)) (let* ((te (jolt-nth acc 0)) (binds (jolt-nth acc 1)) (ir (infer (jolt-nth b 1) te env))) (let* ((_o$5482 (let* ((_a$5477 te) (_a$5478 (jolt-nth b 0)) (_a$5479 (jolt-nth ir 0))) (jolt-assoc _a$5477 _a$5478 _a$5479))) (_o$5483 (jolt-conj binds (let* ((_o$5480 (jolt-nth b 0)) (_o$5481 (jolt-nth ir 1))) (jolt-vector _o$5480 _o$5481))))) (jolt-vector _o$5482 _o$5483)))))) (_a$5487 (let* ((_o$5484 tenv) (_o$5485 (jolt-vector))) (jolt-vector _o$5484 _o$5485))) (_a$5488 (jolt-get node (keyword #f "bindings")))) (jolt-reduce _a$5486 _a$5487 _a$5488))) (br (let* ((_a$5489 (jolt-get node (keyword #f "body"))) (_a$5490 (jolt-nth res 0)) (_a$5491 env)) (infer _a$5489 _a$5490 _a$5491)))) (let* ((_o$5497 (jolt-nth br 0)) (_o$5498 (let* ((_a$5492 node) (_a$5493 (keyword #f "bindings")) (_a$5494 (jolt-nth res 1)) (_a$5495 (keyword #f "body")) (_a$5496 (jolt-nth br 1))) (jolt-assoc _a$5492 _a$5493 _a$5494 _a$5495 _a$5496)))) (jolt-vector _o$5497 _o$5498))) (if (jolt= op (keyword #f "loop")) (let* ((_o$5510 (keyword #f "any")) (_o$5511 (let* ((_a$5505 node) (_a$5506 (keyword #f "bindings")) (_a$5507 (let* ((_a$5502 (var-deref "clojure.core" "mapv")) (_a$5503 (lambda (b) (let fnrec5499 ((b b)) (let* ((_o$5500 (jolt-nth b 0)) (_o$5501 (jolt-nth (infer (jolt-nth b 1) tenv env) 1))) (jolt-vector _o$5500 _o$5501))))) (_a$5504 (jolt-get node (keyword #f "bindings")))) (jolt-invoke _a$5502 _a$5503 _a$5504))) (_a$5508 (keyword #f "body")) (_a$5509 (jolt-nth (infer (jolt-get node (keyword #f "body")) tenv env) 1))) (jolt-assoc _a$5505 _a$5506 _a$5507 _a$5508 _a$5509)))) (jolt-vector _o$5510 _o$5511)) (if (jolt= op (keyword #f "recur")) (let* ((_o$5516 (keyword #f "any")) (_o$5517 (jolt-assoc node (keyword #f "args") (let* ((_a$5513 (var-deref "clojure.core" "mapv")) (_a$5514 (lambda (a) (let fnrec5512 ((a a)) (jolt-nth (infer a tenv env) 1)))) (_a$5515 (jolt-get node (keyword #f "args")))) (jolt-invoke _a$5513 _a$5514 _a$5515))))) (jolt-vector _o$5516 _o$5517)) (if (jolt= op (keyword #f "fn")) (let* ((_o$5533 (keyword #f "any")) (_o$5534 (jolt-assoc node (keyword #f "arities") (let* ((_a$5530 (var-deref "clojure.core" "mapv")) (_a$5531 (lambda (a) (let fnrec5518 ((a a)) (let* ((shapes (jolt-get env (keyword #f "record-shapes"))) (phm (let* ((_a$5523 (lambda (m pr) (let fnrec5519 ((m m) (pr pr)) (let* ((_a$5520 m) (_a$5521 (jolt-nth pr 0)) (_a$5522 (jolt-nth pr 1))) (jolt-assoc _a$5520 _a$5521 _a$5522))))) (_a$5524 (jolt-hash-map)) (_a$5525 (jolt-get a (keyword #f "phints")))) (jolt-reduce _a$5523 _a$5524 _a$5525))) (pe (let* ((_a$5527 (lambda (e p) (let fnrec5526 ((e e) (p p)) (jolt-assoc e p (let* ((ent (jolt-get shapes (jolt-get phm p)))) (if (jolt-truthy? ent) (jolt-invoke (var-deref "jolt.passes.types" "record-type-from-entry") ent (var-deref "jolt.passes.types.lattice" "type-depth") shapes) (keyword #f "any"))))))) (_a$5528 tenv) (_a$5529 (jolt-get a (keyword #f "params")))) (jolt-reduce _a$5527 _a$5528 _a$5529))) (pe (if (jolt-truthy? (jolt-get a (keyword #f "rest"))) (jolt-assoc pe (jolt-get a (keyword #f "rest")) (keyword #f "any")) pe))) (jolt-assoc a (keyword #f "body") (jolt-nth (infer (jolt-get a (keyword #f "body")) pe env) 1)))))) (_a$5532 (jolt-get node (keyword #f "arities")))) (jolt-invoke _a$5530 _a$5531 _a$5532))))) (jolt-vector _o$5533 _o$5534)) (if (jolt= op (keyword #f "def")) (begin (if (jolt-truthy? (jolt-get env (keyword #f "checking?"))) (jolt-invoke (var-deref "jolt.passes.types.check" "register-user-fn!") node env) jolt-nil) (let* ((_o$5535 (keyword #f "any")) (_o$5536 (jolt-assoc node (keyword #f "init") (jolt-nth (infer (jolt-get node (keyword #f "init")) tenv env) 1)))) (jolt-vector _o$5535 _o$5536))) (if (jolt= op (keyword #f "try")) (let* ((_o$5544 (keyword #f "any")) (_o$5545 (let* ((_a$5537 node) (_a$5538 (keyword #f "body")) (_a$5539 (jolt-nth (infer (jolt-get node (keyword #f "body")) tenv env) 1)) (_a$5540 (keyword #f "catch-body")) (_a$5541 (if (jolt-truthy? (jolt-get node (keyword #f "catch-body"))) (jolt-nth (infer (jolt-get node (keyword #f "catch-body")) tenv env) 1) jolt-nil)) (_a$5542 (keyword #f "finally")) (_a$5543 (if (jolt-truthy? (jolt-get node (keyword #f "finally"))) (jolt-nth (infer (jolt-get node (keyword #f "finally")) tenv env) 1) jolt-nil))) (jolt-assoc _a$5537 _a$5538 _a$5539 _a$5540 _a$5541 _a$5542 _a$5543)))) (jolt-vector _o$5544 _o$5545)) (if (jolt-truthy? (keyword #f "else")) (let* ((_o$5546 (keyword #f "any")) (_o$5547 node)) (jolt-vector _o$5546 _o$5547)) jolt-nil)))))))))))))))))))))) infer) (let* ((_o$5548 (keyword #f "doc")) (_o$5549 "Returns [type node'] \x2014; the inferred type of node and node with struct-safe\n :local references annotated :hint :struct. tenv maps in-scope local names to\n inferred types; env carries the inference config and this run's accumulators.")) (jolt-hash-map _o$5548 _o$5549)))) (guard (e (#t #f)) (def-var! "jolt.passes.types" "infer-top" (letrec ((infer-top (lambda (node env) (let fnrec5550 ((node node) (env env)) (jolt-nth (jolt-invoke (var-deref "jolt.passes.types" "infer") node (jolt-hash-map) env) 1))))) infer-top))) (guard (e (#t #f)) diff --git a/host/chez/seed/prelude.ss b/host/chez/seed/prelude.ss index 09804e0..eeae29e 100644 --- a/host/chez/seed/prelude.ss +++ b/host/chez/seed/prelude.ss @@ -58,7 +58,7 @@ (mark-macro! "clojure.core" "loop")) (guard (e (#t #f)) (def-var! "clojure.core" "fn" - (lambda raw (let fnrec4832 ((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 fnrec4833 ((x x)) (if (jolt-truthy? (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 fnrec4834 ((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 fnrec4835 ((cs cs)) (jolt-map (lambda (c) (let fnrec4836 ((c c)) (let* ((_a$4837 (var-deref "clojure.core" "__sqcat")) (_a$4838 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "assert"))) (_a$4839 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$4837 _a$4838 _a$4839)))) cs))))) (let* ((_a$4848 (var-deref "clojure.core" "__sqcat")) (_a$4849 (jolt-invoke mka (jolt-get conds (keyword #f "pre")))) (_a$4850 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4843 (var-deref "clojure.core" "__sqcat")) (_a$4844 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$4845 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4840 (var-deref "clojure.core" "__sqvec")) (_a$4841 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%"))) (_a$4842 (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$4840 _a$4841 _a$4842)))) (_a$4846 (jolt-invoke mka (jolt-get conds (keyword #f "post")))) (_a$4847 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%")))) (jolt-invoke _a$4843 _a$4844 _a$4845 _a$4846 _a$4847))))) (jolt-invoke _a$4848 _a$4849 _a$4850))) body)))) (md (letrec ((go (lambda (ps nps lets) (let fnrec4851 ((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$4852 (jolt-next ps)) (_a$4853 (jolt-conj nps (jolt-first ps))) (_a$4854 lets)) (go _a$4852 _a$4853 _a$4854)) (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$4855 (jolt-next ps)) (_a$4856 (jolt-conj nps g)) (_a$4857 (jolt-conj (jolt-conj lets (jolt-first ps)) g))) (go _a$4855 _a$4856 _a$4857)))) (let* ((_o$4858 nps) (_o$4859 lets)) (jolt-vector _o$4858 _o$4859))))))) go)) (mk (lambda (sig) (let fnrec4860 ((sig sig)) (let* ((ps (jolt-invoke unhint (jolt-first sig))) (hinted (jolt-not (jolt= ps (jolt-first sig)))) (r (let* ((_a$4861 md) (_a$4862 (jolt-seq ps)) (_a$4863 (jolt-vector)) (_a$4864 (jolt-vector))) (jolt-invoke _a$4861 _a$4862 _a$4863 _a$4864))) (raw-body (jolt-rest sig)) (body (jolt-invoke wrap-conds raw-body)) (conds? (jolt-not (jolt= body raw-body)))) (if (jolt-truthy? (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$4869 (var-deref "clojure.core" "__sqcat")) (_a$4870 (jolt-invoke (var-deref "clojure.core" "__sq1") pv)) (_a$4871 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4865 (var-deref "clojure.core" "__sqcat")) (_a$4866 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$4867 (jolt-invoke (var-deref "clojure.core" "__sq1") lv)) (_a$4868 body)) (jolt-invoke _a$4865 _a$4866 _a$4867 _a$4868))))) (jolt-invoke _a$4869 _a$4870 _a$4871)))))))))) (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$4872 (var-deref "clojure.core" "__sqcat")) (_a$4873 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4874 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4875 a)) (jolt-invoke _a$4872 _a$4873 _a$4874 _a$4875)) (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$4876 (var-deref "clojure.core" "__sqcat")) (_a$4877 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4878 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4879 as)) (jolt-invoke _a$4876 _a$4877 _a$4878 _a$4879)) (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*")) as)))))))) + (lambda raw (let fnrec4832 ((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 fnrec4833 ((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 fnrec4834 ((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 fnrec4835 ((cs cs)) (jolt-map (lambda (c) (let fnrec4836 ((c c)) (let* ((_a$4837 (var-deref "clojure.core" "__sqcat")) (_a$4838 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "assert"))) (_a$4839 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$4837 _a$4838 _a$4839)))) cs))))) (let* ((_a$4848 (var-deref "clojure.core" "__sqcat")) (_a$4849 (jolt-invoke mka (jolt-get conds (keyword #f "pre")))) (_a$4850 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4843 (var-deref "clojure.core" "__sqcat")) (_a$4844 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$4845 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4840 (var-deref "clojure.core" "__sqvec")) (_a$4841 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%"))) (_a$4842 (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$4840 _a$4841 _a$4842)))) (_a$4846 (jolt-invoke mka (jolt-get conds (keyword #f "post")))) (_a$4847 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "%")))) (jolt-invoke _a$4843 _a$4844 _a$4845 _a$4846 _a$4847))))) (jolt-invoke _a$4848 _a$4849 _a$4850))) body)))) (md (letrec ((go (lambda (ps nps lets) (let fnrec4851 ((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$4852 (jolt-next ps)) (_a$4853 (jolt-conj nps (jolt-first ps))) (_a$4854 lets)) (go _a$4852 _a$4853 _a$4854)) (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$4855 (jolt-next ps)) (_a$4856 (jolt-conj nps g)) (_a$4857 (jolt-conj (jolt-conj lets (jolt-first ps)) g))) (go _a$4855 _a$4856 _a$4857)))) (let* ((_o$4858 nps) (_o$4859 lets)) (jolt-vector _o$4858 _o$4859))))))) go)) (mk (lambda (sig) (let fnrec4860 ((sig sig)) (let* ((ps (jolt-invoke unhint (jolt-first sig))) (hinted (jolt-not (jolt= ps (jolt-first sig)))) (r (let* ((_a$4861 md) (_a$4862 (jolt-seq ps)) (_a$4863 (jolt-vector)) (_a$4864 (jolt-vector))) (jolt-invoke _a$4861 _a$4862 _a$4863 _a$4864))) (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$4869 (var-deref "clojure.core" "__sqcat")) (_a$4870 (jolt-invoke (var-deref "clojure.core" "__sq1") pv)) (_a$4871 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4865 (var-deref "clojure.core" "__sqcat")) (_a$4866 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "let"))) (_a$4867 (jolt-invoke (var-deref "clojure.core" "__sq1") lv)) (_a$4868 body)) (jolt-invoke _a$4865 _a$4866 _a$4867 _a$4868))))) (jolt-invoke _a$4869 _a$4870 _a$4871)))))))))) (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$4872 (var-deref "clojure.core" "__sqcat")) (_a$4873 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4874 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4875 a)) (jolt-invoke _a$4872 _a$4873 _a$4874 _a$4875)) (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$4876 (var-deref "clojure.core" "__sqcat")) (_a$4877 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "fn*"))) (_a$4878 (jolt-invoke (var-deref "clojure.core" "__sq1") nm)) (_a$4879 as)) (jolt-invoke _a$4876 _a$4877 _a$4878 _a$4879)) (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" @@ -76,7 +76,7 @@ (mark-macro! "clojure.core" "cond->")) (guard (e (#t #f)) (def-var! "clojure.core" "case" - (lambda (expr . clauses) (let fnrec4932 ((expr expr) (clauses (list->cseq clauses))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (mk-const (lambda (c) (let fnrec4933 ((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$4934 (var-deref "clojure.core" "__sqcat")) (_a$4935 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$4936 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$4934 _a$4935 _a$4936)) c)))) (mk-test (lambda (c) (let fnrec4937 ((c c)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") c)) (let* ((_a$4943 (var-deref "clojure.core" "__sqcat")) (_a$4944 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "or"))) (_a$4945 (jolt-map (lambda (v) (let fnrec4938 ((v v)) (let* ((_a$4939 (var-deref "clojure.core" "__sqcat")) (_a$4940 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$4941 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4942 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const v)))) (jolt-invoke _a$4939 _a$4940 _a$4941 _a$4942)))) c))) (jolt-invoke _a$4943 _a$4944 _a$4945)) (let* ((_a$4946 (var-deref "clojure.core" "__sqcat")) (_a$4947 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$4948 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4949 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const c)))) (jolt-invoke _a$4946 _a$4947 _a$4948 _a$4949)))))) (collect (letrec ((collect (lambda (cls acc) (let fnrec4950 ((cls cls) (acc acc)) (if (jolt-truthy? (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 fnrec4951 ((items items) (seen seen)) (if (jolt-empty? items) jolt-nil (let* ((x (jolt-first items))) (if (jolt-truthy? (jolt-reduce (lambda (f s) (let fnrec4952 ((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$4953 (jolt-rest items)) (_a$4954 (jolt-conj seen x))) (fd _a$4953 _a$4954))))))))) fd)) (dup (let* ((_a$4955 first-dup) (_a$4956 (jolt-invoke collect clauses (jolt-vector))) (_a$4957 (jolt-vector))) (jolt-invoke _a$4955 _a$4956 _a$4957))) (build (letrec ((build (lambda (cls) (let fnrec4958 ((cls cls)) (if (jolt-empty? cls) (let* ((_a$4967 (var-deref "clojure.core" "__sqcat")) (_a$4968 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "throw"))) (_a$4969 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4963 (var-deref "clojure.core" "__sqcat")) (_a$4964 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "ex-info"))) (_a$4965 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4959 (var-deref "clojure.core" "__sqcat")) (_a$4960 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "str"))) (_a$4961 (jolt-invoke (var-deref "clojure.core" "__sq1") "No matching clause: ")) (_a$4962 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$4959 _a$4960 _a$4961 _a$4962)))) (_a$4966 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap"))))) (jolt-invoke _a$4963 _a$4964 _a$4965 _a$4966))))) (jolt-invoke _a$4967 _a$4968 _a$4969)) (if (jolt-empty? (jolt-rest cls)) (jolt-first cls) (let* ((_a$4970 (var-deref "clojure.core" "__sqcat")) (_a$4971 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$4972 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-test (jolt-first cls)))) (_a$4973 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth cls 1))) (_a$4974 (jolt-invoke (var-deref "clojure.core" "__sq1") (build (jolt-drop 2 cls))))) (jolt-invoke _a$4970 _a$4971 _a$4972 _a$4973 _a$4974)))))))) build))) (if (jolt-truthy? dup) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Duplicate case test constant: " (jolt-first dup))) (let* ((_a$4978 (var-deref "clojure.core" "__sqcat")) (_a$4979 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$4980 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4975 (var-deref "clojure.core" "__sqvec")) (_a$4976 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4977 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$4975 _a$4976 _a$4977)))) (_a$4981 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke build clauses)))) (jolt-invoke _a$4978 _a$4979 _a$4980 _a$4981))))))) + (lambda (expr . clauses) (let fnrec4932 ((expr expr) (clauses (list->cseq clauses))) (let* ((g (jolt-invoke (var-deref "clojure.core" "fresh-sym"))) (mk-const (lambda (c) (let fnrec4933 ((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$4934 (var-deref "clojure.core" "__sqcat")) (_a$4935 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "quote"))) (_a$4936 (jolt-invoke (var-deref "clojure.core" "__sq1") c))) (jolt-invoke _a$4934 _a$4935 _a$4936)) c)))) (mk-test (lambda (c) (let fnrec4937 ((c c)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") c)) (let* ((_a$4943 (var-deref "clojure.core" "__sqcat")) (_a$4944 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "or"))) (_a$4945 (jolt-map (lambda (v) (let fnrec4938 ((v v)) (let* ((_a$4939 (var-deref "clojure.core" "__sqcat")) (_a$4940 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$4941 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4942 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const v)))) (jolt-invoke _a$4939 _a$4940 _a$4941 _a$4942)))) c))) (jolt-invoke _a$4943 _a$4944 _a$4945)) (let* ((_a$4946 (var-deref "clojure.core" "__sqcat")) (_a$4947 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "="))) (_a$4948 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4949 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-const c)))) (jolt-invoke _a$4946 _a$4947 _a$4948 _a$4949)))))) (collect (letrec ((collect (lambda (cls acc) (let fnrec4950 ((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 fnrec4951 ((items items) (seen seen)) (if (jolt-empty? items) jolt-nil (let* ((x (jolt-first items))) (if (jolt-truthy? (jolt-reduce (lambda (f s) (let fnrec4952 ((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$4953 (jolt-rest items)) (_a$4954 (jolt-conj seen x))) (fd _a$4953 _a$4954))))))))) fd)) (dup (let* ((_a$4955 first-dup) (_a$4956 (jolt-invoke collect clauses (jolt-vector))) (_a$4957 (jolt-vector))) (jolt-invoke _a$4955 _a$4956 _a$4957))) (build (letrec ((build (lambda (cls) (let fnrec4958 ((cls cls)) (if (jolt-empty? cls) (let* ((_a$4967 (var-deref "clojure.core" "__sqcat")) (_a$4968 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "throw"))) (_a$4969 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4963 (var-deref "clojure.core" "__sqcat")) (_a$4964 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "ex-info"))) (_a$4965 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4959 (var-deref "clojure.core" "__sqcat")) (_a$4960 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "str"))) (_a$4961 (jolt-invoke (var-deref "clojure.core" "__sq1") "No matching clause: ")) (_a$4962 (jolt-invoke (var-deref "clojure.core" "__sq1") g))) (jolt-invoke _a$4959 _a$4960 _a$4961 _a$4962)))) (_a$4966 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke (var-deref "clojure.core" "__sqmap"))))) (jolt-invoke _a$4963 _a$4964 _a$4965 _a$4966))))) (jolt-invoke _a$4967 _a$4968 _a$4969)) (if (jolt-empty? (jolt-rest cls)) (jolt-first cls) (let* ((_a$4970 (var-deref "clojure.core" "__sqcat")) (_a$4971 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "if"))) (_a$4972 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke mk-test (jolt-first cls)))) (_a$4973 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-nth cls 1))) (_a$4974 (jolt-invoke (var-deref "clojure.core" "__sq1") (build (jolt-drop 2 cls))))) (jolt-invoke _a$4970 _a$4971 _a$4972 _a$4973 _a$4974)))))))) build))) (if (jolt-truthy? dup) (jolt-throw (jolt-invoke (var-deref "clojure.core" "str") "Duplicate case test constant: " (jolt-first dup))) (let* ((_a$4978 (var-deref "clojure.core" "__sqcat")) (_a$4979 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "let*"))) (_a$4980 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$4975 (var-deref "clojure.core" "__sqvec")) (_a$4976 (jolt-invoke (var-deref "clojure.core" "__sq1") g)) (_a$4977 (jolt-invoke (var-deref "clojure.core" "__sq1") expr))) (jolt-invoke _a$4975 _a$4976 _a$4977)))) (_a$4981 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-invoke build clauses)))) (jolt-invoke _a$4978 _a$4979 _a$4980 _a$4981))))))) (mark-macro! "clojure.core" "case")) (guard (e (#t #f)) (def-var! "clojure.core" "for" @@ -107,7 +107,7 @@ (guard (e (#t #f)) (def-var! "clojure.core" "peek" (letrec ((peek (lambda (coll) (let fnrec5118 ((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 fnrec5119 ((v v) (start start)) (subvec v start (jolt-count v)))) ((v start end) (let fnrec5120 ((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 fnrec5121 ((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 (jolt-truthy? (let* ((or__26__auto (< s 0))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (< e s))) (if (jolt-truthy? or__26__auto) or__26__auto (< (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 loop5122 ((i i) (acc acc)) (if (< i e) (let* ((_a$5123 (jolt-inc i)) (_a$5124 (jolt-conj acc (jolt-nth v i)))) (loop5122 _a$5123 _a$5124)) acc))))))))))) subvec))) + (def-var! "clojure.core" "subvec" (letrec ((subvec (case-lambda ((v start) (let fnrec5119 ((v v) (start start)) (subvec v start (jolt-count v)))) ((v start end) (let fnrec5120 ((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 fnrec5121 ((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 (< s 0))) (if (jolt-truthy? or__26__auto) or__26__auto (let* ((or__26__auto (< e s))) (if (jolt-truthy? or__26__auto) or__26__auto (< (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 loop5122 ((i i) (acc acc)) (if (< i e) (let* ((_a$5123 (jolt-inc i)) (_a$5124 (jolt-conj acc (jolt-nth v i)))) (loop5122 _a$5123 _a$5124)) acc))))))))))) subvec))) (guard (e (#t #f)) (def-var! "clojure.core" "mapv" (letrec ((mapv (lambda (f . colls) (let fnrec5125 ((f f) (colls (list->cseq colls))) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-apply jolt-map f colls)))))) mapv))) (guard (e (#t #f)) @@ -129,7 +129,7 @@ (guard (e (#t #f)) (def-var! "clojure.core" "butlast" (letrec ((butlast (lambda (s) (let fnrec4283 ((s s)) (let* ((ret (jolt-vector)) (s s)) (let loop4284 ((ret ret) (s s)) (if (jolt-truthy? (jolt-next s)) (let* ((_a$4285 (jolt-conj ret (jolt-first s))) (_a$4286 (jolt-next s))) (loop4284 _a$4285 _a$4286)) (jolt-seq ret)))))))) butlast))) (guard (e (#t #f)) - (def-var! "clojure.core" "partition-by" (letrec ((partition-by (case-lambda ((f) (let fnrec4287 ((f f)) (lambda (rf) (let fnrec4288 ((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 fnrec4289 () (jolt-invoke rf))) ((result) (let fnrec4290 ((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 fnrec4291 ((result result) (input input)) (let* ((val (jolt-invoke f input))) (if (jolt-truthy? (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 fnrec4292 ((f f) (coll coll)) (let* ((step (letrec ((step (lambda (s) (let fnrec4293 ((s s)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4294 () (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$4296 (var-deref "clojure.core" "take-while")) (_a$4297 (lambda (x) (let fnrec4295 ((x x)) (jolt= fv (jolt-invoke f x))))) (_a$4298 (jolt-rest s))) (jolt-invoke _a$4296 _a$4297 _a$4298))))) (jolt-cons run (step (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4299 () (jolt-invoke (var-deref "clojure.core" "coll->cells") (jolt-drop (jolt-count run) s)))))))) jolt-nil)))))))))) step))) (jolt-invoke step coll))))))) partition-by))) + (def-var! "clojure.core" "partition-by" (letrec ((partition-by (case-lambda ((f) (let fnrec4287 ((f f)) (lambda (rf) (let fnrec4288 ((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 fnrec4289 () (jolt-invoke rf))) ((result) (let fnrec4290 ((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 fnrec4291 ((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 fnrec4292 ((f f) (coll coll)) (let* ((step (letrec ((step (lambda (s) (let fnrec4293 ((s s)) (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4294 () (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$4296 (var-deref "clojure.core" "take-while")) (_a$4297 (lambda (x) (let fnrec4295 ((x x)) (jolt= fv (jolt-invoke f x))))) (_a$4298 (jolt-rest s))) (jolt-invoke _a$4296 _a$4297 _a$4298))))) (jolt-cons run (step (jolt-invoke (var-deref "clojure.core" "make-lazy-seq") (lambda () (let fnrec4299 () (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 fnrec4300 ((x x)) (jolt-not (jolt-nil? x)))))) some?))) (guard (e (#t #f)) @@ -161,7 +161,7 @@ (guard (e (#t #f)) (def-var! "clojure.core" "group-by" (letrec ((group-by (lambda (f coll) (let fnrec4335 ((f f) (coll coll)) (let* ((tm (jolt-invoke (var-deref "clojure.core" "transient") (jolt-hash-map))) (ks (let* ((_a$4337 (lambda (ks x) (let fnrec4336 ((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$4338 (jolt-invoke (var-deref "clojure.core" "transient") (jolt-vector))) (_a$4339 coll)) (jolt-reduce _a$4337 _a$4338 _a$4339)))) (begin (let* ((_a$4341 (lambda (_ k) (let fnrec4340 ((_ _) (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$4342 jolt-nil) (_a$4343 (jolt-invoke (var-deref "clojure.core" "persistent!") ks))) (jolt-reduce _a$4341 _a$4342 _a$4343)) (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 fnrec4344 ((coll coll)) (if (jolt-truthy? (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))) + (def-var! "clojure.core" "not-empty" (letrec ((not-empty (lambda (coll) (let fnrec4344 ((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 fnrec4345 ((pred pred) (coll coll)) (jolt-invoke (var-deref "clojure.core" "vec") (jolt-filter pred coll)))))) filterv))) (guard (e (#t #f)) @@ -263,7 +263,7 @@ (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$4454 (keyword #f "private")) (_o$4455 #t)) (jolt-hash-map _o$4454 _o$4455)))) (guard (e (#t #f)) - (def-var! "clojure.core" "isa?" (letrec ((isa? (case-lambda ((child parent) (let fnrec4456 ((child child) (parent parent)) (isa? (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) child parent))) ((h child parent) (let fnrec4457 ((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-contains? (let* ((_a$4458 (jolt-get h (keyword #f "ancestors"))) (_a$4459 child) (_a$4460 (jolt-hash-set))) (jolt-get _a$4458 _a$4459 _a$4460)) parent))) (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$4461 (jolt-count parent)) (_a$4462 (jolt-count child))) (jolt= _a$4461 _a$4462)))) (if (jolt-truthy? and__25__auto) (let* ((ret #t) (i 0)) (let loop4463 ((ret ret) (i i)) (if (jolt-truthy? (let* ((or__26__auto (jolt-not ret))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= i (jolt-count parent))))) ret (let* ((_a$4467 (let* ((_a$4464 h) (_a$4465 (jolt-nth child i)) (_a$4466 (jolt-nth parent i))) (isa? _a$4464 _a$4465 _a$4466))) (_a$4468 (jolt-inc i))) (loop4463 _a$4467 _a$4468))))) and__25__auto)) and__25__auto)) and__25__auto))))))))))) isa?))) + (def-var! "clojure.core" "isa?" (letrec ((isa? (case-lambda ((child parent) (let fnrec4456 ((child child) (parent parent)) (isa? (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) child parent))) ((h child parent) (let fnrec4457 ((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-contains? (let* ((_a$4458 (jolt-get h (keyword #f "ancestors"))) (_a$4459 child) (_a$4460 (jolt-hash-set))) (jolt-get _a$4458 _a$4459 _a$4460)) parent))) (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$4461 (jolt-count parent)) (_a$4462 (jolt-count child))) (jolt= _a$4461 _a$4462)))) (if (jolt-truthy? and__25__auto) (let* ((ret #t) (i 0)) (let loop4463 ((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$4467 (let* ((_a$4464 h) (_a$4465 (jolt-nth child i)) (_a$4466 (jolt-nth parent i))) (isa? _a$4464 _a$4465 _a$4466))) (_a$4468 (jolt-inc i))) (loop4463 _a$4467 _a$4468))))) 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 fnrec4469 ((tag tag)) (parents (jolt-invoke (var-deref "clojure.core" "deref") (var-deref "clojure.core" "global-hierarchy")) tag))) ((h tag) (let fnrec4470 ((h h) (tag tag)) (jolt-invoke (var-deref "clojure.core" "not-empty") (jolt-get (jolt-get h (keyword #f "parents")) tag))))))) parents))) (guard (e (#t #f)) @@ -1011,7 +1011,7 @@ (guard (e (#t #f)) (def-var! "clojure.string" "str-reverse" (letrec ((str-reverse (lambda (s) (let fnrec2186 ((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 fnrec2187 ((s s) (re re)) (split s re 0))) ((s re limit) (let fnrec2188 ((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 (jolt-truthy? (let* ((and__25__auto (jolt-zero? limit))) (if (jolt-truthy? and__25__auto) (> (jolt-count parts) 1) and__25__auto))) (let* ((v parts)) (let loop2189 ((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))) (loop2189 (jolt-pop v)) v))) parts))))))) split))) + (def-var! "clojure.string" "split" (letrec ((split (case-lambda ((s re) (let fnrec2187 ((s s) (re re)) (split s re 0))) ((s re limit) (let fnrec2188 ((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-count parts) 1) and__25__auto)) (let* ((v parts)) (let loop2189 ((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))) (loop2189 (jolt-pop v)) v))) parts))))))) split))) (guard (e (#t #f)) (def-var-with-meta! "clojure.string" "split-lines" (letrec ((split-lines (lambda (s) (let fnrec2190 ((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$2191 (keyword #f "doc")) (_o$2192 "Split s on \\n or \\r\\n, returning a vector of lines.")) (jolt-hash-map _o$2191 _o$2192)))) (guard (e (#t #f)) @@ -1031,9 +1031,9 @@ (guard (e (#t #f)) (def-var! "clojure.string" "last-index-of" (letrec ((last-index-of (case-lambda ((s value) (let fnrec2204 ((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$2205 (jolt-count s)) (_a$2206 (+ idx (jolt-count value)))) (- _a$2205 _a$2206)) jolt-nil)))) ((s value from) (let fnrec2207 ((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) (- from (+ 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 fnrec2208 ((replacement replacement)) (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$2210 (lambda (ch) (let fnrec2209 ((ch ch)) (let* ((c (jolt-invoke (var-deref "clojure.core" "str") ch))) (if (jolt-truthy? (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$2211 (jolt-seq replacement))) (jolt-map _a$2210 _a$2211))))))) re-quote-replacement) (let* ((_o$2212 (keyword #f "doc")) (_o$2213 "Escape special characters (backslash and dollar) in a regex replacement\n string so it is used literally rather than interpreted.")) (jolt-hash-map _o$2212 _o$2213)))) + (def-var-with-meta! "clojure.string" "re-quote-replacement" (letrec ((re-quote-replacement (lambda (replacement) (let fnrec2208 ((replacement replacement)) (jolt-apply (var-deref "clojure.core" "str") (let* ((_a$2210 (lambda (ch) (let fnrec2209 ((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$2211 (jolt-seq replacement))) (jolt-map _a$2210 _a$2211))))))) re-quote-replacement) (let* ((_o$2212 (keyword #f "doc")) (_o$2213 "Escape special characters (backslash and dollar) in a regex replacement\n string so it is used literally rather than interpreted.")) (jolt-hash-map _o$2212 _o$2213)))) (guard (e (#t #f)) - (def-var-with-meta! "clojure.string" "trim-newline" (letrec ((trim-newline (lambda (s) (let fnrec2214 ((s s)) (let* ((index (jolt-count s))) (let loop2215 ((index index)) (if (jolt-zero? index) "" (let* ((c (jolt-invoke (var-deref "clojure.core" "subs") s (jolt-dec index) index))) (if (jolt-truthy? (let* ((or__26__auto (jolt= c "\n"))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt= c "\r")))) (loop2215 (jolt-dec index)) (jolt-invoke (var-deref "clojure.core" "subs") s 0 index)))))))))) trim-newline) (let* ((_o$2216 (keyword #f "doc")) (_o$2217 "Removes all trailing newline \\n or return \\r characters from\n string. Similar to Perl's chomp.")) (jolt-hash-map _o$2216 _o$2217)))) + (def-var-with-meta! "clojure.string" "trim-newline" (letrec ((trim-newline (lambda (s) (let fnrec2214 ((s s)) (let* ((index (jolt-count s))) (let loop2215 ((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"))) (loop2215 (jolt-dec index)) (jolt-invoke (var-deref "clojure.core" "subs") s 0 index)))))))))) trim-newline) (let* ((_o$2216 (keyword #f "doc")) (_o$2217 "Removes all trailing newline \\n or return \\r characters from\n string. Similar to Perl's chomp.")) (jolt-hash-map _o$2216 _o$2217)))) (guard (e (#t #f)) (def-var! "clojure.walk" "walk" (letrec ((walk (lambda (inner outer form) (let fnrec2218 ((inner inner) (outer outer) (form form)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "vector?") form)) (jolt-invoke outer (let* ((_a$2219 (var-deref "clojure.core" "with-meta")) (_a$2220 (jolt-invoke (var-deref "clojure.core" "vec") (jolt-map inner form))) (_a$2221 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2219 _a$2220 _a$2221))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "record?") form)) (jolt-invoke outer (jolt-reduce (lambda (r x) (let fnrec2222 ((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$2225 (var-deref "clojure.core" "with-meta")) (_a$2226 (let* ((_a$2223 (jolt-invoke (var-deref "clojure.core" "empty") form)) (_a$2224 (jolt-map inner form))) (jolt-into _a$2223 _a$2224))) (_a$2227 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2225 _a$2226 _a$2227))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "list?") form)) (jolt-invoke outer (let* ((_a$2228 (var-deref "clojure.core" "with-meta")) (_a$2229 (jolt-apply jolt-list (jolt-map inner form))) (_a$2230 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2228 _a$2229 _a$2230))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "seq?") form)) (jolt-invoke outer (let* ((_a$2231 (var-deref "clojure.core" "with-meta")) (_a$2232 (jolt-map inner form)) (_a$2233 (jolt-invoke (var-deref "clojure.core" "meta") form))) (jolt-invoke _a$2231 _a$2232 _a$2233))) (if (jolt-truthy? (keyword #f "else")) (jolt-invoke outer form) jolt-nil)))))))))) walk))) (guard (e (#t #f)) @@ -1151,11 +1151,11 @@ (guard (e (#t #f)) (def-var! "clojure.pprint" "tuple-map" (letrec ((tuple-map (lambda (m v1) (let fnrec308 ((m m) (v1 v1)) (let* ((_a$314 (jolt-hash-map)) (_a$315 (jolt-map (lambda (G__20) (let fnrec309 ((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$312 k) (_o$313 (let* ((_o$310 v) (_o$311 v1)) (jolt-vector _o$310 _o$311)))) (jolt-vector _o$312 _o$313))))) m))) (jolt-into _a$314 _a$315)))))) tuple-map))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "rtrim" (letrec ((rtrim (lambda (s c) (let fnrec316 ((s s) (c c)) (let* ((len (jolt-count s))) (if (jolt-truthy? (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 loop317 ((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 (loop317 (jolt-dec n)) jolt-nil))))) s)))))) rtrim))) + (def-var! "clojure.pprint" "rtrim" (letrec ((rtrim (lambda (s c) (let fnrec316 ((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 loop317 ((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 (loop317 (jolt-dec n)) jolt-nil))))) s)))))) rtrim))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "ltrim" (letrec ((ltrim (lambda (s c) (let fnrec318 ((s s) (c c)) (let* ((len (jolt-count s))) (if (jolt-truthy? (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 loop319 ((n n)) (if (jolt-truthy? (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) (loop319 (jolt-inc n))))) s)))))) ltrim))) + (def-var! "clojure.pprint" "ltrim" (letrec ((ltrim (lambda (s c) (let fnrec318 ((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 loop319 ((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) (loop319 (jolt-inc n))))) s)))))) ltrim))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "prefix-count" (letrec ((prefix-count (lambda (aseq val) (let fnrec320 ((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 loop321 ((pos pos)) (if (jolt-truthy? (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 (loop321 (jolt-inc pos)))))))))) prefix-count))) + (def-var! "clojure.pprint" "prefix-count" (letrec ((prefix-count (lambda (aseq val) (let fnrec320 ((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 loop321 ((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 (loop321 (jolt-inc pos)))))))))) prefix-count))) (guard (e (#t #f)) (begin (def-var! "clojure.pprint" "IPrettyFlush" (jolt-invoke (var-deref "clojure.core" "make-protocol") "IPrettyFlush" (let* ((_o$324 (keyword #f "-ppflush")) (_o$325 (let* ((_o$322 (keyword #f "name")) (_o$323 "-ppflush")) (jolt-hash-map _o$322 _o$323)))) (jolt-hash-map _o$324 _o$325)))) (jolt-invoke (var-deref "clojure.core" "register-protocol-methods!") "IPrettyFlush" (jolt-vector "-ppflush")) (def-var! "clojure.pprint" "-ppflush" (lambda (G__22) (let fnrec326 ((G__22 G__22)) (protocol-dispatch1 "IPrettyFlush" "-ppflush" G__22)))))) (guard (e (#t #f)) @@ -1389,17 +1389,17 @@ (guard (e (#t #f)) (def-var! "clojure.pprint" "execute-sub-format" (letrec ((execute-sub-format (lambda (format args base-args) (let fnrec1107 ((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 fnrec1108 ((element element) (context context)) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "abort?") context)) (let* ((_o$1109 jolt-nil) (_o$1110 context)) (jolt-vector _o$1109 _o$1110)) (let* ((G__51 (jolt-invoke (var-deref "clojure.pprint" "realize-parameter-list") (jolt-get element (keyword #f "params")) context)) (params (jolt-nth G__51 0 jolt-nil)) (args (jolt-nth G__51 1 jolt-nil)) (G__52 (jolt-invoke (var-deref "clojure.pprint" "unzip-map") params)) (params (jolt-nth G__52 0 jolt-nil)) (offsets (jolt-nth G__52 1 jolt-nil)) (params (jolt-assoc params (keyword #f "base-args") base-args))) (let* ((_o$1116 jolt-nil) (_o$1117 (let* ((_a$1114 (jolt-get element (keyword #f "func"))) (_a$1115 (let* ((_o$1111 params) (_o$1112 args) (_o$1113 offsets)) (jolt-vector _o$1111 _o$1112 _o$1113)))) (jolt-apply _a$1114 _a$1115)))) (jolt-vector _o$1116 _o$1117)))))) args format)))))) execute-sub-format))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "choice-conditional" (letrec ((choice-conditional (lambda (params arg-navigator offsets) (let fnrec1118 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((arg (jolt-get params (keyword #f "selector"))) (G__53 (if (jolt-truthy? arg) (let* ((_o$1119 arg) (_o$1120 arg-navigator)) (jolt-vector _o$1119 _o$1120)) (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator))) (arg (jolt-nth G__53 0 jolt-nil)) (navigator (jolt-nth G__53 1 jolt-nil)) (clauses (jolt-get params (keyword #f "clauses"))) (clause (if (jolt-truthy? (let* ((or__26__auto (jolt-neg? arg))) (if (jolt-truthy? or__26__auto) or__26__auto (>= 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))) + (def-var! "clojure.pprint" "choice-conditional" (letrec ((choice-conditional (lambda (params arg-navigator offsets) (let fnrec1118 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((arg (jolt-get params (keyword #f "selector"))) (G__53 (if (jolt-truthy? arg) (let* ((_o$1119 arg) (_o$1120 arg-navigator)) (jolt-vector _o$1119 _o$1120)) (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator))) (arg (jolt-nth G__53 0 jolt-nil)) (navigator (jolt-nth G__53 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 (>= 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))) (guard (e (#t #f)) (def-var! "clojure.pprint" "boolean-conditional" (letrec ((boolean-conditional (lambda (params arg-navigator offsets) (let fnrec1121 ((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)) (navigator (jolt-nth G__54 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))) (guard (e (#t #f)) (def-var! "clojure.pprint" "check-arg-conditional" (letrec ((check-arg-conditional (lambda (params arg-navigator offsets) (let fnrec1122 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (let* ((G__55 (jolt-invoke (var-deref "clojure.pprint" "next-arg") arg-navigator)) (arg (jolt-nth G__55 0 jolt-nil)) (navigator (jolt-nth G__55 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))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "iterate-sublist" (letrec ((iterate-sublist (lambda (params navigator offsets) (let fnrec1123 ((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__56 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1124 param-clause) (_o$1125 navigator)) (jolt-vector _o$1124 _o$1125)))) (clause (jolt-nth G__56 0 jolt-nil)) (navigator (jolt-nth G__56 1 jolt-nil)) (G__57 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg-list (jolt-nth G__57 0 jolt-nil)) (navigator (jolt-nth G__57 1 jolt-nil)) (args (jolt-invoke (var-deref "clojure.pprint" "init-navigator") arg-list))) (let* ((count 0) (args args) (last-pos -1)) (let loop1126 ((count count) (args args) (last-pos last-pos)) (begin (if (jolt-truthy? (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) (> 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 (> 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) (>= 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$1127 (jolt-inc count)) (_a$1128 iter-result) (_a$1129 (jolt-get args (keyword #f "pos")))) (loop1126 _a$1127 _a$1128 _a$1129))))))))))))) iterate-sublist))) + (def-var! "clojure.pprint" "iterate-sublist" (letrec ((iterate-sublist (lambda (params navigator offsets) (let fnrec1123 ((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__56 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1124 param-clause) (_o$1125 navigator)) (jolt-vector _o$1124 _o$1125)))) (clause (jolt-nth G__56 0 jolt-nil)) (navigator (jolt-nth G__56 1 jolt-nil)) (G__57 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg-list (jolt-nth G__57 0 jolt-nil)) (navigator (jolt-nth G__57 1 jolt-nil)) (args (jolt-invoke (var-deref "clojure.pprint" "init-navigator") arg-list))) (let* ((count 0) (args args) (last-pos -1)) (let loop1126 ((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) (> 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 (> 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) (>= 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$1127 (jolt-inc count)) (_a$1128 iter-result) (_a$1129 (jolt-get args (keyword #f "pos")))) (loop1126 _a$1127 _a$1128 _a$1129))))))))))))) iterate-sublist))) (guard (e (#t #f)) (def-var! "clojure.pprint" "iterate-list-of-sublists" (letrec ((iterate-list-of-sublists (lambda (params navigator offsets) (let fnrec1130 ((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__58 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1131 param-clause) (_o$1132 navigator)) (jolt-vector _o$1131 _o$1132)))) (clause (jolt-nth G__58 0 jolt-nil)) (navigator (jolt-nth G__58 1 jolt-nil)) (G__59 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg-list (jolt-nth G__59 0 jolt-nil)) (navigator (jolt-nth G__59 1 jolt-nil))) (let* ((count 0) (arg-list arg-list)) (let loop1133 ((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 (> 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) (>= count max-count) and__25__auto))))) navigator (let* ((iter-result (let* ((_a$1134 (var-deref "clojure.pprint" "execute-sub-format")) (_a$1135 clause) (_a$1136 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") (jolt-first arg-list))) (_a$1137 (jolt-invoke (var-deref "clojure.pprint" "init-navigator") (jolt-next arg-list)))) (jolt-invoke _a$1134 _a$1135 _a$1136 _a$1137)))) (if (jolt= (keyword #f "colon-up-arrow") (jolt-first iter-result)) navigator (let* ((_a$1138 (jolt-inc count)) (_a$1139 (jolt-next arg-list))) (loop1133 _a$1138 _a$1139)))))))))))) iterate-list-of-sublists))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "iterate-main-list" (letrec ((iterate-main-list (lambda (params navigator offsets) (let fnrec1140 ((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$1141 param-clause) (_o$1142 navigator)) (jolt-vector _o$1141 _o$1142)))) (clause (jolt-nth G__60 0 jolt-nil)) (navigator (jolt-nth G__60 1 jolt-nil))) (let* ((count 0) (navigator navigator) (last-pos -1)) (let loop1143 ((count count) (navigator navigator) (last-pos last-pos)) (begin (if (jolt-truthy? (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) (> 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 (> 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) (>= 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$1144 (jolt-inc count)) (_a$1145 iter-result) (_a$1146 (jolt-get navigator (keyword #f "pos")))) (loop1143 _a$1144 _a$1145 _a$1146))))))))))))) iterate-main-list))) + (def-var! "clojure.pprint" "iterate-main-list" (letrec ((iterate-main-list (lambda (params navigator offsets) (let fnrec1140 ((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$1141 param-clause) (_o$1142 navigator)) (jolt-vector _o$1141 _o$1142)))) (clause (jolt-nth G__60 0 jolt-nil)) (navigator (jolt-nth G__60 1 jolt-nil))) (let* ((count 0) (navigator navigator) (last-pos -1)) (let loop1143 ((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) (> 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 (> 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) (>= 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$1144 (jolt-inc count)) (_a$1145 iter-result) (_a$1146 (jolt-get navigator (keyword #f "pos")))) (loop1143 _a$1144 _a$1145 _a$1146))))))))))))) iterate-main-list))) (guard (e (#t #f)) (def-var! "clojure.pprint" "iterate-main-sublists" (letrec ((iterate-main-sublists (lambda (params navigator offsets) (let fnrec1147 ((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__61 (if (jolt-empty? param-clause) (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator) (let* ((_o$1148 param-clause) (_o$1149 navigator)) (jolt-vector _o$1148 _o$1149)))) (clause (jolt-nth G__61 0 jolt-nil)) (navigator (jolt-nth G__61 1 jolt-nil))) (let* ((count 0) (navigator navigator)) (let loop1150 ((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 (> 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) (>= count max-count) and__25__auto))))) navigator (let* ((G__62 (jolt-invoke (var-deref "clojure.pprint" "next-arg-or-nil") navigator)) (sublist (jolt-nth G__62 0 jolt-nil)) (navigator (jolt-nth G__62 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 (loop1150 (jolt-inc count) navigator))))))))))) iterate-main-sublists))) (guard (e (#t #f)) @@ -1431,7 +1431,7 @@ (lambda directives (let fnrec1189 ((directives (list->cseq directives))) (let* ((process (lambda (G__69) (let fnrec1190 ((G__69 G__69)) (let* ((G__70 G__69) (char (jolt-nth G__70 0 jolt-nil)) (params (jolt-nth G__70 1 jolt-nil)) (flags (jolt-nth G__70 2 jolt-nil)) (bracket-info (jolt-nth G__70 3 jolt-nil)) (generator-fn (jolt-invoke (var-deref "clojure.core" "nthnext") G__70 4))) (let* ((_o$1201 char) (_o$1202 (let* ((_o$1191 (keyword #f "directive")) (_o$1192 char) (_o$1193 (keyword #f "params")) (_o$1194 (jolt-invoke (var-deref "clojure.core" "__sqcat") (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "array-map")) params)) (_o$1195 (keyword #f "flags")) (_o$1196 flags) (_o$1197 (keyword #f "bracket-info")) (_o$1198 bracket-info) (_o$1199 (keyword #f "generator-fn")) (_o$1200 (jolt-concat (jolt-list (jolt-symbol #f "fn") (jolt-vector (jolt-symbol #f "params") (jolt-symbol #f "offset"))) generator-fn))) (jolt-hash-map _o$1191 _o$1192 _o$1193 _o$1194 _o$1195 _o$1196 _o$1197 _o$1198 _o$1199 _o$1200)))) (jolt-vector _o$1201 _o$1202))))))) (let* ((_a$1206 (var-deref "clojure.core" "__sqcat")) (_a$1207 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "def"))) (_a$1208 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol #f "directive-table"))) (_a$1209 (jolt-invoke (var-deref "clojure.core" "__sq1") (let* ((_a$1203 (var-deref "clojure.core" "__sqcat")) (_a$1204 (jolt-invoke (var-deref "clojure.core" "__sq1") (jolt-symbol "clojure.core" "hash-map"))) (_a$1205 (jolt-invoke (var-deref "clojure.core" "mapcat") process directives))) (jolt-invoke _a$1203 _a$1204 _a$1205))))) (jolt-invoke _a$1206 _a$1207 _a$1208 _a$1209)))))) (mark-macro! "clojure.pprint" "defdirectives")) (guard (e (#t #f)) - (def-var! "clojure.pprint" "directive-table" (let* ((_a$1762 (integer->char 65)) (_a$1763 (let* ((_o$1232 (keyword #f "bracket-info")) (_o$1233 (jolt-hash-map)) (_o$1234 (keyword #f "flags")) (_o$1235 (let* ((_o$1210 (keyword #f "at")) (_o$1211 (keyword #f "colon")) (_o$1212 (keyword #f "both"))) (jolt-hash-set _o$1210 _o$1211 _o$1212))) (_o$1236 (keyword #f "generator-fn")) (_o$1237 (lambda (params offset) (let fnrec1213 ((params params) (offset offset)) (lambda (p__11_ p__12_ p__13_) (let fnrec1214 ((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_)))))) (_o$1238 (keyword #f "directive")) (_o$1239 (integer->char 65)) (_o$1240 (keyword #f "params")) (_o$1241 (let* ((_a$1223 (var-deref "clojure.core" "array-map")) (_a$1224 (keyword #f "mincol")) (_a$1225 (let* ((_o$1215 0) (_o$1216 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1215 _o$1216))) (_a$1226 (keyword #f "colinc")) (_a$1227 (let* ((_o$1217 1) (_o$1218 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1217 _o$1218))) (_a$1228 (keyword #f "minpad")) (_a$1229 (let* ((_o$1219 0) (_o$1220 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1219 _o$1220))) (_a$1230 (keyword #f "padchar")) (_a$1231 (let* ((_o$1221 (integer->char 32)) (_o$1222 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1221 _o$1222)))) (jolt-invoke _a$1223 _a$1224 _a$1225 _a$1226 _a$1227 _a$1228 _a$1229 _a$1230 _a$1231)))) (jolt-hash-map _o$1232 _o$1233 _o$1234 _o$1235 _o$1236 _o$1237 _o$1238 _o$1239 _o$1240 _o$1241))) (_a$1764 (integer->char 83)) (_a$1765 (let* ((_o$1264 (keyword #f "bracket-info")) (_o$1265 (jolt-hash-map)) (_o$1266 (keyword #f "flags")) (_o$1267 (let* ((_o$1242 (keyword #f "at")) (_o$1243 (keyword #f "colon")) (_o$1244 (keyword #f "both"))) (jolt-hash-set _o$1242 _o$1243 _o$1244))) (_o$1268 (keyword #f "generator-fn")) (_o$1269 (lambda (params offset) (let fnrec1245 ((params params) (offset offset)) (lambda (p__14_ p__15_ p__16_) (let fnrec1246 ((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_)))))) (_o$1270 (keyword #f "directive")) (_o$1271 (integer->char 83)) (_o$1272 (keyword #f "params")) (_o$1273 (let* ((_a$1255 (var-deref "clojure.core" "array-map")) (_a$1256 (keyword #f "mincol")) (_a$1257 (let* ((_o$1247 0) (_o$1248 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1247 _o$1248))) (_a$1258 (keyword #f "colinc")) (_a$1259 (let* ((_o$1249 1) (_o$1250 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1249 _o$1250))) (_a$1260 (keyword #f "minpad")) (_a$1261 (let* ((_o$1251 0) (_o$1252 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1251 _o$1252))) (_a$1262 (keyword #f "padchar")) (_a$1263 (let* ((_o$1253 (integer->char 32)) (_o$1254 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1253 _o$1254)))) (jolt-invoke _a$1255 _a$1256 _a$1257 _a$1258 _a$1259 _a$1260 _a$1261 _a$1262 _a$1263)))) (jolt-hash-map _o$1264 _o$1265 _o$1266 _o$1267 _o$1268 _o$1269 _o$1270 _o$1271 _o$1272 _o$1273))) (_a$1766 (integer->char 68)) (_a$1767 (let* ((_o$1296 (keyword #f "bracket-info")) (_o$1297 (jolt-hash-map)) (_o$1298 (keyword #f "flags")) (_o$1299 (let* ((_o$1274 (keyword #f "at")) (_o$1275 (keyword #f "colon")) (_o$1276 (keyword #f "both"))) (jolt-hash-set _o$1274 _o$1275 _o$1276))) (_o$1300 (keyword #f "generator-fn")) (_o$1301 (lambda (params offset) (let fnrec1277 ((params params) (offset offset)) (lambda (p__17_ p__18_ p__19_) (let fnrec1278 ((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_)))))) (_o$1302 (keyword #f "directive")) (_o$1303 (integer->char 68)) (_o$1304 (keyword #f "params")) (_o$1305 (let* ((_a$1287 (var-deref "clojure.core" "array-map")) (_a$1288 (keyword #f "mincol")) (_a$1289 (let* ((_o$1279 0) (_o$1280 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1279 _o$1280))) (_a$1290 (keyword #f "padchar")) (_a$1291 (let* ((_o$1281 (integer->char 32)) (_o$1282 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1281 _o$1282))) (_a$1292 (keyword #f "commachar")) (_a$1293 (let* ((_o$1283 (integer->char 44)) (_o$1284 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1283 _o$1284))) (_a$1294 (keyword #f "commainterval")) (_a$1295 (let* ((_o$1285 3) (_o$1286 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1285 _o$1286)))) (jolt-invoke _a$1287 _a$1288 _a$1289 _a$1290 _a$1291 _a$1292 _a$1293 _a$1294 _a$1295)))) (jolt-hash-map _o$1296 _o$1297 _o$1298 _o$1299 _o$1300 _o$1301 _o$1302 _o$1303 _o$1304 _o$1305))) (_a$1768 (integer->char 66)) (_a$1769 (let* ((_o$1328 (keyword #f "bracket-info")) (_o$1329 (jolt-hash-map)) (_o$1330 (keyword #f "flags")) (_o$1331 (let* ((_o$1306 (keyword #f "at")) (_o$1307 (keyword #f "colon")) (_o$1308 (keyword #f "both"))) (jolt-hash-set _o$1306 _o$1307 _o$1308))) (_o$1332 (keyword #f "generator-fn")) (_o$1333 (lambda (params offset) (let fnrec1309 ((params params) (offset offset)) (lambda (p__20_ p__21_ p__22_) (let fnrec1310 ((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_)))))) (_o$1334 (keyword #f "directive")) (_o$1335 (integer->char 66)) (_o$1336 (keyword #f "params")) (_o$1337 (let* ((_a$1319 (var-deref "clojure.core" "array-map")) (_a$1320 (keyword #f "mincol")) (_a$1321 (let* ((_o$1311 0) (_o$1312 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1311 _o$1312))) (_a$1322 (keyword #f "padchar")) (_a$1323 (let* ((_o$1313 (integer->char 32)) (_o$1314 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1313 _o$1314))) (_a$1324 (keyword #f "commachar")) (_a$1325 (let* ((_o$1315 (integer->char 44)) (_o$1316 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1315 _o$1316))) (_a$1326 (keyword #f "commainterval")) (_a$1327 (let* ((_o$1317 3) (_o$1318 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1317 _o$1318)))) (jolt-invoke _a$1319 _a$1320 _a$1321 _a$1322 _a$1323 _a$1324 _a$1325 _a$1326 _a$1327)))) (jolt-hash-map _o$1328 _o$1329 _o$1330 _o$1331 _o$1332 _o$1333 _o$1334 _o$1335 _o$1336 _o$1337))) (_a$1770 (integer->char 79)) (_a$1771 (let* ((_o$1360 (keyword #f "bracket-info")) (_o$1361 (jolt-hash-map)) (_o$1362 (keyword #f "flags")) (_o$1363 (let* ((_o$1338 (keyword #f "at")) (_o$1339 (keyword #f "colon")) (_o$1340 (keyword #f "both"))) (jolt-hash-set _o$1338 _o$1339 _o$1340))) (_o$1364 (keyword #f "generator-fn")) (_o$1365 (lambda (params offset) (let fnrec1341 ((params params) (offset offset)) (lambda (p__23_ p__24_ p__25_) (let fnrec1342 ((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_)))))) (_o$1366 (keyword #f "directive")) (_o$1367 (integer->char 79)) (_o$1368 (keyword #f "params")) (_o$1369 (let* ((_a$1351 (var-deref "clojure.core" "array-map")) (_a$1352 (keyword #f "mincol")) (_a$1353 (let* ((_o$1343 0) (_o$1344 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1343 _o$1344))) (_a$1354 (keyword #f "padchar")) (_a$1355 (let* ((_o$1345 (integer->char 32)) (_o$1346 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1345 _o$1346))) (_a$1356 (keyword #f "commachar")) (_a$1357 (let* ((_o$1347 (integer->char 44)) (_o$1348 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1347 _o$1348))) (_a$1358 (keyword #f "commainterval")) (_a$1359 (let* ((_o$1349 3) (_o$1350 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1349 _o$1350)))) (jolt-invoke _a$1351 _a$1352 _a$1353 _a$1354 _a$1355 _a$1356 _a$1357 _a$1358 _a$1359)))) (jolt-hash-map _o$1360 _o$1361 _o$1362 _o$1363 _o$1364 _o$1365 _o$1366 _o$1367 _o$1368 _o$1369))) (_a$1772 (integer->char 88)) (_a$1773 (let* ((_o$1392 (keyword #f "bracket-info")) (_o$1393 (jolt-hash-map)) (_o$1394 (keyword #f "flags")) (_o$1395 (let* ((_o$1370 (keyword #f "at")) (_o$1371 (keyword #f "colon")) (_o$1372 (keyword #f "both"))) (jolt-hash-set _o$1370 _o$1371 _o$1372))) (_o$1396 (keyword #f "generator-fn")) (_o$1397 (lambda (params offset) (let fnrec1373 ((params params) (offset offset)) (lambda (p__26_ p__27_ p__28_) (let fnrec1374 ((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_)))))) (_o$1398 (keyword #f "directive")) (_o$1399 (integer->char 88)) (_o$1400 (keyword #f "params")) (_o$1401 (let* ((_a$1383 (var-deref "clojure.core" "array-map")) (_a$1384 (keyword #f "mincol")) (_a$1385 (let* ((_o$1375 0) (_o$1376 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1375 _o$1376))) (_a$1386 (keyword #f "padchar")) (_a$1387 (let* ((_o$1377 (integer->char 32)) (_o$1378 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1377 _o$1378))) (_a$1388 (keyword #f "commachar")) (_a$1389 (let* ((_o$1379 (integer->char 44)) (_o$1380 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1379 _o$1380))) (_a$1390 (keyword #f "commainterval")) (_a$1391 (let* ((_o$1381 3) (_o$1382 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1381 _o$1382)))) (jolt-invoke _a$1383 _a$1384 _a$1385 _a$1386 _a$1387 _a$1388 _a$1389 _a$1390 _a$1391)))) (jolt-hash-map _o$1392 _o$1393 _o$1394 _o$1395 _o$1396 _o$1397 _o$1398 _o$1399 _o$1400 _o$1401))) (_a$1774 (integer->char 37)) (_a$1775 (let* ((_o$1407 (keyword #f "bracket-info")) (_o$1408 (jolt-hash-map)) (_o$1409 (keyword #f "flags")) (_o$1410 (jolt-hash-set)) (_o$1411 (keyword #f "generator-fn")) (_o$1412 (lambda (params offset) (let fnrec1402 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1403 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1404 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1404 (jolt-inc i))) jolt-nil)))) arg-navigator)))))) (_o$1413 (keyword #f "directive")) (_o$1414 (integer->char 37)) (_o$1415 (keyword #f "params")) (_o$1416 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1405 1) (_o$1406 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1405 _o$1406))))) (jolt-hash-map _o$1407 _o$1408 _o$1409 _o$1410 _o$1411 _o$1412 _o$1413 _o$1414 _o$1415 _o$1416))) (_a$1776 (integer->char 38)) (_a$1777 (let* ((_o$1422 (keyword #f "bracket-info")) (_o$1423 (jolt-hash-map)) (_o$1424 (keyword #f "flags")) (_o$1425 (jolt-hash-set (keyword #f "pretty"))) (_o$1426 (keyword #f "generator-fn")) (_o$1427 (lambda (params offset) (let fnrec1417 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1418 ((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 loop1419 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1419 (jolt-inc i))) jolt-nil)))))) arg-navigator)))))) (_o$1428 (keyword #f "directive")) (_o$1429 (integer->char 38)) (_o$1430 (keyword #f "params")) (_o$1431 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1420 1) (_o$1421 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1420 _o$1421))))) (jolt-hash-map _o$1422 _o$1423 _o$1424 _o$1425 _o$1426 _o$1427 _o$1428 _o$1429 _o$1430 _o$1431))) (_a$1778 (integer->char 124)) (_a$1779 (let* ((_o$1437 (keyword #f "bracket-info")) (_o$1438 (jolt-hash-map)) (_o$1439 (keyword #f "flags")) (_o$1440 (jolt-hash-set)) (_o$1441 (keyword #f "generator-fn")) (_o$1442 (lambda (params offset) (let fnrec1432 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1433 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1434 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "print") (integer->char 12)) (loop1434 (jolt-inc i))) jolt-nil)))) arg-navigator)))))) (_o$1443 (keyword #f "directive")) (_o$1444 (integer->char 124)) (_o$1445 (keyword #f "params")) (_o$1446 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1435 1) (_o$1436 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1435 _o$1436))))) (jolt-hash-map _o$1437 _o$1438 _o$1439 _o$1440 _o$1441 _o$1442 _o$1443 _o$1444 _o$1445 _o$1446))) (_a$1780 (integer->char 126)) (_a$1781 (let* ((_o$1451 (keyword #f "bracket-info")) (_o$1452 (jolt-hash-map)) (_o$1453 (keyword #f "flags")) (_o$1454 (jolt-hash-set)) (_o$1455 (keyword #f "generator-fn")) (_o$1456 (lambda (params offset) (let fnrec1447 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1448 ((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))))))) (_o$1457 (keyword #f "directive")) (_o$1458 (integer->char 126)) (_o$1459 (keyword #f "params")) (_o$1460 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1449 1) (_o$1450 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1449 _o$1450))))) (jolt-hash-map _o$1451 _o$1452 _o$1453 _o$1454 _o$1455 _o$1456 _o$1457 _o$1458 _o$1459 _o$1460))) (_a$1782 (integer->char 10)) (_a$1783 (let* ((_o$1465 (keyword #f "bracket-info")) (_o$1466 (jolt-hash-map)) (_o$1467 (keyword #f "flags")) (_o$1468 (let* ((_o$1461 (keyword #f "colon")) (_o$1462 (keyword #f "at"))) (jolt-hash-set _o$1461 _o$1462))) (_o$1469 (keyword #f "generator-fn")) (_o$1470 (lambda (params offset) (let fnrec1463 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1464 ((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)))))) (_o$1471 (keyword #f "directive")) (_o$1472 (integer->char 10)) (_o$1473 (keyword #f "params")) (_o$1474 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1465 _o$1466 _o$1467 _o$1468 _o$1469 _o$1470 _o$1471 _o$1472 _o$1473 _o$1474))) (_a$1784 (integer->char 84)) (_a$1785 (let* ((_o$1489 (keyword #f "bracket-info")) (_o$1490 (jolt-hash-map)) (_o$1491 (keyword #f "flags")) (_o$1492 (let* ((_o$1475 (keyword #f "at")) (_o$1476 (keyword #f "pretty"))) (jolt-hash-set _o$1475 _o$1476))) (_o$1493 (keyword #f "generator-fn")) (_o$1494 (lambda (params offset) (let fnrec1477 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (p__29_ p__30_ p__31_) (let fnrec1478 ((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 fnrec1479 ((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_))))))) (_o$1495 (keyword #f "directive")) (_o$1496 (integer->char 84)) (_o$1497 (keyword #f "params")) (_o$1498 (let* ((_a$1484 (var-deref "clojure.core" "array-map")) (_a$1485 (keyword #f "colnum")) (_a$1486 (let* ((_o$1480 1) (_o$1481 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1480 _o$1481))) (_a$1487 (keyword #f "colinc")) (_a$1488 (let* ((_o$1482 1) (_o$1483 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1482 _o$1483)))) (jolt-invoke _a$1484 _a$1485 _a$1486 _a$1487 _a$1488)))) (jolt-hash-map _o$1489 _o$1490 _o$1491 _o$1492 _o$1493 _o$1494 _o$1495 _o$1496 _o$1497 _o$1498))) (_a$1786 (integer->char 42)) (_a$1787 (let* ((_o$1505 (keyword #f "bracket-info")) (_o$1506 (jolt-hash-map)) (_o$1507 (keyword #f "flags")) (_o$1508 (let* ((_o$1499 (keyword #f "colon")) (_o$1500 (keyword #f "at"))) (jolt-hash-set _o$1499 _o$1500))) (_o$1509 (keyword #f "generator-fn")) (_o$1510 (lambda (params offset) (let fnrec1501 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1502 ((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"))) (- n) n))))))))) (_o$1511 (keyword #f "directive")) (_o$1512 (integer->char 42)) (_o$1513 (keyword #f "params")) (_o$1514 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1503 1) (_o$1504 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1503 _o$1504))))) (jolt-hash-map _o$1505 _o$1506 _o$1507 _o$1508 _o$1509 _o$1510 _o$1511 _o$1512 _o$1513 _o$1514))) (_a$1788 (integer->char 63)) (_a$1789 (let* ((_o$1518 (keyword #f "bracket-info")) (_o$1519 (jolt-hash-map)) (_o$1520 (keyword #f "flags")) (_o$1521 (jolt-hash-set (keyword #f "at"))) (_o$1522 (keyword #f "generator-fn")) (_o$1523 (lambda (params offset) (let fnrec1515 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (params navigator offsets) (let fnrec1516 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__71 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__71 0 jolt-nil)) (navigator (jolt-nth G__71 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 fnrec1517 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__72 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__72 0 jolt-nil)) (navigator (jolt-nth G__72 1 jolt-nil)) (G__73 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (subargs (jolt-nth G__73 0 jolt-nil)) (navigator (jolt-nth G__73 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)))))))) (_o$1524 (keyword #f "directive")) (_o$1525 (integer->char 63)) (_o$1526 (keyword #f "params")) (_o$1527 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1518 _o$1519 _o$1520 _o$1521 _o$1522 _o$1523 _o$1524 _o$1525 _o$1526 _o$1527))) (_a$1790 (integer->char 41)) (_a$1791 (let* ((_o$1529 (keyword #f "bracket-info")) (_o$1530 (jolt-hash-map)) (_o$1531 (keyword #f "flags")) (_o$1532 (jolt-hash-set)) (_o$1533 (keyword #f "generator-fn")) (_o$1534 (lambda (params offset) (let fnrec1528 ((params params) (offset offset)) jolt-nil))) (_o$1535 (keyword #f "directive")) (_o$1536 (integer->char 41)) (_o$1537 (keyword #f "params")) (_o$1538 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1529 _o$1530 _o$1531 _o$1532 _o$1533 _o$1534 _o$1535 _o$1536 _o$1537 _o$1538))) (_a$1792 (integer->char 91)) (_a$1793 (let* ((_o$1550 (keyword #f "bracket-info")) (_o$1551 (let* ((_o$1539 (keyword #f "right")) (_o$1540 (integer->char 93)) (_o$1541 (keyword #f "allows-separator")) (_o$1542 #t) (_o$1543 (keyword #f "else")) (_o$1544 (keyword #f "last"))) (jolt-hash-map _o$1539 _o$1540 _o$1541 _o$1542 _o$1543 _o$1544))) (_o$1552 (keyword #f "flags")) (_o$1553 (let* ((_o$1545 (keyword #f "colon")) (_o$1546 (keyword #f "at"))) (jolt-hash-set _o$1545 _o$1546))) (_o$1554 (keyword #f "generator-fn")) (_o$1555 (lambda (params offset) (let fnrec1547 ((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)))))) (_o$1556 (keyword #f "directive")) (_o$1557 (integer->char 91)) (_o$1558 (keyword #f "params")) (_o$1559 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "selector") (let* ((_o$1548 jolt-nil) (_o$1549 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1548 _o$1549))))) (jolt-hash-map _o$1550 _o$1551 _o$1552 _o$1553 _o$1554 _o$1555 _o$1556 _o$1557 _o$1558 _o$1559))) (_a$1794 (integer->char 59)) (_a$1795 (let* ((_o$1572 (keyword #f "bracket-info")) (_o$1573 (let* ((_o$1560 (keyword #f "separator")) (_o$1561 #t)) (jolt-hash-map _o$1560 _o$1561))) (_o$1574 (keyword #f "flags")) (_o$1575 (jolt-hash-set (keyword #f "colon"))) (_o$1576 (keyword #f "generator-fn")) (_o$1577 (lambda (params offset) (let fnrec1562 ((params params) (offset offset)) jolt-nil))) (_o$1578 (keyword #f "directive")) (_o$1579 (integer->char 59)) (_o$1580 (keyword #f "params")) (_o$1581 (let* ((_a$1567 (var-deref "clojure.core" "array-map")) (_a$1568 (keyword #f "min-remaining")) (_a$1569 (let* ((_o$1563 jolt-nil) (_o$1564 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1563 _o$1564))) (_a$1570 (keyword #f "max-columns")) (_a$1571 (let* ((_o$1565 jolt-nil) (_o$1566 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1565 _o$1566)))) (jolt-invoke _a$1567 _a$1568 _a$1569 _a$1570 _a$1571)))) (jolt-hash-map _o$1572 _o$1573 _o$1574 _o$1575 _o$1576 _o$1577 _o$1578 _o$1579 _o$1580 _o$1581))) (_a$1796 (integer->char 93)) (_a$1797 (let* ((_o$1583 (keyword #f "bracket-info")) (_o$1584 (jolt-hash-map)) (_o$1585 (keyword #f "flags")) (_o$1586 (jolt-hash-set)) (_o$1587 (keyword #f "generator-fn")) (_o$1588 (lambda (params offset) (let fnrec1582 ((params params) (offset offset)) jolt-nil))) (_o$1589 (keyword #f "directive")) (_o$1590 (integer->char 93)) (_o$1591 (keyword #f "params")) (_o$1592 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1583 _o$1584 _o$1585 _o$1586 _o$1587 _o$1588 _o$1589 _o$1590 _o$1591 _o$1592))) (_a$1798 (integer->char 123)) (_a$1799 (let* ((_o$1603 (keyword #f "bracket-info")) (_o$1604 (let* ((_o$1593 (keyword #f "right")) (_o$1594 (integer->char 125)) (_o$1595 (keyword #f "allows-separator")) (_o$1596 #f)) (jolt-hash-map _o$1593 _o$1594 _o$1595 _o$1596))) (_o$1605 (keyword #f "flags")) (_o$1606 (let* ((_o$1597 (keyword #f "colon")) (_o$1598 (keyword #f "at")) (_o$1599 (keyword #f "both"))) (jolt-hash-set _o$1597 _o$1598 _o$1599))) (_o$1607 (keyword #f "generator-fn")) (_o$1608 (lambda (params offset) (let fnrec1600 ((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))))))) (_o$1609 (keyword #f "directive")) (_o$1610 (integer->char 123)) (_o$1611 (keyword #f "params")) (_o$1612 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "max-iterations") (let* ((_o$1601 jolt-nil) (_o$1602 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1601 _o$1602))))) (jolt-hash-map _o$1603 _o$1604 _o$1605 _o$1606 _o$1607 _o$1608 _o$1609 _o$1610 _o$1611 _o$1612))) (_a$1800 (integer->char 125)) (_a$1801 (let* ((_o$1614 (keyword #f "bracket-info")) (_o$1615 (jolt-hash-map)) (_o$1616 (keyword #f "flags")) (_o$1617 (jolt-hash-set (keyword #f "colon"))) (_o$1618 (keyword #f "generator-fn")) (_o$1619 (lambda (params offset) (let fnrec1613 ((params params) (offset offset)) jolt-nil))) (_o$1620 (keyword #f "directive")) (_o$1621 (integer->char 125)) (_o$1622 (keyword #f "params")) (_o$1623 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1614 _o$1615 _o$1616 _o$1617 _o$1618 _o$1619 _o$1620 _o$1621 _o$1622 _o$1623))) (_a$1802 (integer->char 60)) (_a$1803 (let* ((_o$1652 (keyword #f "bracket-info")) (_o$1653 (let* ((_o$1624 (keyword #f "right")) (_o$1625 (integer->char 62)) (_o$1626 (keyword #f "allows-separator")) (_o$1627 #t) (_o$1628 (keyword #f "else")) (_o$1629 (keyword #f "first"))) (jolt-hash-map _o$1624 _o$1625 _o$1626 _o$1627 _o$1628 _o$1629))) (_o$1654 (keyword #f "flags")) (_o$1655 (let* ((_o$1630 (keyword #f "colon")) (_o$1631 (keyword #f "at")) (_o$1632 (keyword #f "both")) (_o$1633 (keyword #f "pretty"))) (jolt-hash-set _o$1630 _o$1631 _o$1632 _o$1633))) (_o$1656 (keyword #f "generator-fn")) (_o$1657 (lambda (params offset) (let fnrec1634 ((params params) (offset offset)) (var-deref "clojure.pprint" "logical-block-or-justify")))) (_o$1658 (keyword #f "directive")) (_o$1659 (integer->char 60)) (_o$1660 (keyword #f "params")) (_o$1661 (let* ((_a$1643 (var-deref "clojure.core" "array-map")) (_a$1644 (keyword #f "mincol")) (_a$1645 (let* ((_o$1635 0) (_o$1636 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1635 _o$1636))) (_a$1646 (keyword #f "colinc")) (_a$1647 (let* ((_o$1637 1) (_o$1638 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1637 _o$1638))) (_a$1648 (keyword #f "minpad")) (_a$1649 (let* ((_o$1639 0) (_o$1640 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1639 _o$1640))) (_a$1650 (keyword #f "padchar")) (_a$1651 (let* ((_o$1641 (integer->char 32)) (_o$1642 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1641 _o$1642)))) (jolt-invoke _a$1643 _a$1644 _a$1645 _a$1646 _a$1647 _a$1648 _a$1649 _a$1650 _a$1651)))) (jolt-hash-map _o$1652 _o$1653 _o$1654 _o$1655 _o$1656 _o$1657 _o$1658 _o$1659 _o$1660 _o$1661))) (_a$1804 (integer->char 62)) (_a$1805 (let* ((_o$1663 (keyword #f "bracket-info")) (_o$1664 (jolt-hash-map)) (_o$1665 (keyword #f "flags")) (_o$1666 (jolt-hash-set (keyword #f "colon"))) (_o$1667 (keyword #f "generator-fn")) (_o$1668 (lambda (params offset) (let fnrec1662 ((params params) (offset offset)) jolt-nil))) (_o$1669 (keyword #f "directive")) (_o$1670 (integer->char 62)) (_o$1671 (keyword #f "params")) (_o$1672 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1663 _o$1664 _o$1665 _o$1666 _o$1667 _o$1668 _o$1669 _o$1670 _o$1671 _o$1672))) (_a$1806 (integer->char 94)) (_a$1807 (let* ((_o$1696 (keyword #f "bracket-info")) (_o$1697 (jolt-hash-map)) (_o$1698 (keyword #f "flags")) (_o$1699 (jolt-hash-set (keyword #f "colon"))) (_o$1700 (keyword #f "generator-fn")) (_o$1701 (lambda (params offset) (let fnrec1673 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1674 ((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 (<= arg1 arg2 arg3) (let* ((_o$1675 exit) (_o$1676 navigator)) (jolt-vector _o$1675 _o$1676)) 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$1677 exit) (_o$1678 navigator)) (jolt-vector _o$1677 _o$1678)) navigator) (if (jolt-truthy? arg1) (if (jolt= arg1 0) (let* ((_o$1679 exit) (_o$1680 navigator)) (jolt-vector _o$1679 _o$1680)) navigator) (if #t (if (jolt-truthy? (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$1681 exit) (_o$1682 navigator)) (jolt-vector _o$1681 _o$1682)) navigator) jolt-nil)))))))))) (_o$1702 (keyword #f "directive")) (_o$1703 (integer->char 94)) (_o$1704 (keyword #f "params")) (_o$1705 (let* ((_a$1689 (var-deref "clojure.core" "array-map")) (_a$1690 (keyword #f "arg1")) (_a$1691 (let* ((_o$1683 jolt-nil) (_o$1684 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1683 _o$1684))) (_a$1692 (keyword #f "arg2")) (_a$1693 (let* ((_o$1685 jolt-nil) (_o$1686 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1685 _o$1686))) (_a$1694 (keyword #f "arg3")) (_a$1695 (let* ((_o$1687 jolt-nil) (_o$1688 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1687 _o$1688)))) (jolt-invoke _a$1689 _a$1690 _a$1691 _a$1692 _a$1693 _a$1694 _a$1695)))) (jolt-hash-map _o$1696 _o$1697 _o$1698 _o$1699 _o$1700 _o$1701 _o$1702 _o$1703 _o$1704 _o$1705))) (_a$1808 (integer->char 87)) (_a$1809 (let* ((_o$1725 (keyword #f "bracket-info")) (_o$1726 (jolt-hash-map)) (_o$1727 (keyword #f "flags")) (_o$1728 (let* ((_o$1706 (keyword #f "at")) (_o$1707 (keyword #f "colon")) (_o$1708 (keyword #f "both")) (_o$1709 (keyword #f "pretty"))) (jolt-hash-set _o$1706 _o$1707 _o$1708 _o$1709))) (_o$1729 (keyword #f "generator-fn")) (_o$1730 (lambda (params offset) (let fnrec1710 ((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$1717 (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (let* ((_o$1711 (keyword #f "level")) (_o$1712 jolt-nil) (_o$1713 (keyword #f "length")) (_o$1714 jolt-nil)) (jolt-vector _o$1711 _o$1712 _o$1713 _o$1714)) (jolt-vector))) (_a$1718 (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (let* ((_o$1715 (keyword #f "pretty")) (_o$1716 #t)) (jolt-vector _o$1715 _o$1716)) (jolt-vector)))) (jolt-concat _a$1717 _a$1718)))) (lambda (params navigator offsets) (let fnrec1719 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__74 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__74 0 jolt-nil)) (navigator (jolt-nth G__74 1 jolt-nil))) (if (jolt-truthy? (jolt-apply (var-deref "clojure.pprint" "write") arg bindings)) (let* ((_o$1720 (keyword #f "up-arrow")) (_o$1721 navigator)) (jolt-vector _o$1720 _o$1721)) navigator))))) (lambda (params navigator offsets) (let fnrec1722 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__75 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__75 0 jolt-nil)) (navigator (jolt-nth G__75 1 jolt-nil))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "write-out") arg)) (let* ((_o$1723 (keyword #f "up-arrow")) (_o$1724 navigator)) (jolt-vector _o$1723 _o$1724)) navigator)))))))) (_o$1731 (keyword #f "directive")) (_o$1732 (integer->char 87)) (_o$1733 (keyword #f "params")) (_o$1734 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1725 _o$1726 _o$1727 _o$1728 _o$1729 _o$1730 _o$1731 _o$1732 _o$1733 _o$1734))) (_a$1810 (integer->char 95)) (_a$1811 (let* ((_o$1739 (keyword #f "bracket-info")) (_o$1740 (jolt-hash-map)) (_o$1741 (keyword #f "flags")) (_o$1742 (let* ((_o$1735 (keyword #f "at")) (_o$1736 (keyword #f "colon")) (_o$1737 (keyword #f "both"))) (jolt-hash-set _o$1735 _o$1736 _o$1737))) (_o$1743 (keyword #f "generator-fn")) (_o$1744 (lambda (params offset) (let fnrec1738 ((params params) (offset offset)) (var-deref "clojure.pprint" "conditional-newline")))) (_o$1745 (keyword #f "directive")) (_o$1746 (integer->char 95)) (_o$1747 (keyword #f "params")) (_o$1748 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1739 _o$1740 _o$1741 _o$1742 _o$1743 _o$1744 _o$1745 _o$1746 _o$1747 _o$1748))) (_a$1812 (integer->char 73)) (_a$1813 (let* ((_o$1752 (keyword #f "bracket-info")) (_o$1753 (jolt-hash-map)) (_o$1754 (keyword #f "flags")) (_o$1755 (jolt-hash-set (keyword #f "colon"))) (_o$1756 (keyword #f "generator-fn")) (_o$1757 (lambda (params offset) (let fnrec1749 ((params params) (offset offset)) (var-deref "clojure.pprint" "set-indent")))) (_o$1758 (keyword #f "directive")) (_o$1759 (integer->char 73)) (_o$1760 (keyword #f "params")) (_o$1761 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1750 0) (_o$1751 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1750 _o$1751))))) (jolt-hash-map _o$1752 _o$1753 _o$1754 _o$1755 _o$1756 _o$1757 _o$1758 _o$1759 _o$1760 _o$1761)))) (jolt-hash-map _a$1762 _a$1763 _a$1764 _a$1765 _a$1766 _a$1767 _a$1768 _a$1769 _a$1770 _a$1771 _a$1772 _a$1773 _a$1774 _a$1775 _a$1776 _a$1777 _a$1778 _a$1779 _a$1780 _a$1781 _a$1782 _a$1783 _a$1784 _a$1785 _a$1786 _a$1787 _a$1788 _a$1789 _a$1790 _a$1791 _a$1792 _a$1793 _a$1794 _a$1795 _a$1796 _a$1797 _a$1798 _a$1799 _a$1800 _a$1801 _a$1802 _a$1803 _a$1804 _a$1805 _a$1806 _a$1807 _a$1808 _a$1809 _a$1810 _a$1811 _a$1812 _a$1813)))) + (def-var! "clojure.pprint" "directive-table" (let* ((_a$1762 (integer->char 65)) (_a$1763 (let* ((_o$1232 (keyword #f "bracket-info")) (_o$1233 (jolt-hash-map)) (_o$1234 (keyword #f "flags")) (_o$1235 (let* ((_o$1210 (keyword #f "at")) (_o$1211 (keyword #f "colon")) (_o$1212 (keyword #f "both"))) (jolt-hash-set _o$1210 _o$1211 _o$1212))) (_o$1236 (keyword #f "generator-fn")) (_o$1237 (lambda (params offset) (let fnrec1213 ((params params) (offset offset)) (lambda (p__11_ p__12_ p__13_) (let fnrec1214 ((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_)))))) (_o$1238 (keyword #f "directive")) (_o$1239 (integer->char 65)) (_o$1240 (keyword #f "params")) (_o$1241 (let* ((_a$1223 (var-deref "clojure.core" "array-map")) (_a$1224 (keyword #f "mincol")) (_a$1225 (let* ((_o$1215 0) (_o$1216 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1215 _o$1216))) (_a$1226 (keyword #f "colinc")) (_a$1227 (let* ((_o$1217 1) (_o$1218 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1217 _o$1218))) (_a$1228 (keyword #f "minpad")) (_a$1229 (let* ((_o$1219 0) (_o$1220 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1219 _o$1220))) (_a$1230 (keyword #f "padchar")) (_a$1231 (let* ((_o$1221 (integer->char 32)) (_o$1222 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1221 _o$1222)))) (jolt-invoke _a$1223 _a$1224 _a$1225 _a$1226 _a$1227 _a$1228 _a$1229 _a$1230 _a$1231)))) (jolt-hash-map _o$1232 _o$1233 _o$1234 _o$1235 _o$1236 _o$1237 _o$1238 _o$1239 _o$1240 _o$1241))) (_a$1764 (integer->char 83)) (_a$1765 (let* ((_o$1264 (keyword #f "bracket-info")) (_o$1265 (jolt-hash-map)) (_o$1266 (keyword #f "flags")) (_o$1267 (let* ((_o$1242 (keyword #f "at")) (_o$1243 (keyword #f "colon")) (_o$1244 (keyword #f "both"))) (jolt-hash-set _o$1242 _o$1243 _o$1244))) (_o$1268 (keyword #f "generator-fn")) (_o$1269 (lambda (params offset) (let fnrec1245 ((params params) (offset offset)) (lambda (p__14_ p__15_ p__16_) (let fnrec1246 ((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_)))))) (_o$1270 (keyword #f "directive")) (_o$1271 (integer->char 83)) (_o$1272 (keyword #f "params")) (_o$1273 (let* ((_a$1255 (var-deref "clojure.core" "array-map")) (_a$1256 (keyword #f "mincol")) (_a$1257 (let* ((_o$1247 0) (_o$1248 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1247 _o$1248))) (_a$1258 (keyword #f "colinc")) (_a$1259 (let* ((_o$1249 1) (_o$1250 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1249 _o$1250))) (_a$1260 (keyword #f "minpad")) (_a$1261 (let* ((_o$1251 0) (_o$1252 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1251 _o$1252))) (_a$1262 (keyword #f "padchar")) (_a$1263 (let* ((_o$1253 (integer->char 32)) (_o$1254 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1253 _o$1254)))) (jolt-invoke _a$1255 _a$1256 _a$1257 _a$1258 _a$1259 _a$1260 _a$1261 _a$1262 _a$1263)))) (jolt-hash-map _o$1264 _o$1265 _o$1266 _o$1267 _o$1268 _o$1269 _o$1270 _o$1271 _o$1272 _o$1273))) (_a$1766 (integer->char 68)) (_a$1767 (let* ((_o$1296 (keyword #f "bracket-info")) (_o$1297 (jolt-hash-map)) (_o$1298 (keyword #f "flags")) (_o$1299 (let* ((_o$1274 (keyword #f "at")) (_o$1275 (keyword #f "colon")) (_o$1276 (keyword #f "both"))) (jolt-hash-set _o$1274 _o$1275 _o$1276))) (_o$1300 (keyword #f "generator-fn")) (_o$1301 (lambda (params offset) (let fnrec1277 ((params params) (offset offset)) (lambda (p__17_ p__18_ p__19_) (let fnrec1278 ((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_)))))) (_o$1302 (keyword #f "directive")) (_o$1303 (integer->char 68)) (_o$1304 (keyword #f "params")) (_o$1305 (let* ((_a$1287 (var-deref "clojure.core" "array-map")) (_a$1288 (keyword #f "mincol")) (_a$1289 (let* ((_o$1279 0) (_o$1280 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1279 _o$1280))) (_a$1290 (keyword #f "padchar")) (_a$1291 (let* ((_o$1281 (integer->char 32)) (_o$1282 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1281 _o$1282))) (_a$1292 (keyword #f "commachar")) (_a$1293 (let* ((_o$1283 (integer->char 44)) (_o$1284 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1283 _o$1284))) (_a$1294 (keyword #f "commainterval")) (_a$1295 (let* ((_o$1285 3) (_o$1286 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1285 _o$1286)))) (jolt-invoke _a$1287 _a$1288 _a$1289 _a$1290 _a$1291 _a$1292 _a$1293 _a$1294 _a$1295)))) (jolt-hash-map _o$1296 _o$1297 _o$1298 _o$1299 _o$1300 _o$1301 _o$1302 _o$1303 _o$1304 _o$1305))) (_a$1768 (integer->char 66)) (_a$1769 (let* ((_o$1328 (keyword #f "bracket-info")) (_o$1329 (jolt-hash-map)) (_o$1330 (keyword #f "flags")) (_o$1331 (let* ((_o$1306 (keyword #f "at")) (_o$1307 (keyword #f "colon")) (_o$1308 (keyword #f "both"))) (jolt-hash-set _o$1306 _o$1307 _o$1308))) (_o$1332 (keyword #f "generator-fn")) (_o$1333 (lambda (params offset) (let fnrec1309 ((params params) (offset offset)) (lambda (p__20_ p__21_ p__22_) (let fnrec1310 ((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_)))))) (_o$1334 (keyword #f "directive")) (_o$1335 (integer->char 66)) (_o$1336 (keyword #f "params")) (_o$1337 (let* ((_a$1319 (var-deref "clojure.core" "array-map")) (_a$1320 (keyword #f "mincol")) (_a$1321 (let* ((_o$1311 0) (_o$1312 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1311 _o$1312))) (_a$1322 (keyword #f "padchar")) (_a$1323 (let* ((_o$1313 (integer->char 32)) (_o$1314 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1313 _o$1314))) (_a$1324 (keyword #f "commachar")) (_a$1325 (let* ((_o$1315 (integer->char 44)) (_o$1316 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1315 _o$1316))) (_a$1326 (keyword #f "commainterval")) (_a$1327 (let* ((_o$1317 3) (_o$1318 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1317 _o$1318)))) (jolt-invoke _a$1319 _a$1320 _a$1321 _a$1322 _a$1323 _a$1324 _a$1325 _a$1326 _a$1327)))) (jolt-hash-map _o$1328 _o$1329 _o$1330 _o$1331 _o$1332 _o$1333 _o$1334 _o$1335 _o$1336 _o$1337))) (_a$1770 (integer->char 79)) (_a$1771 (let* ((_o$1360 (keyword #f "bracket-info")) (_o$1361 (jolt-hash-map)) (_o$1362 (keyword #f "flags")) (_o$1363 (let* ((_o$1338 (keyword #f "at")) (_o$1339 (keyword #f "colon")) (_o$1340 (keyword #f "both"))) (jolt-hash-set _o$1338 _o$1339 _o$1340))) (_o$1364 (keyword #f "generator-fn")) (_o$1365 (lambda (params offset) (let fnrec1341 ((params params) (offset offset)) (lambda (p__23_ p__24_ p__25_) (let fnrec1342 ((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_)))))) (_o$1366 (keyword #f "directive")) (_o$1367 (integer->char 79)) (_o$1368 (keyword #f "params")) (_o$1369 (let* ((_a$1351 (var-deref "clojure.core" "array-map")) (_a$1352 (keyword #f "mincol")) (_a$1353 (let* ((_o$1343 0) (_o$1344 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1343 _o$1344))) (_a$1354 (keyword #f "padchar")) (_a$1355 (let* ((_o$1345 (integer->char 32)) (_o$1346 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1345 _o$1346))) (_a$1356 (keyword #f "commachar")) (_a$1357 (let* ((_o$1347 (integer->char 44)) (_o$1348 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1347 _o$1348))) (_a$1358 (keyword #f "commainterval")) (_a$1359 (let* ((_o$1349 3) (_o$1350 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1349 _o$1350)))) (jolt-invoke _a$1351 _a$1352 _a$1353 _a$1354 _a$1355 _a$1356 _a$1357 _a$1358 _a$1359)))) (jolt-hash-map _o$1360 _o$1361 _o$1362 _o$1363 _o$1364 _o$1365 _o$1366 _o$1367 _o$1368 _o$1369))) (_a$1772 (integer->char 88)) (_a$1773 (let* ((_o$1392 (keyword #f "bracket-info")) (_o$1393 (jolt-hash-map)) (_o$1394 (keyword #f "flags")) (_o$1395 (let* ((_o$1370 (keyword #f "at")) (_o$1371 (keyword #f "colon")) (_o$1372 (keyword #f "both"))) (jolt-hash-set _o$1370 _o$1371 _o$1372))) (_o$1396 (keyword #f "generator-fn")) (_o$1397 (lambda (params offset) (let fnrec1373 ((params params) (offset offset)) (lambda (p__26_ p__27_ p__28_) (let fnrec1374 ((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_)))))) (_o$1398 (keyword #f "directive")) (_o$1399 (integer->char 88)) (_o$1400 (keyword #f "params")) (_o$1401 (let* ((_a$1383 (var-deref "clojure.core" "array-map")) (_a$1384 (keyword #f "mincol")) (_a$1385 (let* ((_o$1375 0) (_o$1376 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1375 _o$1376))) (_a$1386 (keyword #f "padchar")) (_a$1387 (let* ((_o$1377 (integer->char 32)) (_o$1378 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1377 _o$1378))) (_a$1388 (keyword #f "commachar")) (_a$1389 (let* ((_o$1379 (integer->char 44)) (_o$1380 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1379 _o$1380))) (_a$1390 (keyword #f "commainterval")) (_a$1391 (let* ((_o$1381 3) (_o$1382 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1381 _o$1382)))) (jolt-invoke _a$1383 _a$1384 _a$1385 _a$1386 _a$1387 _a$1388 _a$1389 _a$1390 _a$1391)))) (jolt-hash-map _o$1392 _o$1393 _o$1394 _o$1395 _o$1396 _o$1397 _o$1398 _o$1399 _o$1400 _o$1401))) (_a$1774 (integer->char 37)) (_a$1775 (let* ((_o$1407 (keyword #f "bracket-info")) (_o$1408 (jolt-hash-map)) (_o$1409 (keyword #f "flags")) (_o$1410 (jolt-hash-set)) (_o$1411 (keyword #f "generator-fn")) (_o$1412 (lambda (params offset) (let fnrec1402 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1403 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1404 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1404 (jolt-inc i))) jolt-nil)))) arg-navigator)))))) (_o$1413 (keyword #f "directive")) (_o$1414 (integer->char 37)) (_o$1415 (keyword #f "params")) (_o$1416 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1405 1) (_o$1406 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1405 _o$1406))))) (jolt-hash-map _o$1407 _o$1408 _o$1409 _o$1410 _o$1411 _o$1412 _o$1413 _o$1414 _o$1415 _o$1416))) (_a$1776 (integer->char 38)) (_a$1777 (let* ((_o$1422 (keyword #f "bracket-info")) (_o$1423 (jolt-hash-map)) (_o$1424 (keyword #f "flags")) (_o$1425 (jolt-hash-set (keyword #f "pretty"))) (_o$1426 (keyword #f "generator-fn")) (_o$1427 (lambda (params offset) (let fnrec1417 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1418 ((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 loop1419 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "prn")) (loop1419 (jolt-inc i))) jolt-nil)))))) arg-navigator)))))) (_o$1428 (keyword #f "directive")) (_o$1429 (integer->char 38)) (_o$1430 (keyword #f "params")) (_o$1431 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1420 1) (_o$1421 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1420 _o$1421))))) (jolt-hash-map _o$1422 _o$1423 _o$1424 _o$1425 _o$1426 _o$1427 _o$1428 _o$1429 _o$1430 _o$1431))) (_a$1778 (integer->char 124)) (_a$1779 (let* ((_o$1437 (keyword #f "bracket-info")) (_o$1438 (jolt-hash-map)) (_o$1439 (keyword #f "flags")) (_o$1440 (jolt-hash-set)) (_o$1441 (keyword #f "generator-fn")) (_o$1442 (lambda (params offset) (let fnrec1432 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1433 ((params params) (arg-navigator arg-navigator) (offsets offsets)) (begin (let* ((n__19__auto (jolt-get params (keyword #f "count")))) (let* ((i 0)) (let loop1434 ((i i)) (if (< i n__19__auto) (begin (jolt-invoke (var-deref "clojure.pprint" "print") (integer->char 12)) (loop1434 (jolt-inc i))) jolt-nil)))) arg-navigator)))))) (_o$1443 (keyword #f "directive")) (_o$1444 (integer->char 124)) (_o$1445 (keyword #f "params")) (_o$1446 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "count") (let* ((_o$1435 1) (_o$1436 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1435 _o$1436))))) (jolt-hash-map _o$1437 _o$1438 _o$1439 _o$1440 _o$1441 _o$1442 _o$1443 _o$1444 _o$1445 _o$1446))) (_a$1780 (integer->char 126)) (_a$1781 (let* ((_o$1451 (keyword #f "bracket-info")) (_o$1452 (jolt-hash-map)) (_o$1453 (keyword #f "flags")) (_o$1454 (jolt-hash-set)) (_o$1455 (keyword #f "generator-fn")) (_o$1456 (lambda (params offset) (let fnrec1447 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1448 ((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))))))) (_o$1457 (keyword #f "directive")) (_o$1458 (integer->char 126)) (_o$1459 (keyword #f "params")) (_o$1460 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1449 1) (_o$1450 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1449 _o$1450))))) (jolt-hash-map _o$1451 _o$1452 _o$1453 _o$1454 _o$1455 _o$1456 _o$1457 _o$1458 _o$1459 _o$1460))) (_a$1782 (integer->char 10)) (_a$1783 (let* ((_o$1465 (keyword #f "bracket-info")) (_o$1466 (jolt-hash-map)) (_o$1467 (keyword #f "flags")) (_o$1468 (let* ((_o$1461 (keyword #f "colon")) (_o$1462 (keyword #f "at"))) (jolt-hash-set _o$1461 _o$1462))) (_o$1469 (keyword #f "generator-fn")) (_o$1470 (lambda (params offset) (let fnrec1463 ((params params) (offset offset)) (lambda (params arg-navigator offsets) (let fnrec1464 ((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)))))) (_o$1471 (keyword #f "directive")) (_o$1472 (integer->char 10)) (_o$1473 (keyword #f "params")) (_o$1474 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1465 _o$1466 _o$1467 _o$1468 _o$1469 _o$1470 _o$1471 _o$1472 _o$1473 _o$1474))) (_a$1784 (integer->char 84)) (_a$1785 (let* ((_o$1489 (keyword #f "bracket-info")) (_o$1490 (jolt-hash-map)) (_o$1491 (keyword #f "flags")) (_o$1492 (let* ((_o$1475 (keyword #f "at")) (_o$1476 (keyword #f "pretty"))) (jolt-hash-set _o$1475 _o$1476))) (_o$1493 (keyword #f "generator-fn")) (_o$1494 (lambda (params offset) (let fnrec1477 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (p__29_ p__30_ p__31_) (let fnrec1478 ((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 fnrec1479 ((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_))))))) (_o$1495 (keyword #f "directive")) (_o$1496 (integer->char 84)) (_o$1497 (keyword #f "params")) (_o$1498 (let* ((_a$1484 (var-deref "clojure.core" "array-map")) (_a$1485 (keyword #f "colnum")) (_a$1486 (let* ((_o$1480 1) (_o$1481 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1480 _o$1481))) (_a$1487 (keyword #f "colinc")) (_a$1488 (let* ((_o$1482 1) (_o$1483 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1482 _o$1483)))) (jolt-invoke _a$1484 _a$1485 _a$1486 _a$1487 _a$1488)))) (jolt-hash-map _o$1489 _o$1490 _o$1491 _o$1492 _o$1493 _o$1494 _o$1495 _o$1496 _o$1497 _o$1498))) (_a$1786 (integer->char 42)) (_a$1787 (let* ((_o$1505 (keyword #f "bracket-info")) (_o$1506 (jolt-hash-map)) (_o$1507 (keyword #f "flags")) (_o$1508 (let* ((_o$1499 (keyword #f "colon")) (_o$1500 (keyword #f "at"))) (jolt-hash-set _o$1499 _o$1500))) (_o$1509 (keyword #f "generator-fn")) (_o$1510 (lambda (params offset) (let fnrec1501 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1502 ((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"))) (- n) n))))))))) (_o$1511 (keyword #f "directive")) (_o$1512 (integer->char 42)) (_o$1513 (keyword #f "params")) (_o$1514 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1503 1) (_o$1504 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1503 _o$1504))))) (jolt-hash-map _o$1505 _o$1506 _o$1507 _o$1508 _o$1509 _o$1510 _o$1511 _o$1512 _o$1513 _o$1514))) (_a$1788 (integer->char 63)) (_a$1789 (let* ((_o$1518 (keyword #f "bracket-info")) (_o$1519 (jolt-hash-map)) (_o$1520 (keyword #f "flags")) (_o$1521 (jolt-hash-set (keyword #f "at"))) (_o$1522 (keyword #f "generator-fn")) (_o$1523 (lambda (params offset) (let fnrec1515 ((params params) (offset offset)) (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (lambda (params navigator offsets) (let fnrec1516 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__71 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__71 0 jolt-nil)) (navigator (jolt-nth G__71 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 fnrec1517 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__72 (jolt-invoke (var-deref "clojure.pprint" "get-format-arg") navigator)) (subformat (jolt-nth G__72 0 jolt-nil)) (navigator (jolt-nth G__72 1 jolt-nil)) (G__73 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (subargs (jolt-nth G__73 0 jolt-nil)) (navigator (jolt-nth G__73 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)))))))) (_o$1524 (keyword #f "directive")) (_o$1525 (integer->char 63)) (_o$1526 (keyword #f "params")) (_o$1527 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1518 _o$1519 _o$1520 _o$1521 _o$1522 _o$1523 _o$1524 _o$1525 _o$1526 _o$1527))) (_a$1790 (integer->char 41)) (_a$1791 (let* ((_o$1529 (keyword #f "bracket-info")) (_o$1530 (jolt-hash-map)) (_o$1531 (keyword #f "flags")) (_o$1532 (jolt-hash-set)) (_o$1533 (keyword #f "generator-fn")) (_o$1534 (lambda (params offset) (let fnrec1528 ((params params) (offset offset)) jolt-nil))) (_o$1535 (keyword #f "directive")) (_o$1536 (integer->char 41)) (_o$1537 (keyword #f "params")) (_o$1538 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1529 _o$1530 _o$1531 _o$1532 _o$1533 _o$1534 _o$1535 _o$1536 _o$1537 _o$1538))) (_a$1792 (integer->char 91)) (_a$1793 (let* ((_o$1550 (keyword #f "bracket-info")) (_o$1551 (let* ((_o$1539 (keyword #f "right")) (_o$1540 (integer->char 93)) (_o$1541 (keyword #f "allows-separator")) (_o$1542 #t) (_o$1543 (keyword #f "else")) (_o$1544 (keyword #f "last"))) (jolt-hash-map _o$1539 _o$1540 _o$1541 _o$1542 _o$1543 _o$1544))) (_o$1552 (keyword #f "flags")) (_o$1553 (let* ((_o$1545 (keyword #f "colon")) (_o$1546 (keyword #f "at"))) (jolt-hash-set _o$1545 _o$1546))) (_o$1554 (keyword #f "generator-fn")) (_o$1555 (lambda (params offset) (let fnrec1547 ((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)))))) (_o$1556 (keyword #f "directive")) (_o$1557 (integer->char 91)) (_o$1558 (keyword #f "params")) (_o$1559 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "selector") (let* ((_o$1548 jolt-nil) (_o$1549 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1548 _o$1549))))) (jolt-hash-map _o$1550 _o$1551 _o$1552 _o$1553 _o$1554 _o$1555 _o$1556 _o$1557 _o$1558 _o$1559))) (_a$1794 (integer->char 59)) (_a$1795 (let* ((_o$1572 (keyword #f "bracket-info")) (_o$1573 (let* ((_o$1560 (keyword #f "separator")) (_o$1561 #t)) (jolt-hash-map _o$1560 _o$1561))) (_o$1574 (keyword #f "flags")) (_o$1575 (jolt-hash-set (keyword #f "colon"))) (_o$1576 (keyword #f "generator-fn")) (_o$1577 (lambda (params offset) (let fnrec1562 ((params params) (offset offset)) jolt-nil))) (_o$1578 (keyword #f "directive")) (_o$1579 (integer->char 59)) (_o$1580 (keyword #f "params")) (_o$1581 (let* ((_a$1567 (var-deref "clojure.core" "array-map")) (_a$1568 (keyword #f "min-remaining")) (_a$1569 (let* ((_o$1563 jolt-nil) (_o$1564 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1563 _o$1564))) (_a$1570 (keyword #f "max-columns")) (_a$1571 (let* ((_o$1565 jolt-nil) (_o$1566 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1565 _o$1566)))) (jolt-invoke _a$1567 _a$1568 _a$1569 _a$1570 _a$1571)))) (jolt-hash-map _o$1572 _o$1573 _o$1574 _o$1575 _o$1576 _o$1577 _o$1578 _o$1579 _o$1580 _o$1581))) (_a$1796 (integer->char 93)) (_a$1797 (let* ((_o$1583 (keyword #f "bracket-info")) (_o$1584 (jolt-hash-map)) (_o$1585 (keyword #f "flags")) (_o$1586 (jolt-hash-set)) (_o$1587 (keyword #f "generator-fn")) (_o$1588 (lambda (params offset) (let fnrec1582 ((params params) (offset offset)) jolt-nil))) (_o$1589 (keyword #f "directive")) (_o$1590 (integer->char 93)) (_o$1591 (keyword #f "params")) (_o$1592 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1583 _o$1584 _o$1585 _o$1586 _o$1587 _o$1588 _o$1589 _o$1590 _o$1591 _o$1592))) (_a$1798 (integer->char 123)) (_a$1799 (let* ((_o$1603 (keyword #f "bracket-info")) (_o$1604 (let* ((_o$1593 (keyword #f "right")) (_o$1594 (integer->char 125)) (_o$1595 (keyword #f "allows-separator")) (_o$1596 #f)) (jolt-hash-map _o$1593 _o$1594 _o$1595 _o$1596))) (_o$1605 (keyword #f "flags")) (_o$1606 (let* ((_o$1597 (keyword #f "colon")) (_o$1598 (keyword #f "at")) (_o$1599 (keyword #f "both"))) (jolt-hash-set _o$1597 _o$1598 _o$1599))) (_o$1607 (keyword #f "generator-fn")) (_o$1608 (lambda (params offset) (let fnrec1600 ((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))))))) (_o$1609 (keyword #f "directive")) (_o$1610 (integer->char 123)) (_o$1611 (keyword #f "params")) (_o$1612 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "max-iterations") (let* ((_o$1601 jolt-nil) (_o$1602 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1601 _o$1602))))) (jolt-hash-map _o$1603 _o$1604 _o$1605 _o$1606 _o$1607 _o$1608 _o$1609 _o$1610 _o$1611 _o$1612))) (_a$1800 (integer->char 125)) (_a$1801 (let* ((_o$1614 (keyword #f "bracket-info")) (_o$1615 (jolt-hash-map)) (_o$1616 (keyword #f "flags")) (_o$1617 (jolt-hash-set (keyword #f "colon"))) (_o$1618 (keyword #f "generator-fn")) (_o$1619 (lambda (params offset) (let fnrec1613 ((params params) (offset offset)) jolt-nil))) (_o$1620 (keyword #f "directive")) (_o$1621 (integer->char 125)) (_o$1622 (keyword #f "params")) (_o$1623 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1614 _o$1615 _o$1616 _o$1617 _o$1618 _o$1619 _o$1620 _o$1621 _o$1622 _o$1623))) (_a$1802 (integer->char 60)) (_a$1803 (let* ((_o$1652 (keyword #f "bracket-info")) (_o$1653 (let* ((_o$1624 (keyword #f "right")) (_o$1625 (integer->char 62)) (_o$1626 (keyword #f "allows-separator")) (_o$1627 #t) (_o$1628 (keyword #f "else")) (_o$1629 (keyword #f "first"))) (jolt-hash-map _o$1624 _o$1625 _o$1626 _o$1627 _o$1628 _o$1629))) (_o$1654 (keyword #f "flags")) (_o$1655 (let* ((_o$1630 (keyword #f "colon")) (_o$1631 (keyword #f "at")) (_o$1632 (keyword #f "both")) (_o$1633 (keyword #f "pretty"))) (jolt-hash-set _o$1630 _o$1631 _o$1632 _o$1633))) (_o$1656 (keyword #f "generator-fn")) (_o$1657 (lambda (params offset) (let fnrec1634 ((params params) (offset offset)) (var-deref "clojure.pprint" "logical-block-or-justify")))) (_o$1658 (keyword #f "directive")) (_o$1659 (integer->char 60)) (_o$1660 (keyword #f "params")) (_o$1661 (let* ((_a$1643 (var-deref "clojure.core" "array-map")) (_a$1644 (keyword #f "mincol")) (_a$1645 (let* ((_o$1635 0) (_o$1636 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1635 _o$1636))) (_a$1646 (keyword #f "colinc")) (_a$1647 (let* ((_o$1637 1) (_o$1638 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1637 _o$1638))) (_a$1648 (keyword #f "minpad")) (_a$1649 (let* ((_o$1639 0) (_o$1640 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1639 _o$1640))) (_a$1650 (keyword #f "padchar")) (_a$1651 (let* ((_o$1641 (integer->char 32)) (_o$1642 (var-deref "clojure.core" "Character"))) (jolt-vector _o$1641 _o$1642)))) (jolt-invoke _a$1643 _a$1644 _a$1645 _a$1646 _a$1647 _a$1648 _a$1649 _a$1650 _a$1651)))) (jolt-hash-map _o$1652 _o$1653 _o$1654 _o$1655 _o$1656 _o$1657 _o$1658 _o$1659 _o$1660 _o$1661))) (_a$1804 (integer->char 62)) (_a$1805 (let* ((_o$1663 (keyword #f "bracket-info")) (_o$1664 (jolt-hash-map)) (_o$1665 (keyword #f "flags")) (_o$1666 (jolt-hash-set (keyword #f "colon"))) (_o$1667 (keyword #f "generator-fn")) (_o$1668 (lambda (params offset) (let fnrec1662 ((params params) (offset offset)) jolt-nil))) (_o$1669 (keyword #f "directive")) (_o$1670 (integer->char 62)) (_o$1671 (keyword #f "params")) (_o$1672 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1663 _o$1664 _o$1665 _o$1666 _o$1667 _o$1668 _o$1669 _o$1670 _o$1671 _o$1672))) (_a$1806 (integer->char 94)) (_a$1807 (let* ((_o$1696 (keyword #f "bracket-info")) (_o$1697 (jolt-hash-map)) (_o$1698 (keyword #f "flags")) (_o$1699 (jolt-hash-set (keyword #f "colon"))) (_o$1700 (keyword #f "generator-fn")) (_o$1701 (lambda (params offset) (let fnrec1673 ((params params) (offset offset)) (lambda (params navigator offsets) (let fnrec1674 ((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 (<= arg1 arg2 arg3) (let* ((_o$1675 exit) (_o$1676 navigator)) (jolt-vector _o$1675 _o$1676)) 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$1677 exit) (_o$1678 navigator)) (jolt-vector _o$1677 _o$1678)) navigator) (if (jolt-truthy? arg1) (if (jolt= arg1 0) (let* ((_o$1679 exit) (_o$1680 navigator)) (jolt-vector _o$1679 _o$1680)) 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$1681 exit) (_o$1682 navigator)) (jolt-vector _o$1681 _o$1682)) navigator) jolt-nil)))))))))) (_o$1702 (keyword #f "directive")) (_o$1703 (integer->char 94)) (_o$1704 (keyword #f "params")) (_o$1705 (let* ((_a$1689 (var-deref "clojure.core" "array-map")) (_a$1690 (keyword #f "arg1")) (_a$1691 (let* ((_o$1683 jolt-nil) (_o$1684 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1683 _o$1684))) (_a$1692 (keyword #f "arg2")) (_a$1693 (let* ((_o$1685 jolt-nil) (_o$1686 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1685 _o$1686))) (_a$1694 (keyword #f "arg3")) (_a$1695 (let* ((_o$1687 jolt-nil) (_o$1688 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1687 _o$1688)))) (jolt-invoke _a$1689 _a$1690 _a$1691 _a$1692 _a$1693 _a$1694 _a$1695)))) (jolt-hash-map _o$1696 _o$1697 _o$1698 _o$1699 _o$1700 _o$1701 _o$1702 _o$1703 _o$1704 _o$1705))) (_a$1808 (integer->char 87)) (_a$1809 (let* ((_o$1725 (keyword #f "bracket-info")) (_o$1726 (jolt-hash-map)) (_o$1727 (keyword #f "flags")) (_o$1728 (let* ((_o$1706 (keyword #f "at")) (_o$1707 (keyword #f "colon")) (_o$1708 (keyword #f "both")) (_o$1709 (keyword #f "pretty"))) (jolt-hash-set _o$1706 _o$1707 _o$1708 _o$1709))) (_o$1729 (keyword #f "generator-fn")) (_o$1730 (lambda (params offset) (let fnrec1710 ((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$1717 (if (jolt-truthy? (jolt-get params (keyword #f "at"))) (let* ((_o$1711 (keyword #f "level")) (_o$1712 jolt-nil) (_o$1713 (keyword #f "length")) (_o$1714 jolt-nil)) (jolt-vector _o$1711 _o$1712 _o$1713 _o$1714)) (jolt-vector))) (_a$1718 (if (jolt-truthy? (jolt-get params (keyword #f "colon"))) (let* ((_o$1715 (keyword #f "pretty")) (_o$1716 #t)) (jolt-vector _o$1715 _o$1716)) (jolt-vector)))) (jolt-concat _a$1717 _a$1718)))) (lambda (params navigator offsets) (let fnrec1719 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__74 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__74 0 jolt-nil)) (navigator (jolt-nth G__74 1 jolt-nil))) (if (jolt-truthy? (jolt-apply (var-deref "clojure.pprint" "write") arg bindings)) (let* ((_o$1720 (keyword #f "up-arrow")) (_o$1721 navigator)) (jolt-vector _o$1720 _o$1721)) navigator))))) (lambda (params navigator offsets) (let fnrec1722 ((params params) (navigator navigator) (offsets offsets)) (let* ((G__75 (jolt-invoke (var-deref "clojure.pprint" "next-arg") navigator)) (arg (jolt-nth G__75 0 jolt-nil)) (navigator (jolt-nth G__75 1 jolt-nil))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.pprint" "write-out") arg)) (let* ((_o$1723 (keyword #f "up-arrow")) (_o$1724 navigator)) (jolt-vector _o$1723 _o$1724)) navigator)))))))) (_o$1731 (keyword #f "directive")) (_o$1732 (integer->char 87)) (_o$1733 (keyword #f "params")) (_o$1734 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1725 _o$1726 _o$1727 _o$1728 _o$1729 _o$1730 _o$1731 _o$1732 _o$1733 _o$1734))) (_a$1810 (integer->char 95)) (_a$1811 (let* ((_o$1739 (keyword #f "bracket-info")) (_o$1740 (jolt-hash-map)) (_o$1741 (keyword #f "flags")) (_o$1742 (let* ((_o$1735 (keyword #f "at")) (_o$1736 (keyword #f "colon")) (_o$1737 (keyword #f "both"))) (jolt-hash-set _o$1735 _o$1736 _o$1737))) (_o$1743 (keyword #f "generator-fn")) (_o$1744 (lambda (params offset) (let fnrec1738 ((params params) (offset offset)) (var-deref "clojure.pprint" "conditional-newline")))) (_o$1745 (keyword #f "directive")) (_o$1746 (integer->char 95)) (_o$1747 (keyword #f "params")) (_o$1748 (jolt-invoke (var-deref "clojure.core" "array-map")))) (jolt-hash-map _o$1739 _o$1740 _o$1741 _o$1742 _o$1743 _o$1744 _o$1745 _o$1746 _o$1747 _o$1748))) (_a$1812 (integer->char 73)) (_a$1813 (let* ((_o$1752 (keyword #f "bracket-info")) (_o$1753 (jolt-hash-map)) (_o$1754 (keyword #f "flags")) (_o$1755 (jolt-hash-set (keyword #f "colon"))) (_o$1756 (keyword #f "generator-fn")) (_o$1757 (lambda (params offset) (let fnrec1749 ((params params) (offset offset)) (var-deref "clojure.pprint" "set-indent")))) (_o$1758 (keyword #f "directive")) (_o$1759 (integer->char 73)) (_o$1760 (keyword #f "params")) (_o$1761 (jolt-invoke (var-deref "clojure.core" "array-map") (keyword #f "n") (let* ((_o$1750 0) (_o$1751 (var-deref "clojure.core" "Long"))) (jolt-vector _o$1750 _o$1751))))) (jolt-hash-map _o$1752 _o$1753 _o$1754 _o$1755 _o$1756 _o$1757 _o$1758 _o$1759 _o$1760 _o$1761)))) (jolt-hash-map _a$1762 _a$1763 _a$1764 _a$1765 _a$1766 _a$1767 _a$1768 _a$1769 _a$1770 _a$1771 _a$1772 _a$1773 _a$1774 _a$1775 _a$1776 _a$1777 _a$1778 _a$1779 _a$1780 _a$1781 _a$1782 _a$1783 _a$1784 _a$1785 _a$1786 _a$1787 _a$1788 _a$1789 _a$1790 _a$1791 _a$1792 _a$1793 _a$1794 _a$1795 _a$1796 _a$1797 _a$1798 _a$1799 _a$1800 _a$1801 _a$1802 _a$1803 _a$1804 _a$1805 _a$1806 _a$1807 _a$1808 _a$1809 _a$1810 _a$1811 _a$1812 _a$1813)))) (guard (e (#t #f)) (def-var-with-meta! "clojure.pprint" "param-pattern" (jolt-regex "^([vV]|#|('.)|([+-]?\\d+)|(?=,))") (let* ((_o$1814 (keyword #f "private")) (_o$1815 #t)) (jolt-hash-map _o$1814 _o$1815)))) (guard (e (#t #f)) @@ -1441,7 +1441,7 @@ (guard (e (#t #f)) (def-var! "clojure.pprint" "extract-params" (letrec ((extract-params (lambda (s offset) (let fnrec1839 ((s s) (offset offset)) (jolt-invoke (var-deref "clojure.pprint" "consume") (var-deref "clojure.pprint" "extract-param") (let* ((_o$1840 s) (_o$1841 offset) (_o$1842 #f)) (jolt-vector _o$1840 _o$1841 _o$1842))))))) extract-params))) (guard (e (#t #f)) - (def-var! "clojure.pprint" "translate-param" (letrec ((translate-param (lambda (G__78) (let fnrec1843 ((G__78 G__78)) (let* ((G__79 G__78) (p (jolt-nth G__79 0 jolt-nil)) (offset (jolt-nth G__79 1 jolt-nil))) (let* ((_o$1848 (if (jolt= (jolt-count p) 0) jolt-nil (if (jolt-truthy? (let* ((and__25__auto (jolt= (jolt-count p) 1))) (if (jolt-truthy? and__25__auto) (let* ((_a$1846 (let* ((_o$1844 (integer->char 118)) (_o$1845 (integer->char 86))) (jolt-hash-set _o$1844 _o$1845))) (_a$1847 (jolt-nth p 0))) (jolt-contains? _a$1846 _a$1847)) and__25__auto))) (keyword #f "parameter-from-args") (if (jolt-truthy? (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 (jolt-truthy? (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$1849 offset)) (jolt-vector _o$1848 _o$1849))))))) translate-param))) + (def-var! "clojure.pprint" "translate-param" (letrec ((translate-param (lambda (G__78) (let fnrec1843 ((G__78 G__78)) (let* ((G__79 G__78) (p (jolt-nth G__79 0 jolt-nil)) (offset (jolt-nth G__79 1 jolt-nil))) (let* ((_o$1848 (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$1846 (let* ((_o$1844 (integer->char 118)) (_o$1845 (integer->char 86))) (jolt-hash-set _o$1844 _o$1845))) (_a$1847 (jolt-nth p 0))) (jolt-contains? _a$1846 _a$1847)) 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$1849 offset)) (jolt-vector _o$1848 _o$1849))))))) translate-param))) (guard (e (#t #f)) (def-var-with-meta! "clojure.pprint" "flag-defs" (let* ((_o$1850 (integer->char 58)) (_o$1851 (keyword #f "colon")) (_o$1852 (integer->char 64)) (_o$1853 (keyword #f "at"))) (jolt-hash-map _o$1850 _o$1851 _o$1852 _o$1853)) (let* ((_o$1854 (keyword #f "private")) (_o$1855 #t)) (jolt-hash-map _o$1854 _o$1855)))) (guard (e (#t #f)) diff --git a/jolt-core/jolt/backend_scheme.clj b/jolt-core/jolt/backend_scheme.clj index 5d7c8fd..d162fa2 100644 --- a/jolt-core/jolt/backend_scheme.clj +++ b/jolt-core/jolt/backend_scheme.clj @@ -566,14 +566,32 @@ core))) ;; Does this IR node emit to an expression that yields a Scheme boolean? Used to -;; drop the redundant jolt-truthy? on an :if test. -(defn- returns-scheme-bool? [node] - (cond - (and (= :const (:op node)) (boolean? (:val node))) true - (= :invoke (:op node)) - (let [nop (native-op (:fn node) (count (:args node)))] - (if (and nop (bool-returning-ops nop)) true false)) - :else false)) +;; drop the redundant jolt-truthy? on an :if test. Sees through the let*/if an +;; (or ...)/(and ...) of bool-returning ops desugars to: `or` is +;; (let* [g E1] (if (truthy? g) g E2)), `and` is (let* [g E1] (if (truthy? g) E2 g)) +;; — both return a Scheme boolean when E1/E2 are bool ops, since the value yielded +;; is always one of the (boolean) operand results. `bools` tracks let-bound locals +;; proven to hold a Scheme boolean. +(defn- returns-scheme-bool? + ([node] (returns-scheme-bool? node #{})) + ([node bools] + (cond + (and (= :const (:op node)) (boolean? (:val node))) true + (= :invoke (:op node)) + (let [nop (native-op (:fn node) (count (:args node)))] + (boolean (and nop (bool-returning-ops nop)))) + (= :local (:op node)) (contains? bools (:name node)) + (= :if (:op node)) + (and (returns-scheme-bool? (:then node) bools) + (returns-scheme-bool? (:else node) bools)) + (= :let (:op node)) + (let [bools' (reduce (fn [s b] + (if (returns-scheme-bool? (nth b 1) s) + (conj s (nth b 0)) + (disj s (nth b 0)))) + bools (:bindings node))] + (returns-scheme-bool? (:body node) bools')) + :else false))) (defn emit [node] (case (:op node)