From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: Re: Queries about while doc and (ice-9 command-line) Date: Thu, 28 Apr 2011 21:47:40 +0200 Message-ID: References: <877haemehv.fsf@ossau.uklinux.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1304020084 24289 80.91.229.12 (28 Apr 2011 19:48:04 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 28 Apr 2011 19:48:04 +0000 (UTC) Cc: guile-devel@gnu.org To: Neil Jerram Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Apr 28 21:47:57 2011 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QFXBn-0004NH-Lj for guile-devel@m.gmane.org; Thu, 28 Apr 2011 21:47:51 +0200 Original-Received: from localhost ([::1]:35894 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFXBm-0002At-UQ for guile-devel@m.gmane.org; Thu, 28 Apr 2011 15:47:50 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:57672) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFXBk-0002Am-KY for guile-devel@gnu.org; Thu, 28 Apr 2011 15:47:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QFXBj-0005K7-KS for guile-devel@gnu.org; Thu, 28 Apr 2011 15:47:48 -0400 Original-Received: from a-pb-sasl-sd.pobox.com ([64.74.157.62]:40149 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFXBj-0005K3-I3 for guile-devel@gnu.org; Thu, 28 Apr 2011 15:47:47 -0400 Original-Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id D912C4AE8; Thu, 28 Apr 2011 15:49:49 -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; s=sasl; bh=j1AqDmbowO4wF53Y4if6KWe7olo=; b=KoRp2c qclBXDgTvQfB+6VhYjsaFQGgzpmMoDejz5EdZRffmqGl9O12GQd+jMsdm8N/UynE g4NO/1CTwBCkP7qDb7u7N166lrPR+snGnlljTZGtmZhhDn8eFvfMFZ/APhm7xtcE P9H2YG/f9RyzXLbY+RBWxgCjRU0C30nrW7ZMQ= 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; q=dns; s=sasl; b=guZxbw6kTIhq3xuf9HLxhn4fg/9BJwCQ fxzx7o5BRM3+y+IqTuUSUJc7X5ZAZdCAP746sXrZBeu8e9BNDjinfWhd6cM14IKm Oxc87XOpOAbtrYdq4ds4qyCZBGmqcdd4QhIcBygwxfi4UK/LgkNu/dUsO85pZTi+ BK57iSG6ELY= Original-Received: from a-pb-sasl-sd.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTP id C572E4AE4; Thu, 28 Apr 2011 15:49:47 -0400 (EDT) Original-Received: from unquote.localdomain (unknown [90.164.198.39]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-pb-sasl-sd.pobox.com (Postfix) with ESMTPSA id 15C484ADF; Thu, 28 Apr 2011 15:49:45 -0400 (EDT) In-Reply-To: <877haemehv.fsf@ossau.uklinux.net> (Neil Jerram's message of "Thu, 28 Apr 2011 19:12:44 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) X-Pobox-Relay-ID: AC304F5A-71D0-11E0-865B-E8AB60295C12-02397024!a-pb-sasl-sd.pobox.com X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta) X-Received-From: 64.74.157.62 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 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-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:12376 Archived-At: Hi Neil, Thanks for the review! On Thu 28 Apr 2011 20:12, Neil Jerram writes: > +@example > +(while #f (error "not reached")) @result{} #f > +(while #t (break)) @result{} #t > +(while #f (break 1 2 3)) @result{} 1 2 3 > +@end example > > I think the #f in the last while line should be #t. Indeed, fixed. > (if (pair? do-script) > (set-car! do-script arg)) > (set! arg0 arg) > (set! interactive? #f) > (finish args > (cons `(load ,arg) out))) > > Does this code mean that we load the script twice, in the -ds case? I think so, yes; unfortunately. Fixed. Would this merit a quick 2.0.2, you think? > > If that's right, I believe the -s block has the same issue. > > ((string=? arg "-x") ; add to %load-extensions > (if (null? args) > (error "missing argument to `-L' switch")) > (set! user-extensions (cons (car args) user-extensions)) > (parse (cdr args) > out)) > > In the error message here, -L should be -x. Fixed also. > Do we go interactive after seeing a -e option? I don't see a setting of > the interactive? variable that would prevent this? This appears to be the old behavior. Am I mistaken? Thanks, Andy -- http://wingolog.org/