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

Adding string-size and substring-cursor to the ASCII version.

Browse source
This commit is contained in:
Alex Shinn 2012-07-23 23:18:48 +09:00
parent b682d77971
commit 287d1a992f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -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)