From f206d95c5be214fff0f30d15a794b40d3dee2577 Mon Sep 17 00:00:00 2001 From: NalaGinrut Date: Wed, 7 Mar 2012 20:05:38 +0800 Subject: [PATCH 1/2] add an option to let read-delimited return false while delimiter missing --- module/ice-9/rdelim.scm | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/module/ice-9/rdelim.scm b/module/ice-9/rdelim.scm index c6ab2ba..9ab52b8 100644 --- a/module/ice-9/rdelim.scm +++ b/module/ice-9/rdelim.scm @@ -74,6 +74,7 @@ ((concat) (string-set! buf (+ nchars start) terminator) (+ nchars 1)) ((split) (cons nchars terminator)) + ((fail) (if (eof-object? terminator) #f nchars)) (else (error "unexpected handle-delim value: " handle-delim))))))) @@ -111,6 +112,7 @@ (string-append joined (string terminator)))) ((trim peek) joined) ((split) (cons joined terminator)) + ((fail) (if (eof-object? terminator) #f joined)) (else (error "unexpected handle-delim value: " handle-delim))))))))) -- 1.7.0.4