[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: gEDA-dev: gnetlist vs guile 1.8

El lun, 22-01-2007 a las 09:47 -0800, Dean Ferreyra escribió:
> Stuart Brorson wrote:
> > I fixed spice-sdb several days ago.  It works now with guile-1.8.  My
> > biggest headache is gnet-drc2.scm, which dies with a different error:
> > 
> > ERROR: In procedure memoization:
> > ERROR: Mixed definitions and expressions in (begin (define
> > check-slots-loop (lambda (slots_list) (if (not (null? slots_list))
> > (let ((this_slot #)) (if (integer? this_slot) (if # #))
> > (check-slots-loop (cdr slots_list)))))) (if (string-ci=? slot_string
> > "unknown") (begin (if (or (string-ci=? numslots_string "unknown") (=
> > numslots 0)) (begin (display "")) (begin (if (integer? numslots)
> > (begin # # #) (begin # # #))))) (begin (if (integer? slot) (if
> > (integer? numslots) (check-slots-loop (gnetlist:get-unique-slots
> > uref)) (begin (display # port) (newline port) (set! errors_number #)))
> > (begin (display (string-append "ERROR: Reference " uref ": Incorrect
> > value of slot attribute " slot_string ".") port) (newline port) (set!
> > errors_number (+ errors_number 1))))))).
> > 
> > This has nothing to do with the ice-9 package.  It may be syntax which
> > Guile used to accept, but now doesn't.  :-(
> 
> The expression guile is complaining about would only work at the top
> level.  If it isn't at the top level, then replacing that first (begin
> ...) with (let () ...) should work.  Except for top-level begins, I
> think defines are only allowed at the beginning of lexical scopes.

Fixed in CVS now. Thanks for the suggestion.

Carlos



_______________________________________________
geda-dev mailing list
geda-dev@moria.seul.org
http://www.seul.org/cgi-bin/mailman/listinfo/geda-dev