From ddf946e28add699f4c5b5ffcd2df19f92136f7ff Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 3 Aug 2019 12:14:25 +0200 Subject: [PATCH] Modified script argument behaviour. --- scratchy.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.20.1