From b2de97dbe50c89cc78b8a74a8b2c886e71c94c16 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Fri, 26 Nov 2010 00:15:18 +0000 Subject: [PATCH 4/4] Fix read-headers so that it returns the read headers --- source/server-utils/modlisp.scm | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/source/server-utils/modlisp.scm b/source/server-utils/modlisp.scm index 9f0ffb0..af30316 100644 --- a/source/server-utils/modlisp.scm +++ b/source/server-utils/modlisp.scm @@ -38,9 +38,10 @@ (let loop ((acc '())) (let ((k (read-line port))) (if (string=? "end" k) - (set! (stashed port) - ;; rv - (reverse! acc)) + (begin (set! (stashed port) + ;; rv + (reverse! acc)) + (stashed port)) (loop (acons k (read-line port) acc))))))) (define (read-first-line port) -- 1.7.2.3