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

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/04/09 06:23:48

  Modified:    .        auto-place-attribs.scm
  Log:
  Applied patch from Steve Brown. It fixes bug 1463066. Thanks for the patch.
  
  
  
  
  Revision  Changes    Path
  1.2       +4 -4      eda/geda/devel/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/devel/gschem/scheme/auto-place-attribs.scm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -b -r1.1 -r1.2
  --- auto-place-attribs.scm	25 Feb 2006 15:01:00 -0000	1.1
  +++ auto-place-attribs.scm	9 Apr 2006 10:23:48 -0000	1.2
  @@ -62,8 +62,8 @@
   	  (horiz-pos (if (string=? horiz-string "Left") 
   			 (min (car horiz-bounds) (cdr horiz-bounds))
   			 (if (string=? horiz-string "Middle")
  -			     (/ (+ (car horiz-bounds)
  -				   (cdr horiz-bounds)) 2)
  +			     (inexact->exact (/ (+ (car horiz-bounds)
  +						   (cdr horiz-bounds)) 2))
   			     (if (string=? horiz-string "Right")
   				 (max (car horiz-bounds) (cdr horiz-bounds))
   				 (error (string-append 
  @@ -72,8 +72,8 @@
   	  (vertical-pos (if (string=? vertical-string "Lower") 
   			    (min (car vertical-bounds) (cdr vertical-bounds))
   			    (if (string=? vertical-string "Middle")
  -				(/ (+ (car vertical-bounds)
  -				      (cdr vertical-bounds)) 2)
  +				(inexact->exact (/ (+ (car vertical-bounds)
  +						      (cdr vertical-bounds)) 2))
   				(if (string=? vertical-string "Upper")
   				    (max (car vertical-bounds) 
   					 (cdr vertical-bounds))