typo: string-contains precondition

This commit is contained in:
ben 2015-10-10 01:39:19 -04:00 committed by Leif Andersen
parent 33ba7683b2
commit 0d633fefd3

View File

@ -173,7 +173,7 @@
(unless (string? str)
(raise-argument-error 'string-contains? "string?" str))
(unless (string? sub)
(raise-argument-error 'string-prefix? "string?" sub))
(raise-argument-error 'string-contains? "string?" sub))
(define L1 (string-length str))
(define L2 (string-length sub))
(define d (- L1 L2))