From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.devel Subject: Queries about while doc and (ice-9 command-line) Date: Thu, 28 Apr 2011 19:12:44 +0100 Message-ID: <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 1304014375 22248 80.91.229.12 (28 Apr 2011 18:12:55 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 28 Apr 2011 18:12:55 +0000 (UTC) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Apr 28 20:12:51 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 1QFVhq-0004k5-S7 for guile-devel@m.gmane.org; Thu, 28 Apr 2011 20:12:51 +0200 Original-Received: from localhost ([::1]:41117 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFVhq-00014N-2G for guile-devel@m.gmane.org; Thu, 28 Apr 2011 14:12:50 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:35665) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFVhn-000146-OE for guile-devel@gnu.org; Thu, 28 Apr 2011 14:12:48 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QFVhm-0003Wr-P1 for guile-devel@gnu.org; Thu, 28 Apr 2011 14:12:47 -0400 Original-Received: from mail3.uklinux.net ([80.84.72.33]:57530) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFVhm-0003Vl-Dh for guile-devel@gnu.org; Thu, 28 Apr 2011 14:12:46 -0400 Original-Received: from arudy (unknown [78.149.123.65]) by mail3.uklinux.net (Postfix) with ESMTP id 4D36B1F663C for ; Thu, 28 Apr 2011 19:12:44 +0100 (BST) Original-Received: from neil-laptop (unknown [192.168.11.9]) by arudy (Postfix) with ESMTP id D65CF3801E for ; Thu, 28 Apr 2011 19:12:43 +0100 (BST) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4-2.6 X-Received-From: 80.84.72.33 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:12373 Archived-At: Hi there, I was looking today at some recent commits, and noticed a few queries... In http://git.savannah.gnu.org/cgit/guile.git/commit/?h=stable-2.0&id=91956a94fe6363cf69d574b56397962ec6ef4468: +@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. In http://git.savannah.gnu.org/cgit/guile.git/tree/module/ice-9/command-line.scm?h=stable-2.0&id=90779ad9a1d8b2533ad8495753677aebf5626571: (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? 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. ;; Handle the `-e' switch, if it was specified. ,@(if entry-point `((,entry-point (command-line))) '()) Do we go interactive after seeing a -e option? I don't see a setting of the interactive? variable that would prevent this? Regards, Neil