diff options
| author | Arun Isaac | 2026-01-01 14:33:59 +0000 |
|---|---|---|
| committer | Arun Isaac | 2026-09-04 16:18:14 +0100 |
| commit | 1a21eca5c70f2002dacdd2aa5f51ac43d15bae72 (patch) | |
| tree | b62562969a7f0e486f1c49346fd190fcfd954358 | |
| parent | 0c0fb4dc26fd24d91fdc3e8586216af68817b776 (diff) | |
| download | ravanan-1a21eca5c70f2002dacdd2aa5f51ac43d15bae72.tar.gz ravanan-1a21eca5c70f2002dacdd2aa5f51ac43d15bae72.tar.lz ravanan-1a21eca5c70f2002dacdd2aa5f51ac43d15bae72.zip | |
work/utils: Add string-remove-prefix.
| -rw-r--r-- | ravanan/work/utils.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ravanan/work/utils.scm b/ravanan/work/utils.scm index 5e057e3..df1cf21 100644 --- a/ravanan/work/utils.scm +++ b/ravanan/work/utils.scm @@ -27,7 +27,8 @@ #:use-module (system foreign) #:use-module (system foreign-library) #:use-module (ravanan work vectors) - #:export (list->dotted-list + #:export (string-remove-prefix + list->dotted-list alist=? assoc-ref* assoc-set @@ -37,6 +38,11 @@ call-with-input-pipe call-with-atomic-output-file)) +(define (string-remove-prefix prefix str) + "Remove @var{prefix} from @var{str}, if present. Else, return @code{#f}." + (and (string-prefix? prefix str) + (substring str (string-length prefix)))) + (define (list->dotted-list lst) "Convert @var{lst} of 2-element lists into a true association list of pairs." |