diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 00:26:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 00:26:30 +0200 |
| commit | fee7e7a01881662f2ecb655ca6d0f047315baff6 (patch) | |
| tree | 9d776c2e1da41a212446f1eb09eb79aa888c2085 | |
| parent | Cleanup in atomic-output... (diff) | |
| download | calp-fee7e7a01881662f2ecb655ca6d0f047315baff6.tar.gz calp-fee7e7a01881662f2ecb655ca6d0f047315baff6.tar.xz | |
Remove some unused functions.
| -rw-r--r-- | module/util.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/util.scm b/module/util.scm index 76877d10..62523167 100644 --- a/module/util.scm +++ b/module/util.scm @@ -79,12 +79,6 @@ -(define-public upstring->symbol (compose string->symbol string-upcase)) - -(define-public symbol-upcase (compose string->symbol string-upcase symbol->string)) - -(define-public symbol-downcase (compose string->symbol string-downcase symbol->string)) - (define-syntax for (syntax-rules (in) ((for (<var> <vars> ...) in <collection> b1 body ...) @@ -326,9 +320,6 @@ (if (> i (string-length str)) str (string-take str i))) -(define-public (as-string s) - (if (symbol? s) (symbol->string s) s)) - (define-public (as-symb s) (if (string? s) (string->symbol s) s)) |