From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Kastrup Newsgroups: gmane.lisp.guile.bugs Subject: bug#20302: peek-char messes up file position on binary string ports Date: Sat, 11 Apr 2015 13:48:14 +0200 Message-ID: <87y4lylwch.fsf@fencepost.gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1428752954 21965 80.91.229.3 (11 Apr 2015 11:49:14 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 11 Apr 2015 11:49:14 +0000 (UTC) To: 20302@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Apr 11 13:49:08 2015 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YgtuO-0003Oe-2i for guile-bugs@m.gmane.org; Sat, 11 Apr 2015 13:49:08 +0200 Original-Received: from localhost ([::1]:42380 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgtuN-0001rQ-Ct for guile-bugs@m.gmane.org; Sat, 11 Apr 2015 07:49:07 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52173) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgtuJ-0001r9-OK for bug-guile@gnu.org; Sat, 11 Apr 2015 07:49:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YgtuI-0005JO-VJ for bug-guile@gnu.org; Sat, 11 Apr 2015 07:49:03 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:34931) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgtuI-0005I9-Sm for bug-guile@gnu.org; Sat, 11 Apr 2015 07:49:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1YgtuI-0003uc-JJ for bug-guile@gnu.org; Sat, 11 Apr 2015 07:49:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: David Kastrup Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sat, 11 Apr 2015 11:49:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 20302 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.142875290514957 (code B ref -1); Sat, 11 Apr 2015 11:49:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 11 Apr 2015 11:48:25 +0000 Original-Received: from localhost ([127.0.0.1]:52940 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Ygttg-0003t9-Ng for submit@debbugs.gnu.org; Sat, 11 Apr 2015 07:48:24 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:38590) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Ygtte-0003sp-NI for submit@debbugs.gnu.org; Sat, 11 Apr 2015 07:48:23 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YgttY-0003kp-Ng for submit@debbugs.gnu.org; Sat, 11 Apr 2015 07:48:17 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:60290) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgttY-0003kf-Km for submit@debbugs.gnu.org; Sat, 11 Apr 2015 07:48:16 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:52097) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgttX-0001qp-SH for bug-guile@gnu.org; Sat, 11 Apr 2015 07:48:16 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YgttX-0003hl-5T for bug-guile@gnu.org; Sat, 11 Apr 2015 07:48:15 -0400 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:38108) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgttX-0003hI-1h for bug-guile@gnu.org; Sat, 11 Apr 2015 07:48:15 -0400 Original-Received: from localhost ([127.0.0.1]:54269 helo=lola) by fencepost.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YgttW-0003KQ-IR for bug-guile@gnu.org; Sat, 11 Apr 2015 07:48:14 -0400 Original-Received: by lola (Postfix, from userid 1000) id 144DDE0645; Sat, 11 Apr 2015 13:48:14 +0200 (CEST) X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7766 Archived-At: --=-=-= Content-Type: text/plain Any idea how to work around _this_ one? --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=gaga.scm (use-modules (rnrs bytevectors) (rnrs io ports)) (let ((port (open-bytevector-input-port (string->utf8 "Blablabla\nBlablabla\n")))) (seek port 13 SEEK_SET) (format #t "~c ~d\n" (peek-char port) (ftell port))) ;; Outputs b 3 but should output b 13 --=-=-= Content-Type: text/plain This is using guile (GNU Guile) 2.0.11 Packaged by Debian (2.0.11-deb+1-1) -- David Kastrup --=-=-=--