diff --git a/racket/syndicate/examples/actor/example-during-criterion-snapshotting.rkt b/racket/syndicate/examples/actor/example-during-criterion-snapshotting.rkt index 35478bf..8827942 100644 --- a/racket/syndicate/examples/actor/example-during-criterion-snapshotting.rkt +++ b/racket/syndicate/examples/actor/example-during-criterion-snapshotting.rkt @@ -10,7 +10,7 @@ ;; Correct output: ;; x=123 v=999 ;; x=124 v=999 -;; finally for x=124 v=999 +;; finally for x0=123 x=124 v=999 ;; ;; Should eventually be turned into some kind of test case. @@ -19,7 +19,8 @@ (spawn (field [x 123]) (assert (foo (x) 999)) (during (foo (x) $v) + (define x0 (x)) (log-info "x=~a v=~a" (x) v) (when (= (x) 123) (x 124)) (on-stop - (log-info "finally for x=~a v=~a" (x) v)))) + (log-info "finally for x0=~a x=~a v=~a" x0 (x) v))))