Evaluez le bloc de code mit-scheme en mode org avec geiser et babel

Question

Je tente de reproduire le code dans "The Little Schemer" comme je le suis et je rencontre des erreurs.

emacs fichier:

;; 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))) 

Je cours M-x Geiser. Cela ouvre une fonctionnalité complète REPL REPL. Mais quand j'évaluer mon bloc de code système src, ce qui suit se produit:

#+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. 

Je suis en mode org lors de l'exécution C-c C-c. MISE À JOUR: J'ai changé d'environnement de ma machine virtuelle Ubuntu à Cygwin. J'ai suivi uileiknarf's Cygwin Emacs guide avec beaucoup de succès. Mon expérience d'apprentissage est de retour sur la bonne voie!

Answer 1

Votre code scheme doit être quelque chose comme ceci:

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

(lat? '(bacon and eggs)) 

Peut-être que fonctionnera sans erreurs.