From fee7e7a01881662f2ecb655ca6d0f047315baff6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 27 Jul 2020 00:26:30 +0200 Subject: Remove some unused functions. --- module/util.scm | 9 --------- 1 file changed, 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 ( ...) in 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)) -- cgit v1.2.3