From 4ffa62d4efaeb7fd0ae05fe444f9d6214e910f55 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 15 Jul 2013 15:22:45 +0900 Subject: [PATCH] Adding string-offset->index. --- lib/init-7.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/init-7.scm b/lib/init-7.scm index 83ed8d6f..748e7821 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -1199,9 +1199,12 @@ (cond-expand (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 (define (string-index->offset str i) i) + (define (string-offset->index str off) off) (define string-size string-length) (define substring-cursor substring) (define string-cursor-end string-length)