diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:13:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:13:58 +0200 |
| commit | c1cbef6611df9c8918fee8699b5867d8a54ac810 (patch) | |
| tree | 46ab04d457eda5e7c0873efe3480d5c68ef1d4c2 /module/util.scm | |
| parent | Got type files out of output. (diff) | |
| download | calp-c1cbef6611df9c8918fee8699b5867d8a54ac810.tar.gz calp-c1cbef6611df9c8918fee8699b5867d8a54ac810.tar.xz | |
even more.
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm index 17400c3b..e2acd551 100644 --- a/module/util.scm +++ b/module/util.scm @@ -309,6 +309,13 @@ (define-public (as-symb s) (if (string? s) (string->symbol s) s)) +(define-public (downcase-symbol symb) + (-> symb + symbol->string + string-downcase + string->symbol)) + + (define-public (enumerate lst) (zip (iota (length lst)) lst)) |