> > I think, it would be a good thing to make this script idempotent.
>
> Quite a few things loaded during the heap build can only be loaded
> during that phase. Making them all idempotent would be tedious and in
> some cases hard.
Hm, how about a very simple solution along the following lines:
=== bla.scm ===
(if (not (member 'bla *features*))
(begin
(define *features* (cons 'bla *features*))
(display "BLA!\n")
(define (bla x)
(cons x x))
))
===============
tf@ouija:/tmp$ guile
guile> (define *features* '())
guile> (load "bla.scm")
BLA!
guile> (load "bla.scm")
> >>The second error is a bug in the test. I fixed it but there are a few
> >>more errors after that which I need to work through.
> >
> >
> > Is it already in the CVS?
>
> It is now, but as I said above there are some other problems further
> downstream.
Ok. Thanks.
-------------------------------------------------------
This SF.Net email is sponsored by: IntelliVIEW -- Interactive Reporting
Tool for open source databases. Create drag-&-drop reports. Save time
by over 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
Download a FREE copy at http://www.intelliview.com/go/osdn_nl
|
