X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=scratchy.scm;fp=scratchy.scm;h=435fe1551aa7d22432743e9ad1b864ca0d31bfc2;hp=6914fb67543b45a3875d64cc63faca6006670f77;hb=ddf946e28add699f4c5b5ffcd2df19f92136f7ff;hpb=3c2370f9bd510b66e06ebbed8f6334d6dbae2e07

diff --git a/scratchy.scm b/scratchy.scm
index 6914fb6..435fe15 100644
--- a/scratchy.scm
+++ b/scratchy.scm
@@ -1,6 +1,6 @@
 ;;; Scratchy gopher server
 ;;
-;; Requires Chicken 5.0.0.
+;; Requires Chicken 5
 ;;
 
 ;;; Imports
@@ -20,7 +20,7 @@
 
 ;;; Global constants
 
-(define scratchy-version "1.2.0")
+(define scratchy-version "1.2.1")
 
 (define scratchy-footer
   (conc "\n"
@@ -121,11 +121,11 @@
          (selector (car selector-list))
          (arguments (cdr selector-list)))
     (if (string-contains selector "|")
-        (let ((l (string-split selector "|")))
+        (let ((l (string-split selector "|" #t)))
           (serve-script (car l) (cdr l) config))
         (case (infer-selector-type selector)
           ((1) (serve-directory-file selector config))
-          ((7) (let ((l (string-split selector "?")))
+          ((7) (let ((l (string-split selector "?" #t)))
                  (serve-script (car l) arguments config)))
           ((0) (serve-text-file selector config))
           ((h) (serve-url selector config))