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))

4
host/chez/seed/prelude.ss
View file

@ -487,9 +487,9 @@
(guard (e (#t #f))
(def-var! "clojure.core" "trampoline" (letrec ((trampoline (case-lambda ((f) (let fnrec4585 ((f f)) (let* ((ret (jolt-invoke f))) (if (jolt-truthy? (jolt-invoke (var-deref "clojure.core" "fn?") ret)) (trampoline ret) ret)))) ((f . args) (let fnrec4586 ((f f) (args (list->cseq args))) (trampoline (lambda () (let fnrec4587 () (jolt-apply f args))))))))) trampoline)))
(guard (e (#t #f))
(def-var! "clojure.core" "max" (letrec ((max (case-lambda ((x) (let fnrec4588 ((x x)) x)) ((x y) (let fnrec4589 ((x x) (y y)) (if (> x y) x y))) ((x y . more) (let fnrec4590 ((x x) (y y) (more (list->cseq more))) (jolt-reduce max (max x y) more)))))) max)))
(def-var! "clojure.core" "max" (letrec ((_max (case-lambda ((x) (let fnrec4588 ((x x)) x)) ((x y) (let fnrec4589 ((x x) (y y)) (if (> x y) x y))) ((x y . more) (let fnrec4590 ((x x) (y y) (more (list->cseq more))) (jolt-reduce _max (_max x y) more)))))) _max)))
(guard (e (#t #f))
(def-var! "clojure.core" "min" (letrec ((min (case-lambda ((x) (let fnrec4591 ((x x)) x)) ((x y) (let fnrec4592 ((x x) (y y)) (if (< x y) x y))) ((x y . more) (let fnrec4593 ((x x) (y y) (more (list->cseq more))) (jolt-reduce min (min x y) more)))))) min)))
(def-var! "clojure.core" "min" (letrec ((_min (case-lambda ((x) (let fnrec4591 ((x x)) x)) ((x y) (let fnrec4592 ((x x) (y y)) (if (< x y) x y))) ((x y . more) (let fnrec4593 ((x x) (y y) (more (list->cseq more))) (jolt-reduce _min (_min x y) more)))))) _min)))
(guard (e (#t #f))
(def-var! "clojure.core" "reverse" (letrec ((reverse (lambda (coll) (let fnrec4594 ((coll coll)) (jolt-reduce jolt-conj (jolt-list ) coll))))) reverse)))
(guard (e (#t #f))