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

fix tests

Browse source
This commit is contained in:
Yogthos 2026-06-30 21:25:33 -04:00
parent 240458d994
commit 4a1dec277e
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
host/chez/source-registry.ss
View file

@ -35,9 +35,13 @@
;; The continuation to walk for an uncaught value: the one jolt-throw captured for ;; The continuation to walk for an uncaught value: the one jolt-throw captured for
;; THIS value (identity-tagged via jolt-throw-cont, so a stale entry from an ;; THIS value (identity-tagged via jolt-throw-cont, so a stale entry from an
;; earlier caught throw is never reused), else a host condition's own ;; earlier caught throw is never reused), else a host condition's own
;; &continuation, else #f. ;; &continuation, else #f. raw may arrive as the &jolt-throw condition wrapping
(define (jolt-error-continuation v) ;; the value (the built-binary launcher hands jolt-report-throwable the guard's
(let ((tc (jolt-throw-cont))) ;; raw value) or already unwrapped (the cli unwraps first); unwrap here so the
;; identity match holds either way.
(define (jolt-error-continuation raw)
(let* ((v (jolt-unwrap-throw raw))
(tc (jolt-throw-cont)))
(cond (cond
((and (pair? tc) (eq? (car tc) v)) (cdr tc)) ((and (pair? tc) (eq? (car tc) v)) (cdr tc))
((and (condition? v) (continuation-condition? v)) (condition-continuation v)) ((and (condition? v) (continuation-condition? v)) (condition-continuation v))