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

fix name of function in string-whitespace and remove spurious displayln; Closes PR14679

Browse Source
This commit is contained in:
Matthias Felleisen 2014-08-12 12:47:46 -06:00
parent 51254f0626
commit 0b35ec71a8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/htdp-pkgs/htdp-lib/lang/private/teachprims.rkt
View File

@ -491,7 +491,6 @@ namespace.
(case-lambda
[(tag check-result format-msg actual)
(unless check-result
(displayln `(cerr ,actual))
(err tag (string-append "expected " (a-or-an format-msg) " " format-msg ", but received ~e")
actual))]
[(tag check-result format-msg actual snd)
@ -571,7 +570,7 @@ namespace.
(define-teach beginner string-whitespace?
(lambda (s)
(cerr 'string-upper-case? (string? s) "string" s)
(cerr 'string-whitespace? (string? s) "string" s)
(andmap char-whitespace? (string->list s))))
;; -----------------------------------------------------------------------------