[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-cvs: CVS update: gnet-drc2.scm
User: cnieves
Date: 07/02/10 07:34:40
Modified: . gnet-drc2.scm
Log:
* scheme/gnet-drc2.scm: Changed a (begin) to a (let ()) due to
guile 1.8 problems. Thanks to Stuart Brorson por reporting, and
Dean Ferreyra for pointing out the fix.
Revision Changes Path
1.15 +1 -1 eda/geda/gaf/gnetlist/scheme/gnet-drc2.scm
(In the diff below, changes in quantity of whitespace are not shown.)
Index: gnet-drc2.scm
===================================================================
RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-drc2.scm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- gnet-drc2.scm 3 Sep 2006 18:53:09 -0000 1.14
+++ gnet-drc2.scm 10 Feb 2007 12:34:40 -0000 1.15
@@ -432,7 +432,7 @@
(slot_string (gnetlist:get-package-attribute uref "slot"))
(slot (string->number slot_string))
)
- (begin
+ (let ()
(define check-slots-loop
(lambda (slots_list)
(if (not (null? slots_list))
_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs