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

fix string-ith problem, Closes PR 11261

Browse Source
This commit is contained in:
Matthias Felleisen 2010-09-28 18:07:10 -04:00
parent 3d16dd698a
commit 725da3b2ed
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

@ -469,7 +469,7 @@ namespace.
(define-teach beginner string-ith (define-teach beginner string-ith
(lambda (s n) (lambda (s n)
(define f "<exact integer in [0, length of the given string (~s)]>") (define f "<exact integer in [0, length of the given string (~s))>")
(cerr 'string-ith (string? s) "<string>" s "first") (cerr 'string-ith (string? s) "<string>" s "first")
(cerr 'string-ith (and (number? n) (integer? n) (>= n 0)) NAT n "second") (cerr 'string-ith (and (number? n) (integer? n) (>= n 0)) NAT n "second")
(let ([l (string-length s)]) (let ([l (string-length s)])