gEDA-cvs: CVS update: auto-place-attribs.scm

[cvspsrv@xxxxxxxx]

  User: pcjc2   
  Date: 07/02/11 18:58:55

  Modified:    .        Tag: noscreen auto-place-attribs.scm
  Log:
  Sync with trunc
  
  
  
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.4.2.1   +6 -2      eda/geda/gaf/gschem/scheme/auto-place-attribs.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: auto-place-attribs.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/scheme/auto-place-attribs.scm,v
  retrieving revision 1.4
  retrieving revision 1.4.2.1
  diff -u -b -r1.4 -r1.4.2.1
  --- auto-place-attribs.scm	13 Dec 2006 21:24:02 -0000	1.4
  +++ auto-place-attribs.scm	11 Feb 2007 23:58:54 -0000	1.4.2.1
  @@ -132,9 +132,13 @@
      (lambda (object desired_side)
        (let* ( (pins (get-object-pins object))
    	     (pins-beginning (get-bound-of-pins desired_side "B" pins))
  - 	     (pins-beginning-sorted (stable-sort pins-beginning <))
  + 	     (pins-beginning-sorted (if (eq? (length pins-beginning) 0)
  +					(list)
  +					(stable-sort pins-beginning <)))
    	     (pins-end (get-bound-of-pins desired_side "E" pins))
  - 	     (pins-end-sorted (stable-sort pins-end <))	     
  + 	     (pins-end-sorted (if (eq? (length pins-end) 0)
  +				  (list)
  +				  (stable-sort pins-end <)))
   	     )
          (begin
   	 (if (or (eq? (length pins-beginning-sorted) 0)
  
  
  


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