diff options
Diffstat (limited to 'tissue/web/static.scm')
-rw-r--r-- | tissue/web/static.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index e02c129..71ef50b 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -67,14 +67,6 @@ NEW-EXTENSION." (string-append (substring file 0 (1+ (string-index-right file #\.))) new-extension)) -(define (sanitize-string str) - "Downcase STR and replace spaces with hyphens." - (string-map (lambda (c) - (case c - ((#\space) #\-) - (else c))) - (string-downcase str))) - (define (exporter file proc) "Return a writer function that exports FILE using PROC. PROC is passed two arguments---the input port to read from and the output port |