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

mes: Add string-suffix?

Browse source 
* module/mes/scm.mes (string-prefix?): Refactor.
  (string-suffix?): New function.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-19 00:23:13 +02:00
parent cd5c16cf74
commit 8f4b64fda7
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
module/mes/scm.mes
View file

@ -223,9 +223,18 @@
(list-head lst (- end start)))))) (list-head lst (- end start))))))
(define (string-prefix? prefix string) (define (string-prefix? prefix string)
(let ((length (string-length string))
(prefix-length (string-length prefix)))
(and (and
(>= (string-length string) (string-length prefix)) (>= length prefix-length)
(equal? (substring string 0 (string-length prefix)) prefix))) (equal? (substring string 0 prefix-length) prefix))))
(define (string-suffix? suffix string)
(let ((length (string-length string))
(suffix-length (string-length suffix)))
(and
(>= length suffix-length)
(equal? (substring string (- length suffix-length)) suffix))))
(define (string->number s . rest) (define (string->number s . rest)
(let* ((radix (if (null? rest) 10 (car rest))) (let* ((radix (if (null? rest) 10 (car rest)))