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

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 07/04/14 15:18:26

  Modified:    .        auto-place-attribs.scm
  Log:
  Use ceiling instead of inexact->exact.
  
  * scheme/auto-place-attribs.scm:
  
      - Use ceiling instead of inexact->exact. 
  
  
  
  
  Revision  Changes    Path
  1.8       +4 -4      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.7
  retrieving revision 1.8
  diff -u -b -r1.7 -r1.8
  --- auto-place-attribs.scm	14 Apr 2007 18:23:18 -0000	1.7
  +++ auto-place-attribs.scm	14 Apr 2007 19:18:26 -0000	1.8
  @@ -572,7 +572,7 @@
   	  (horiz-pos (if (string=? horiz-string "Left") 
   			 (min (car horiz-bounds) (cdr horiz-bounds))
   			 (if (string=? horiz-string "Middle")
  -			     (inexact->exact (/ (+ (car horiz-bounds)
  +			     (ceiling (/ (+ (car horiz-bounds)
   						   (cdr horiz-bounds)) 2))
   			     (if (string=? horiz-string "Right")
   				 (max (car horiz-bounds) (cdr horiz-bounds))
  @@ -582,7 +582,7 @@
   	  (vertical-pos (if (string=? vertical-string "Lower") 
   			    (min (car vertical-bounds) (cdr vertical-bounds))
   			    (if (string=? vertical-string "Middle")
  -				(inexact->exact (/ (+ (car vertical-bounds)
  +				(ceiling (/ (+ (car vertical-bounds)
   						      (cdr vertical-bounds)) 2))
   				(if (string=? vertical-string "Upper")
   				    (max (car vertical-bounds) 
  
  
  


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