Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing doc typos

Browse source
This commit is contained in:
Alex Shinn 2016-05-01 16:43:52 +09:00
parent 0763d47d1c
commit b9244e39f6
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/string.scm
View file

@ -259,7 +259,7 @@
(let ((pred (make-char-predicate check))) (let ((pred (make-char-predicate check)))
(string-fold (lambda (ch count) (if (pred ch) (+ count 1) count)) 0 str))) (string-fold (lambda (ch count) (if (pred ch) (+ count 1) count)) 0 str)))
;;> \procedure{(string-contain s1 s2)} ;;> \procedure{(string-contains s1 s2)}
;;> ;;>
;;> Returns a cursor pointing to the first position in the string ;;> Returns a cursor pointing to the first position in the string
;;> \var{s1} where \var{s2} occurs, or \scheme{#f} if there is no such ;;> \var{s1} where \var{s2} occurs, or \scheme{#f} if there is no such
@ -267,9 +267,9 @@
;;> \procedure{(mamke-string-searcher needle)} ;;> \procedure{(mamke-string-searcher needle)}
;;> ;;>
;;> Partial application of \scheme{string-contain}. Return a ;;> Partial application of \scheme{string-contains}. Return a
;;> procedure of one argument, a string, which runs ;;> procedure of one argument, a string, which runs
;;> \scheme{(string-contain str \var{needle})}. ;;> \scheme{(string-contains str \var{needle})}.
(define (make-string-searcher needle) (define (make-string-searcher needle)
(lambda (haystack) (string-contains haystack needle))) (lambda (haystack) (string-contains haystack needle)))