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

Fixing error string

Browse Source
This commit is contained in:
Jay McCarthy 2010-07-22 15:12:07 -06:00
parent 9eb053d4db
commit eeada45868
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lang/private/teachprims.rkt
View File

@ -504,7 +504,7 @@ namespace.
(define-teach beginner string-whitespace? (define-teach beginner string-whitespace?
(lambda (s) (lambda (s)
(cerr 'string-upper-case? (string? s) "<string>" s) (cerr 'string-whitespace? (string? s) "<string>" s)
(andmap char-whitespace? (string->list s)))) (andmap char-whitespace? (string->list s))))
;; ----------------------------------------------------------------------------- ;; -----------------------------------------------------------------------------