typo (PR 9908)

svn: r12438
This commit is contained in:
Matthew Flatt 2008-11-14 02:34:10 +00:00
parent 13b4240cc0
commit dcab9448e8

View File

@ -280,9 +280,9 @@ work when given non-strings:
@schemeblock[
(define (reply s)
(if (string? s)
(if (equal? "hello" (substring s 0 5)
(if (equal? "hello" (substring s 0 5))
"hi!"
"huh?"))
"huh?")
"huh?"))
]
@ -292,8 +292,8 @@ better written as
@schemeblock[
(define (reply s)
(if (if (string? s)
(equal? "hello" (substring s 0 5)
#f))
(equal? "hello" (substring s 0 5))
#f)
"hi!"
"huh?"))
]