[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-bug: [ geda-Patches-1453908 ] gnet-PCB patch
Patches item #1453908, was opened at 2006-03-19 17:47
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=818428&aid=1453908&group_id=161080
Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Carlos Nieves Onega (cnieves)
Assigned to: Nobody/Anonymous (nobody)
Summary: gnet-PCB patch
Initial Comment:
Mail from Thien-Thi Nguyen to the geda-dev mailing list
(Sat, 04 Mar 2006 01:11:33 +0100):
greetings gEDA hackers,
please find below a small patch to
geda/devel/gnetlist/scheme/gnet-PCB.scm
in the factoring spirit (i.e., using available
abstractions). i
hope it is tiny and meritous enough to be applied w/o
paperwork.
it can be made even tinier by moving the `use-modules'
to some
central place.
thi
_____________________________
--- gnet-PCB.scm 3 Feb 2005 12:49:36 -0000 1.7
+++ gnet-PCB.scm 3 Mar 2006 23:57:53 -0000
@@ -22,10 +22,6 @@
+(use-modules (ice-9 format))
+
(define (PCB:display-connections nets)
- (let ((k ""))
- (for-each (lambda (in-string)
- (set! k (string-append k in-string)))
- (map (lambda (net)
- (string-append (car net) "-" (car
(cdr net)) " "))
- nets))
- (string-append k "\n")))
+ (apply format #f "~:@{~A-~A ~}\n" nets))
----------------------------------------------------------------------
You can respond by visiting:
https://sourceforge.net/tracker/?func=detail&atid=818428&aid=1453908&group_id=161080
_______________________________________________
geda-bug mailing list
geda-bug@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-bug