Skip to content

Commit 157e6fa

Browse files
committed
I believe this is how SRFI-226 meant
1 parent 0139ed1 commit 157e6fa

File tree

1 file changed

+10
-0
lines changed

1 file changed

+10
-0
lines changed

test/tests/sagittarius/continuations.scm

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -379,6 +379,16 @@
379379
(lambda ()
380380
(with-continuation-mark key 'mark3
381381
(continuation-mark-set->list #f key)))))))
382+
;; specifying tag would let continuation-mark-set->list to search
383+
;; outside of the prompt (default prompt-tag)
384+
(test-equal '(mark3 mark2)
385+
(with-continuation-mark key 'mark1
386+
(with-continuation-mark key 'mark2
387+
(call-with-continuation-prompt
388+
(lambda ()
389+
(with-continuation-mark key 'mark3
390+
(continuation-mark-set->list #f key)))
391+
tag))))
382392

383393
;; With custom prompt tag for installation but default tag for
384394
;; querying, the prompt boundary is not detected, so all marks are

0 commit comments

Comments
 (0)