Ticket #1537: test.pir

.sub 'choose'
    .param pmc options :slurpy
    .local pmc cc
    .local pmc chosen
    .local pmc paths

    if options goto got_options
    'fail'()
  got_options:
    chosen = shift options

    cc = new 'Continuation'
    set_addr cc, recurse
    paths = get_global '!paths'
    push paths, cc

    .return (chosen)

  recurse:
    .tailcall 'choose'(options :flat)
.end

.sub 'fail'
    .local pmc cc
    .local pmc paths

    paths = get_global '!paths'
    cc = pop paths

    cc()
.end

.sub 'main' :main
    .local pmc cc
    .local pmc paths
    .local pmc val

    paths = new 'ResizablePMCArray'
    set_global '!paths', paths

    cc = new 'Continuation'
    push paths, cc
    set_addr cc, final_failure

    val= 'choose'("foo", "bar")
    say val

    'fail'()
  final_failure:
    say 'Done.'
.end