2

此代码在codepad.org提供的 Racket Scheme 中有效，在显示“意外返回”消息之前在连续的行上显示数字 1、2 和 3，但在ideone.com使用 Chicken Scheme 相同的代码失败，我不'不明白 Chicken Scheme 提供的错误信息。我怎样才能使它与鸡计划一起工作？

(define-syntax define-generator
  (lambda (x)
    (syntax-case x (lambda)
      ((stx name (lambda formals e0 e1 ...))
         (with-syntax ((yield (datum->syntax-object (syntax stx) 'yield)))
           (syntax (define name
             (lambda formals
               (let ((resume #f) (return #f))
                 (define yield
                   (lambda args
                     (call-with-current-continuation
                      (lambda (cont)
                        (set! resume cont)
                        (apply return args)))))
                 (lambda ()
                   (call-with-current-continuation
                    (lambda (cont)
                      (set! return cont)
                      (cond (resume (resume))
                      (else (let () e0 e1 ...)
                            (error 'name "unexpected return"))))))))))))
        ((stx (name . formals) e0 e1 ...)
          (syntax (stx name (lambda formals e0 e1 ...)))))))

(define-generator (test-gen)
  (yield 1)
  (yield 2)
  (yield 3))

(define t (test-gen))
(display (t)) (newline)
(display (t)) (newline)
(display (t)) (newline)
(display (t)) (newline)
4

1 回答 1

3

鸡需要装载syntax-case鸡蛋才能支撑syntax-case。但是，ideone 没有安装那个 egg，所以你不能在那里使用它。

因此，为了在 ideone 上进行测试，您必须将宏转换为显式重命名宏。

于 2015-07-28T18:25:17.257 回答