Код продолжения, который ничего не делает

Question

Может быть, мой вопрос имеет очень простой ответ, но я не могу его найти.

В схеме R6RS, как я могу построить продолжение, которое ничего не делает и требует каких-либо аргументов?

Моя цель - иметь продолжение, назовем его QUIT такой, что если у меня есть следующий код:

((lambda ()
  (display 1)
  (display 2)
  (QUIT)
  (displey "A")))

он печатает 1 и 2, но не "А".+

Вы можете мне помочь?

Спасибо.

Answer 1

Самый простой способ - использовать простое продолжение стиля возврата:

(call/cc (lambda (return) 
    (display 1) 
    ...
    (return) 
    (display "A")))

Это помогает вообще?