From 7b88bdca367d10c6c5cd9b1b1137d58b5d9de263 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 8 May 2016 16:03:43 +0900 Subject: [PATCH] disjoint cursor bugs in server-util --- lib/chibi/net/server-util.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/net/server-util.scm b/lib/chibi/net/server-util.scm index bd87cdcf..0d8de8a8 100644 --- a/lib/chibi/net/server-util.scm +++ b/lib/chibi/net/server-util.scm @@ -4,7 +4,7 @@ ((assq 'host headers) => (lambda (x) (let ((s (string-trim (cdr x)))) - (substring-cursor s 0 (string-find s #\:))))) + (substring-cursor s (string-cursor-start s) (string-find s #\:))))) ((uri-host uri)) (else "localhost"))) @@ -59,7 +59,7 @@ ((not (eof-object? line)) (let ((ls (string-split (cond ((string-find line #\#) - => (lambda (i) (substring line 0 i))) + => (lambda (i) (substring-cursor line (string-cursor-start line) i))) (else line))))) (if (and (pair? ls) (pair? (cdr ls))) (for-each