From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: Re: guile 2.1.7 skips while condition Date: Mon, 13 Mar 2017 20:49:44 +0100 Message-ID: <87o9x5q7mv.fsf@pobox.com> References: <8760jhfnku.fsf@web.de> <87efy5tmdd.fsf@pobox.com> <87tw6z3h1t.fsf@web.de> <87y3w9drq8.fsf@web.de> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1489434612 25872 195.159.176.226 (13 Mar 2017 19:50:12 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 13 Mar 2017 19:50:12 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) Cc: guile-devel To: Arne Babenhauserheide Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Mar 13 20:50:08 2017 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cnVyn-00062t-N5 for guile-devel@m.gmane.org; Mon, 13 Mar 2017 20:50:05 +0100 Original-Received: from localhost ([::1]:54085 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cnVyt-0008Sb-QM for guile-devel@m.gmane.org; Mon, 13 Mar 2017 15:50:11 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41452) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cnVyk-0008SV-Mg for guile-devel@gnu.org; Mon, 13 Mar 2017 15:50:03 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cnVyh-0007c7-HF for guile-devel@gnu.org; Mon, 13 Mar 2017 15:50:02 -0400 Original-Received: from pb-sasl1.pobox.com ([64.147.108.66]:60553 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cnVyh-0007aG-Dh for guile-devel@gnu.org; Mon, 13 Mar 2017 15:49:59 -0400 Original-Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by pb-sasl1.pobox.com (Postfix) with ESMTP id B27A7670DC; Mon, 13 Mar 2017 15:49:54 -0400 (EDT) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; s=sasl; bh=cWR/sHk1ro8J 9//kNcjkbOlwdkc=; b=Wz8BOeJQp0c/h6NVi+IaoTwh4VlvxXUQ+096kozkTkze dyuIMUZhuEnjww0uByWQDbQj6bDyr8VrHV1dmmZm4z5nLBOTobJbk1on8rPqS4Vs Wt+Pl4JFeYJDBSsEw3wANx78Aj+PE++RXpOnN8ezNN4+6+bgo221RKIlmRGuhho= DomainKey-Signature: a=rsa-sha1; c=nofws; d=pobox.com; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type:content-transfer-encoding; q=dns; s=sasl; b=U+0K1G xrzKwl1MJh60ZmQOi448ua7UPs/SYSl2NcqfW/0g791ZrZkTnGITQl1ve8w3ksjL H1VwKeJfWxd759EUQL5gLLrEkkyLGTUIrNu/W6sffNkWw0pAKGHsdu7TmNW2K/+M AMfdHIU5a2yPbw/dSG2+5+T6pegdP8FnolOV0= Original-Received: from pb-sasl1.nyi.icgroup.com (unknown [127.0.0.1]) by pb-sasl1.pobox.com (Postfix) with ESMTP id AA57E670DB; Mon, 13 Mar 2017 15:49:54 -0400 (EDT) Original-Received: from clucks (unknown [88.160.190.192]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by pb-sasl1.pobox.com (Postfix) with ESMTPSA id 94D00670DA; Mon, 13 Mar 2017 15:49:53 -0400 (EDT) In-Reply-To: <87y3w9drq8.fsf@web.de> (Arne Babenhauserheide's message of "Mon, 13 Mar 2017 18:09:10 +0100") X-Pobox-Relay-ID: 3A711172-0826-11E7-A76A-B667064AB293-02397024!pb-sasl1.pobox.com X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 64.147.108.66 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.21 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.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.org gmane.lisp.guile.devel:19036 Archived-At: On Mon 13 Mar 2017 18:09, Arne Babenhauserheide writes: > Here=E2=80=99s a shortened version: Thanks. Here's a shorter version :) (call-with-input-string "A" (lambda (inport) (let ((nextchar (read-char inport))) (while (not (eof-object? nextchar)) (pk nextchar) (set! nextchar (read-char inport)) (continue))))) Working on a fix. Andy