使用geiser和babel在组织模式下评估mit-scheme代码块

Question

我正在尝试复制"The Little Schemer“中的代码，因为我一直在跟随，但遇到了错误。

.emacs文件：

;; Melpa package contains geiser
(require 'package)
(add-to-list 'package-archives
             '("melpa-unstable" . "http://melpa.org/packages/" t)
(package-initialize)

;; Setup geiser and babel
(require 'scheme)
(require 'python)
(setq geiser-active-implementations '(mit))
(custom-set-variables
 '(scheme-program-name "mit-scheme"))
(org-babel-do-load-languages
 'org-babel-load-languages
 '((scheme . t)
   (python . t)
   (sh . t)))

我经营M-x geiser。这打开了一个全功能的Mit REPL。但是当我评估我的方案src代码块时，发生了以下情况：

#+BEGIN_SRC scheme
(define lat?
  (lamda (l)
    (cond
     ((null? l) #T)
     ((atom? (car l)) (lat? (cdr l)))
     (else #f))))
(lat? (bacon and eggs))
#+END_SRC

#+RESULTS:
: An error ocurred.

我在运行C-c时处于组织模式。

更新:我已经将环境从我的Ubuntu VM切换到Cygwin。我关注uileiknarf's Cygwin Emacs guide取得了巨大的成功。我的学习经历又回到了正轨！

Answer 1

您的scheme代码应该如下所示：

(define lat?
  (lambda (l)
    (cond
     ((null? l) #t)
     ((not (pair? (car l)))
      (lat? (cdr l)))
     (else #f))))

(lat? '(bacon and eggs))

很可能运行时不会出现错误。