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

fix string-contains?

Browse Source 
closes PR 13990
This commit is contained in:
Robby Findler 2013-08-30 20:49:54 -05:00
parent 5c402c25a1
commit 29c904ae42
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/htdp-pkgs/htdp-lib/lang/private/teachprims.rkt
View File

@ -586,7 +586,7 @@ namespace.
(lambda (s t)
(cerr 'string-contains? (string? s) "string" s)
(cerr 'string-contains? (string? t) "string" t)
(cons? (regexp-match s t))))
(regexp-match? (regexp-quote s) t)))
(provide
beginner-string-ith

5
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/beg-adv.rktl
View File

@ -192,6 +192,11 @@
(htdp-test #t 'equal~? (equal~? (make-a1 #i2.0) (make-a1 2) #i0.2))
(htdp-test #f 'equal~? (equal~? (make-a1 #i2.3) (make-a1 2) #i0.2))
(htdp-test #t 'string-contains (string-contains? "x" "abxy"))
(htdp-test #f 'string-contains (string-contains? "x" "abc"))
(htdp-test #f 'string-contains (string-contains? "(" "abc"))
(htdp-test #t 'string-contains (string-contains? "(" "ab(c"))
(htdp-top-pop 1)
(htdp-top-pop 1)
(htdp-top-pop 1)