diff options
| author | Peter Bex <peter@more-magic.net> | 2024-09-12 15:41:24 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2024-09-12 15:41:24 +0200 |
| commit | 072f058ff66ee8e2e7865307040ab5e9c8c75b48 (patch) | |
| tree | bce4601125812fe219152ce29a466748876184bb /simple-directory-handler.scm | |
| parent | 0f6fd2e7ceafb51971ca4d90583d68637ddecc4a (diff) | |
| download | spiffy-072f058ff66ee8e2e7865307040ab5e9c8c75b48.tar.gz | |
Add support for CHICKEN 66.4
This is backwards-compatible - there are only a handful of changes
needed, so we don't have to make a hard break here.
Diffstat (limited to 'simple-directory-handler.scm')
| -rw-r--r-- | simple-directory-handler.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/simple-directory-handler.scm b/simple-directory-handler.scm index 4d722c6..47dbea9 100644 --- a/simple-directory-handler.scm +++ b/simple-directory-handler.scm @@ -40,6 +40,10 @@ intarweb spiffy (only uri-common uri-encode-string char-set:uri-unreserved) (only srfi-14 char-set-complement char-set-delete)) +(cond-expand + (chicken-6 (import (scheme base))) ; For make-parameter, which moved from (chicken base) + (else)) + (define (encode-path p) (let ((cs (char-set-delete (char-set-complement char-set:uri-unreserved) #\/))) (uri-encode-string p cs))) |