基本方案递归

Question

我有一个这样的文件：

    declare
    a = aexpress 
    b = bexpress 
    begin 

我的方案程序将当前输入端口设置为该文件，然后调用 （声明（读取）） 我返回的是#f。 或者更确切地说，控制台显示“对象 #f 不适用。”

我已经结束了括号的使用，找不到任何它应该返回布尔值的原因，但我确信我错过了一些东西。

我想要的是 ((a aexpress) (b bexpress))

(define declarations
  (lambda (token)
    (cond (((eq? token 'begin) '())
           (else (let* ((name token)
                        (eqsign (read))
                        (value (read)))
                   (cons (list name value) (declarations (read)))))))))

调用者：

    (define convert
      (lambda (filename)

         (begin
           (set-current-input-port! (open-input-file filename))
           (statement (read))
           )

        )
      )
 (define statement (lambda (token) (

                                   cond (
                                     ( (eq? token 'declare) (declarations (read)) )
                                        ;       ( (eq? token 'declare) (declare_statement)  )
                                        ;       ( (eq? token 'begin) (begin_statement) )
                                        ;       ( (eq? token 'for) (for_statement) )
                                        ;       ( (eq? token 'if) (if_statement)  )
                                        ;       ( (eq? token 'set) (set_statement) )
                                        ;       (else (expression_token))


                                   ))))

Answer 1

我已经为您修复了代码格式，这揭示了问题所在：(eq? token 'begin) 周围的括号层太多。固定版本如下所示：

(define declarations
  (lambda (token)
    (cond ((eq? token 'begin) '())
          (else (let* ((name token)
                       (eqsign (read))
                       (value (read)))
                  (cons (list name value) (declarations (read))))))))