gEDA-cvs: CVS update: gnet-PCB.scm

[cvspsrv@xxxxxxxx]

  User: ahvezda 
  Date: 06/10/20 22:43:50

  Modified:    .        gnet-PCB.scm
  Log:
  Bumped version number and applied patch to cleanup scheme backend. 
  
  
  
  
  Revision  Changes    Path
  1.8       +5 -8      eda/geda/gaf/gnetlist/scheme/gnet-PCB.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-PCB.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-PCB.scm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -b -r1.7 -r1.8
  --- gnet-PCB.scm	3 Feb 2005 12:49:36 -0000	1.7
  +++ gnet-PCB.scm	21 Oct 2006 02:43:50 -0000	1.8
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-PCB.scm,v 1.7 2005/02/03 12:49:36 danmc Exp $
  +;;; $Id: gnet-PCB.scm,v 1.8 2006/10/21 02:43:50 ahvezda Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -20,14 +20,11 @@
   
   ;;  PCB format
   
  +(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))
   
   
   ; This function is replaced with the above one. Due to non existent
  
  
  


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