suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug report 10816

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/info.ss
View File

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

2
collects/2htdp/private/check-aux.ss
View File

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