We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0139ed1 commit 157e6faCopy full SHA for 157e6fa
test/tests/sagittarius/continuations.scm
@@ -379,6 +379,16 @@
379
(lambda ()
380
(with-continuation-mark key 'mark3
381
(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))))
392
393
;; With custom prompt tag for installation but default tag for
394
;; querying, the prompt boundary is not detected, so all marks are
0 commit comments