PROSAGA码农传奇-lisp-如何修复此Scheme协程代码以在Racket中运行

<div class =“post-text”itemprop =“text”>
  
    在球拍中，
     <code>
 begin
 </code>
     不会创建新范围。
    
      1
    
     这意味着你在一个内部定义的任何东西
     <code>
 begin
 </code>
     表单仍在该表单之外的范围内。它还意味着begin不会更改上下文，因此如果您在表达式上下文中，
     <code>
 begin
 </code>
     保持这一点。
  
  
    该
     <code>
 define
 </code>
     表格有（大致）以下语法：
  
   <pre>
 <code>
 (define <id> <expr>)

</code>
 </pre>
  
    哪里
     <code>
 <id>
 </code>
     是变量名称，和
     <code>
 <expr>
 </code>
     是一种表达。然而
     <code>
 define
 </code>
     形式本身就是
    
      不
    
     表达式，所以这样的东西是无效的：
  
   <pre>
 <code>
 (define x (define y 5))

</code>
 </pre>
  
    因为begin不会改变上下文，所以这也是无效的：
  
   <pre>
 <code>
 (define x
 (begin
 (define y 5)
 y))

</code>
 </pre>
  
    相反，你可以使用
     <code>
 let
 </code>
     创建一个新的范围。因为让它自己是一个表达式，你可以把它放在define中。所以你可以这样写：
  
   <pre>
 <code>
 (define x
 (let ()
 (define y 5)
 y))

</code>
 </pre>
  
    现在，
     <code>
 x
 </code>
     一定会
     <code>
 5
 </code>
     正如所料。
  
  
    回到原来的问题，你有代码：
  
   <pre>
 <code>
 518 ;; Qt-esque connect macro 
519 (define-syntax connect-message 
520 (syntax-rules () 
521 [(register src-obj-key msg-type dst-obj-key handler) 
522 (register-message-handler 
523 msg-type 
524 (begin 
525 (define-coroutine 
526 (handler-accessor) 
527 (if (eqv? (get-dp-data-object dst-obj-key) #f) 
528 #f 
529 (send 
530 (get-dp-data-object dst-obj-key) 
531 handler 
532 (get-field args msg)))) 
533 handler-accessor))]))

</code>
 </pre>
  
    我在假设
     <code>
 register-message-handler
 </code>
     是一个函数，因此需要一个表达式。但是你有
     <code>
 define-coroutine
 </code>
    ，谁的阐述是一个
     <code>
 define
 </code>
     形成。所以而不是使用
     <code>
 begin
 </code>
    ，你可以用一个
     <code>
 let
 </code>
     把它变成一个表达式，给你这样的东西：
  
   <pre>
 <code>
 (register-message-handler 
 msg-type 
 (let () 
 (define-coroutine (handler-accessor) ....)
 handler-accessor))

</code>
 </pre>
  
    <子>
      
        1
      
      糟糕的设计决定......我知道。从几十年前的桥下浇水。 :(
    </子>
  
</DIV>