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

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 07/02/10 05:31:32

  Modified:    .        auto-place-attribs.scm
  Log:
  * scheme/auto-place-attribs.scm: Check if the list is empty before
  
    calling to stable-sort. It is an error for guile versions >= 1.8.
  
    Thanks to DJ for reporting this.
  
  
  
  
  Revision  Changes    Path
  1.5       +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.5
  diff -u -b -r1.4 -r1.5
  --- auto-place-attribs.scm	13 Dec 2006 21:24:02 -0000	1.4
  +++ auto-place-attribs.scm	10 Feb 2007 10:31:31 -0000	1.5
  @@ -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