artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Add string-length.

Browse source 
* src/strings.c (string_length): New function.
* mes/module/mes/scm.mes (string-length): Remove.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-15 23:51:29 +01:00
parent 819b32e61c
commit 6af0b49f09
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mes/module/mes/scm.mes
View file

@ -194,9 +194,6 @@
(define (make-string n . fill) (define (make-string n . fill)
(list->string (apply make-list n fill))) (list->string (apply make-list n fill)))
(define (string-length s)
(length (string->list s)))
(define (string-ref s k) (define (string-ref s k)
(list-ref (string->list s) k)) (list-ref (string->list s) k))

7
src/strings.c
View file

@ -260,3 +260,10 @@ string_append (SCM x) ///((arity . n))
} }
return make_string (buf, size); return make_string (buf, size);
} }
SCM
string_length (SCM string)
{
assert (TYPE (string) == TSTRING);
return MAKE_NUMBER (LENGTH (string));
}