方案定义错误（短）

Question

这是我正在制作的解释器的一部分。我不断收到此错误：

define not allowed in an expression context in: (define ret1 (list->string wl))

我正在使用 DrScheme 版本 371，语言标准 (R5RS)。

(define (read-command)
  (set! com '( '() ))
  (set! wl (read-as-list))
  (define ret1 (list->string wl))
  (commRead)
  ret1
 )

这里有类似的问题：

    (define repl(
                 lambda()
                  (display "\nUofL>")
                  (define inp (read-command))
                  (define lengtha (length com)

Answer 1

在您的解释器中，似乎定义只能出现在函数的开头。您应该改用let*：

(define (read-command)
  (let* ((com '('())) ; are you sure you didn't mean '(()) ?
         (wl (read-as-list))
         (ret1 (list->string wl)))
  (commRead ret1)))

对于第二个问题，试试这个：

(define repl
  (lambda ()
    (display "\nUofL>")
    (let ((inp (read-command))
          (lengtha (length com)))
      ; return a value here
      )))

附带说明一下，您的代码似乎是以程序化风格编写的——所有这些set! 和函数调用都为效果而执行。如果您不将ret1 作为参数传递给commRead，那么到底如何修改ret1？我建议你读一本关于 Scheme 编程的好书，然后开始以更实用的风格编写代码，目前你的代码不是惯用的，你迟早会遇到麻烦。