core: Add string-ref.
[mes.git] / mes / module / mes / scm.mes
index 3ca92ca16abc2fc536510def19fa526925fc8b9e..c4d78035b40b1cb0917ccce4101ec6566137b149 100644 (file)
 (define (make-string n . fill)
   (list->string (apply make-list n fill)))
 
-(define (string-ref s k)
-  (list-ref (string->list s) k))
-
 (define (string-set! s k v)
   (list->string (list-set! (string->list s) k v)))