simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix clojure.core/max shadowed by a local

Browse source
This commit is contained in:
Yogthos 2026-06-30 23:05:04 -04:00
parent 4a1dec277e
commit f625099ddf
3 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
host/chez/seed/image.ss
View file

@ -189,7 +189,7 @@
(guard (e (#t #f))
(def-var-with-meta! "jolt.backend-scheme" "scheme-reserved" (let* ((_o$7642 "if") (_o$7643 "begin") (_o$7644 "lambda") (_o$7645 "let") (_o$7646 "let*") (_o$7647 "letrec") (_o$7648 "letrec*") (_o$7649 "quote") (_o$7650 "quasiquote") (_o$7651 "unquote") (_o$7652 "set!") (_o$7653 "define") (_o$7654 "define-syntax") (_o$7655 "cond") (_o$7656 "case") (_o$7657 "when") (_o$7658 "unless") (_o$7659 "and") (_o$7660 "or") (_o$7661 "do") (_o$7662 "else") (_o$7663 "guard") (_o$7664 "parameterize") (_o$7665 "delay") (_o$7666 "values")) (jolt-hash-set _o$7642 _o$7643 _o$7644 _o$7645 _o$7646 _o$7647 _o$7648 _o$7649 _o$7650 _o$7651 _o$7652 _o$7653 _o$7654 _o$7655 _o$7656 _o$7657 _o$7658 _o$7659 _o$7660 _o$7661 _o$7662 _o$7663 _o$7664 _o$7665 _o$7666)) (let* ((_o$7667 (keyword #f "private")) (_o$7668 #t)) (jolt-hash-map _o$7667 _o$7668))))
(guard (e (#t #f))
(def-var-with-meta! "jolt.backend-scheme" "bare-native-names" (jolt-invoke (var-deref "jolt.backend-scheme" "set") (jolt-invoke (var-deref "clojure.core" "keep") (lambda (G__138) (let fnrec7669 ((G__138 G__138)) (let* ((G__139 G__138) (k (jolt-nth G__139 0 jolt-nil)) (v (jolt-nth G__139 1 jolt-nil))) (if (jolt= k v) k jolt-nil)))) (var-deref "jolt.backend-scheme" "native-ops"))) (let* ((_o$7670 (keyword #f "private")) (_o$7671 #t)) (jolt-hash-map _o$7670 _o$7671))))
(def-var-with-meta! "jolt.backend-scheme" "bare-native-names" (jolt-invoke (var-deref "clojure.core" "set") (jolt-invoke (var-deref "clojure.core" "keep") (lambda (G__138) (let fnrec7669 ((G__138 G__138)) (let* ((G__139 G__138) (k (jolt-nth G__139 0 jolt-nil)) (v (jolt-nth G__139 1 jolt-nil))) (if (jolt= k v) k jolt-nil)))) (var-deref "jolt.backend-scheme" "native-ops"))) (let* ((_o$7670 (keyword #f "private")) (_o$7671 #t)) (jolt-hash-map _o$7670 _o$7671))))
(guard (e (#t #f))
(def-var-with-meta! "jolt.backend-scheme" "munge-name" (letrec ((munge-name (lambda (s) (let fnrec7672 ((s s)) (let* ((s (jolt-invoke (var-deref "clojure.string" "replace") (jolt-invoke (var-deref "clojure.string" "replace") s "#" "_") "'" "_PRIME_"))) (if (let* ((or__26__auto (jolt-contains? (var-deref "jolt.backend-scheme" "scheme-reserved") s))) (if (jolt-truthy? or__26__auto) or__26__auto (jolt-contains? (var-deref "jolt.backend-scheme" "bare-native-names") s))) (jolt-invoke (var-deref "clojure.core" "str") "_" s) s)))))) munge-name) (let* ((_o$7673 (keyword #f "private")) (_o$7674 #t)) (jolt-hash-map _o$7673 _o$7674))))
(guard (e (#t #f))