Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

disjoint cursor bugs in server-util

Browse source
This commit is contained in:
Alex Shinn 2016-05-08 16:03:43 +09:00
parent 90a13333e1
commit 7b88bdca36
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/net/server-util.scm
View file

@ -4,7 +4,7 @@
((assq 'host headers) ((assq 'host headers)
=> (lambda (x) => (lambda (x)
(let ((s (string-trim (cdr 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)) ((uri-host uri))
(else "localhost"))) (else "localhost")))
@ -59,7 +59,7 @@
((not (eof-object? line)) ((not (eof-object? line))
(let ((ls (string-split (let ((ls (string-split
(cond ((string-find line #\#) (cond ((string-find line #\#)
=> (lambda (i) (substring line 0 i))) => (lambda (i) (substring-cursor line (string-cursor-start line) i)))
(else line))))) (else line)))))
(if (and (pair? ls) (pair? (cdr ls))) (if (and (pair? ls) (pair? (cdr ls)))
(for-each (for-each