bug report 10816

svn: r18490
This commit is contained in:
Matthias Felleisen 2010-03-09 02:06:32 +00:00
parent 911d80a144
commit 46d66b4542
2 changed files with 3 additions and 5 deletions

View File

@ -2,8 +2,4 @@
(define name "HtDP/2e Teachpacks")
(define compile-omit-paths
'("hangman-world.ss"
"hangman-world-play.ss"
"tests"
"extended-key"
"utest"))
'("tests" "uchat" "utest"))

View File

@ -1,3 +1,4 @@
#lang scheme
(require htdp/error)
@ -84,6 +85,7 @@
[(string? x) true]
[(symbol? x) true]
[(number? x) true]
[(boolean? x) true]
[(char? x) true]
[(pair? x) (and (list? x) (andmap sexp? x))]
[else false]))