12 lines
310 B
Scheme
12 lines
310 B
Scheme
|
(define-module (anarres strings))
|
||
|
|
|
||
|
|
(define-public (string-remove-prefix prefix s)
|
||
|
|
(if (string-prefix? prefix s)
|
||
|
|
(string-drop s (string-length prefix))
|
||
|
|
s))
|
||
|
|
|
||
|
|
(define-public (string-remove-suffix suffix s)
|
||
|
|
(if (string-suffix? suffix s)
|
||
|
|
(string-drop-right s (string-length suffix))
|
||
|
|
s))
|