From: Kevin Ryde <user42@zip.com.au>
Subject: Re: while break and continue
Date: Sun, 22 Jun 2003 09:28:26 +1000 [thread overview]
Message-ID: <87fzm3m2n9.fsf@zip.com.au> (raw)
In-Reply-To: <87n0gf0zbc.fsf@zagadka.ping.de> (Marius Vollmer's message of "19 Jun 2003 00:56:55 +0200")
Marius Vollmer <mvo@zagadka.de> writes:
>
> Discourage the use of 'while' or merely 'continue' and 'break'?
Oh, well, continue and break I guess.
> I
> think, pointing in the docs of 'while' to 'do' and the other ways of
> doing loops in Scheme would be good.
Might have a go at more in the introductory para of the "while do"
node.
> I think the value of a while loop is ill-specified anyway and we
> should always return unspecified. What should be returned when the
> condition becomes false? Your macro arranges to return #t, wich seems
> arbitrary.
I think I return unspecified, since there's no final value expr in the
"do" loop. I'll make sure that's the case though.
> People who want their loop to return a specific value
> should use 'do', named 'let', or some other mechanism, I'd say.
As long as no-one has peeked at boot-9.scm and used break with a
value. Would seem unlikely, but could perhaps make it optional, for
maximum compatibility.
I suppose a radical alternative would be to drop break and continue
completely, having never been documented (and continue not really
working).
I simplified my code, per below. The theory is to have only one
catch, for efficiency, and to have an inner "do" loop so that if break
and continue are not used then the catch isn't re-established on each
iteration.
(define-macro (while cond . body)
(let ((key (make-symbol "while-key")))
`(do ((break (lambda () (throw ',key #t)))
(continue (lambda () (throw ',key #f))))
((catch ',key
(lambda ()
(do ()
((not ,cond))
,@body)
#t)
(lambda (key arg) arg))))))
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel
next prev parent reply other threads:[~2003-06-21 23:28 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-05-30 0:00 while break and continue Kevin Ryde
2003-06-01 23:58 ` Marius Vollmer
2003-06-05 1:42 ` Kevin Ryde
2003-06-18 22:56 ` Marius Vollmer
2003-06-21 23:28 ` Kevin Ryde [this message]
2003-07-27 14:48 ` Marius Vollmer
2003-07-29 0:23 ` Kevin Ryde
2003-08-13 21:49 ` Kevin Ryde
2003-08-13 9:27 ` Matthias Koeppe
2003-08-14 23:35 ` Kevin Ryde
2003-08-15 1:43 ` Kevin Ryde
2003-06-06 22:31 ` Kevin Ryde
2003-06-18 22:57 ` Marius Vollmer
2003-06-20 23:56 ` Kevin Ryde
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87fzm3m2n9.fsf@zip.com.au \
--to=user42@zip.com.au \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).