diff --git a/collects/2htdp/info.ss b/collects/2htdp/info.ss index a6b48e261c..3e1fe6961c 100644 --- a/collects/2htdp/info.ss +++ b/collects/2htdp/info.ss @@ -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")) diff --git a/collects/2htdp/private/check-aux.ss b/collects/2htdp/private/check-aux.ss index 7584c5703b..a5b7a665b4 100644 --- a/collects/2htdp/private/check-aux.ss +++ b/collects/2htdp/private/check-aux.ss @@ -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])) diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.ss index 177bdd2835..d439d97551 100644 --- a/collects/repos-time-stamp/stamp.ss +++ b/collects/repos-time-stamp/stamp.ss @@ -1 +1 @@ -#lang scheme/base (provide stamp) (define stamp "8mar2010") +#lang scheme/base (provide stamp) (define stamp "9mar2010")