From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andrew Whatson Newsgroups: gmane.lisp.guile.devel Subject: [PATCH 2/2] Fix suspendable implementation of 'get-bytevector-some!' Date: Fri, 22 Jan 2021 20:10:10 +1000 Message-ID: <20210122101010.938743-2-whatson@gmail.com> References: <20210122101010.938743-1-whatson@gmail.com> Mime-Version: 1.0 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="15702"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Andrew Whatson To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Fri Jan 22 15:12:52 2021 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1l2xBE-0003zn-GT for guile-devel@m.gmane-mx.org; Fri, 22 Jan 2021 15:12:52 +0100 Original-Received: from localhost ([::1]:45636 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l2xBD-0006qd-FM for guile-devel@m.gmane-mx.org; Fri, 22 Jan 2021 09:12:51 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:48066) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l2tOw-00024S-LJ for guile-devel@gnu.org; Fri, 22 Jan 2021 05:10:46 -0500 Original-Received: from mail-pl1-x633.google.com ([2607:f8b0:4864:20::633]:36037) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1l2tOt-0007ht-MY for guile-devel@gnu.org; Fri, 22 Jan 2021 05:10:46 -0500 Original-Received: by mail-pl1-x633.google.com with SMTP id e9so2933786plh.3 for ; Fri, 22 Jan 2021 02:10:43 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=GWZoCsremVQrnG0UPyOgZybgEFJjec9CKoo/rmL5mI4=; b=OVJ+ADS53I8brqqZ551jh5C7PhowU9DwA4SmYt6C2MAxMGDZpZhwQYk46FqOxrmAAJ FCgutWlLC4TP0I0SXzeTRfAEYNi847Re0STPPDsBVM5MG+fTfBLvH/G7a6lrVSQrWNzE xZU8+wYMr7i2em+Q5XciMCSso1nXcISgEfPVxZgYBKj4RfPSeSDwmmg/3i33sBC/pRWW wh8DZBd2fcZed0UmqWqLqbqbEIRN/TmlA5iQySO1JjAsgY02qicd0sfCj6rBxdZ1nu9I eIzXf2fbr0zIvtXYNB4wy5hhlpUMZJjhVV6yRfagitNt/hEaXimj18LyhLNnWqLVRejA GbQA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=GWZoCsremVQrnG0UPyOgZybgEFJjec9CKoo/rmL5mI4=; b=NhniaynReuK9f+mRZBWSqE3i8wS76PJ/KWyGSHB71ZVZcfBYbj3+SQ9ICDLJoKaj0Y 8AW7WCy5FXO8PgqSIHToij4JO3ICCNTqFiMWSZaKr92DWcQjehVDTxu1QBFgeNPpz9dp EpzW2I/LO18YNBwYd17uhzZMBZXpHQYdVHnD+70sPjVYiPoyFqTumfBw3RlUrUvdaihO LQhmcsh2g5rrEdkn/RVT8G78NmZAQgo6KC8KCl7W6Zq64GxeepchN1jQmPTNEI3rk6GT B0p54pui3Tm3dGYJqZ/uGsqB6X8l/2EZuOVDbTEBtEMwOELGjdVRFSP4beKr4JFAshc/ SJ5w== X-Gm-Message-State: AOAM530d8xrjyt52hvjEOoIwR+dOaswX1jIGo9BMTf6WoJPyAN74PBdu uzBtECSBF7Ks3grLJLlDTS57vtP9hu8= X-Google-Smtp-Source: ABdhPJxTEYXphN3mxF6LySWy239xcyMm1UH0QHJchiNtRjGkG8A0vy6bmg/59wQw78Hs3y/R6hkUGQ== X-Received: by 2002:a17:902:7b96:b029:de:7ae6:b8db with SMTP id w22-20020a1709027b96b02900de7ae6b8dbmr4232996pll.0.1611310242103; Fri, 22 Jan 2021 02:10:42 -0800 (PST) Original-Received: from muon.localdomain ([210.185.78.208]) by smtp.gmail.com with ESMTPSA id s2sm8328962pfd.203.2021.01.22.02.10.40 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 22 Jan 2021 02:10:41 -0800 (PST) X-Mailer: git-send-email 2.30.0 In-Reply-To: <20210122101010.938743-1-whatson@gmail.com> Received-SPF: pass client-ip=2607:f8b0:4864:20::633; envelope-from=whatson@gmail.com; helo=mail-pl1-x633.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Fri, 22 Jan 2021 09:11:58 -0500 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:20644 Archived-At: * module/ice-9/suspendable-ports.scm (get-bytevector-some!): Fix incorrect arguments to bytevector-copy! --- module/ice-9/suspendable-ports.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/ice-9/suspendable-ports.scm b/module/ice-9/suspendable-ports.scm index f5f005cca..a823f1d37 100644 --- a/module/ice-9/suspendable-ports.scm +++ b/module/ice-9/suspendable-ports.scm @@ -338,7 +338,7 @@ the-eof-object) (let ((transfer-size (min count buffered))) (bytevector-copy! (port-buffer-bytevector buf) cur - transfer-size start buffered) + bv start transfer-size) (set-port-buffer-cur! buf (+ cur transfer-size)) transfer-size)))))) -- 2.30.0