guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 10/23: EOF fix for continuation-line?


From: Andy Wingo
Subject: [Guile-commits] 10/23: EOF fix for continuation-line?
Date: Thu, 24 Mar 2016 14:26:04 +0000

wingo pushed a commit to branch wip-ethreads
in repository guile.

commit 1f37d0a2e71e8b3bc2d2de17e8b2402d84a1a5ae
Author: Andy Wingo <address@hidden>
Date:   Sun Mar 25 22:21:48 2012 +0200

    EOF fix for continuation-line?
    
    * module/web/server/ethreads.scm (continuation-line?): Fix for EOF.
---
 module/web/server/ethreads.scm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/module/web/server/ethreads.scm b/module/web/server/ethreads.scm
index 77706bd..e8aeaf2 100644
--- a/module/web/server/ethreads.scm
+++ b/module/web/server/ethreads.scm
@@ -91,9 +91,9 @@
         (utf8->string bv))))))
 
 (define (continuation-line? port)
-  (case (integer->char (lookahead-u8 port))
-    ((#\space #\tab) #t)
-    (else #f)))
+  (let ((c (lookahead-u8 port)))
+    (or (eqv? c (char->integer #\space))
+        (eqv? c (char->integer #\tab)))))
 
 ;; Read a request from this port.
 (define (read-request client)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]