[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-cvs: CVS update: gnet-bom.scm
User: sdb
Date: 07/01/22 12:18:16
Modified: . gnet-bom.scm gnet-bom2.scm
Log:
Added (use-modules (ice-9 rdelim)) to fix guile-1.8 problem.
Revision Changes Path
1.11 +3 -1 eda/geda/gaf/gnetlist/scheme/gnet-bom.scm
(In the diff below, changes in quantity of whitespace are not shown.)
Index: gnet-bom.scm
===================================================================
RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-bom.scm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- gnet-bom.scm 16 Feb 2005 18:43:55 -0000 1.10
+++ gnet-bom.scm 22 Jan 2007 17:18:16 -0000 1.11
@@ -1,4 +1,4 @@
-;;; $Id: gnet-bom.scm,v 1.10 2005/02/16 18:43:55 cnieves Exp $
+;;; $Id: gnet-bom.scm,v 1.11 2007/01/22 17:18:16 sdb Exp $
;;;
;;; gEDA - GNU Electronic Design Automation
;;; gnetlist - GNU Netlist
@@ -31,6 +31,8 @@
;;; Questions? Contact matt@xxxxxxxxx
;;; This software is released under the terms of the GNU GPL
+(use-modules (ice-9 rdelim)) ;; guile-1.8 fix
+
(define bom
(lambda (output-filename)
(let ((port (if (string=? "-" output-filename)
1.9 +3 -1 eda/geda/gaf/gnetlist/scheme/gnet-bom2.scm
(In the diff below, changes in quantity of whitespace are not shown.)
Index: gnet-bom2.scm
===================================================================
RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-bom2.scm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- gnet-bom2.scm 16 Feb 2005 18:43:55 -0000 1.8
+++ gnet-bom2.scm 22 Jan 2007 17:18:16 -0000 1.9
@@ -1,4 +1,4 @@
-;;; $Id: gnet-bom2.scm,v 1.8 2005/02/16 18:43:55 cnieves Exp $
+;;; $Id: gnet-bom2.scm,v 1.9 2007/01/22 17:18:16 sdb Exp $
;;;
;;; gEDA - GNU Electronic Design Automation
;;; gnetlist - GNU Netlist
@@ -31,6 +31,8 @@
;;; Questions? Contact matt@xxxxxxxxx
;;; This software is released under the terms of the GNU GPL
+(use-modules (ice-9 rdelim)) ;; guile-1.8 fix
+
(define bom2
(lambda (output-filename)
(let ((port (if (string=? "-" output-filename)
_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs