mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

* boot-9.scm (read-delimited!): Put the terminator in the correct

Browse source 
position.
This commit is contained in:
Jim Blandy 1999-07-19 08:11:19 +00:00
parent 5bc1201f2d
commit e3306d8063
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/boot-9.scm
View file

@ -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: "