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

fixed typo

Browse Source 
svn: r1502
This commit is contained in:
Matthias Felleisen 2005-12-02 22:14:35 +00:00
parent 65e8698758
commit 4de4292474
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lang/private/teachprims.ss
View File

@ -292,7 +292,8 @@
(build-string n (lambda (i) (build-string n (lambda (i)
(define r (f i)) (define r (f i))
(unless (char? r) (unless (char? r)
(qcheck 'build-string "second argument must be a <procedure> that produces a <char>, given ~e which produced ~e for ~e" f r i)) (qcheck 'build-string
"second argument must be a <procedure> that produces a <char>, given ~e, which produced ~e for ~e" f r i))
r)))) r))))