Basi c пример протестирован на Repl.it:
; when foo is called, applies current context to value 25
(define foo (lambda ()
(call/cc
(lambda (k) (k 25))
)
))
затем
>>(foo)
[BUG] unknown opecode type: undefined []
>>(foo 'dummy)
25
>>(+ 10 (foo))
[BUG] unknown opecode type: undefined []
>>(+ 10 (foo '(d u m m y)))
35
В качестве реального примера, копирование кода tree-generator
и same-fringe?
из http://ds26gte.github.io/tyscheme/index-Z-H-15.html#node_sec_13 .1 выдает ту же ошибку, которая исправляется заменой вызовов (gen1)
и (gen2)
на (gen1 'blah)
и (gen2 'whatever)
.