lisp

solutions to Lisp in Small Pieces
Log | Files | Refs | Feed

commit 66d56eafb7abcfc768f8330747be75dbc17f97bd
parent 5ffe3eaab1ce29dd78eb05d6b873750f26acdf8e
Author: Jenny Doe <tng@soykaf.me>
Date:   Fri, 18 Jan 2019 05:32:50 +0100

small fix

Diffstat:
Mchapter1/d.evaluate.scm | 2+-
Mchapter1/evaluate.scm | 2+-
2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/chapter1/d.evaluate.scm b/chapter1/d.evaluate.scm @@ -4,7 +4,7 @@ (if (atom? exp) ; (not (pair? exp)) (cond ((symbol? exp) (lookup exp env)) - ((or (number? exp)(string? exp)(char? exp)(vector? exp)) + ((or (number? exp)(string? exp)(char? exp)(vector? exp)(boolean? exp)) exp) (else (error 'evaluate "Invalid atom" exp))) (case (car exp) diff --git a/chapter1/evaluate.scm b/chapter1/evaluate.scm @@ -6,7 +6,7 @@ (if (atom? exp) ; (not (pair? exp)) (cond ((symbol? exp) (lookup exp env)) - ((or (number? exp)(string? exp)(char? exp)(vector? exp)) + ((or (number? exp)(string? exp)(char? exp)(vector? exp)(boolean? exp)) exp) (else (error 'evaluate "Invalid atom" exp))) (case (car exp)