Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding string-offset->index.

Browse source
This commit is contained in:
Alex Shinn 2013-07-15 15:22:45 +09:00
parent beb325a0d1
commit 4ffa62d4ef
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/init-7.scm
View file

@ -1199,9 +1199,12 @@
(cond-expand (cond-expand
(full-unicode (full-unicode
(define string-cursor-end string-size)) (define string-cursor-end string-size)
(define (string-offset->index str off)
(string-length (substring-cursor str 0 off))))
(else (else
(define (string-index->offset str i) i) (define (string-index->offset str i) i)
(define (string-offset->index str off) off)
(define string-size string-length) (define string-size string-length)
(define substring-cursor substring) (define substring-cursor substring)
(define string-cursor-end string-length) (define string-cursor-end string-length)