From e3306d806341dff899f603197fc9fafc90b0a3d7 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 19 Jul 1999 08:11:19 +0000 Subject: [PATCH] * boot-9.scm (read-delimited!): Put the terminator in the correct position. --- ice-9/boot-9.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 3cf1475de..6e5f154db 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -204,7 +204,7 @@ (else (case handle-delim ((trim peek) nchars) - ((concat) (string-set! buf nchars terminator) + ((concat) (string-set! buf (+ nchars start) terminator) (+ nchars 1)) ((split) (cons nchars terminator)) (else (error "unexpected handle-delim value: "