From 287d1a992f7df1df3fc7e5431a1af82996aca0f0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 23 Jul 2012 23:18:48 +0900 Subject: [PATCH] Adding string-size and substring-cursor to the ASCII version. --- lib/init-7.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/init-7.scm b/lib/init-7.scm index 32d709d1..d8e273d5 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -1098,6 +1098,8 @@ (define (string-copy s) (substring-cursor s 0 (string-size s))) (define string-cursor-end string-size)) (else + (define string-size string-length) + (define substring-cursor substring) (define (string-copy s) (substring s 0 (string-length s))) (define string-cursor-end string-length) (define string-cursor-ref string-ref)