Re: sisc-1.10.0-alpha bug report

> > 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