Changeset 37745 in project


Ignore:
Timestamp:
06/30/19 19:38:16 (2 weeks ago)
Author:
sjamaan
Message:

5/utf8: fix string-every for empty string by changing the fold seed

Location:
release/5/utf8
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/utf8/tags/3.6.2/utf8-srfi-13.scm

    r36058 r37745  
    146146       (apply string-fold
    147147              (lambda (c acc) (cond ((pred c) => identity) (else (return #f))))
    148               #f str opt)))))
     148              #t str opt)))))
    149149
    150150(define (string-tabulate proc len)
  • release/5/utf8/trunk/utf8-srfi-13.scm

    r36058 r37745  
    146146       (apply string-fold
    147147              (lambda (c acc) (cond ((pred c) => identity) (else (return #f))))
    148               #f str opt)))))
     148              #t str opt)))))
    149149
    150150(define (string-tabulate proc len)
Note: See TracChangeset for help on using the changeset viewer.