From 19b888ab32d4eee4deb193853faa9061ca9058ac Mon Sep 17 00:00:00 2001 From: Freja Nordsiek Date: Sat, 17 Jun 2017 01:45:19 +0200 Subject: [PATCH] Fixed get-output-bytevector discarding already written bytes bug. * module/scheme/base.scm (get-output-bytevector): Fixed bug where bytes already written were cleared. --- module/scheme/base.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/module/scheme/base.scm b/module/scheme/base.scm index 97fbc5d..b851be3 100644 --- a/module/scheme/base.scm +++ b/module/scheme/base.scm @@ -390,7 +390,9 @@ (let ((proc (%port-property port 'get-output-bytevector))) (unless proc (error "get-output-bytevector: port not created by open-output-bytevector")) - (proc))) + (let ((out (proc))) + (write-bytevector out port) + out))) (define* (peek-u8 #:optional (port (current-input-port))) (lookahead-u8 port)) -- 2.9.4