mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Add exact->inexact in plots for Guile 1.8 to print parsable doubles.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16152 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
d4439dc3e4
commit
b253df6c8a
@ -266,7 +266,7 @@
|
|||||||
(define (gnc:html-barchart-render barchart doc)
|
(define (gnc:html-barchart-render barchart doc)
|
||||||
(define (ensure-numeric elt)
|
(define (ensure-numeric elt)
|
||||||
(cond ((number? elt)
|
(cond ((number? elt)
|
||||||
elt)
|
(exact->inexact elt))
|
||||||
((string? elt)
|
((string? elt)
|
||||||
(with-input-from-string elt
|
(with-input-from-string elt
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
@ -136,7 +136,7 @@
|
|||||||
(map
|
(map
|
||||||
(lambda (elt)
|
(lambda (elt)
|
||||||
(cond ((number? elt)
|
(cond ((number? elt)
|
||||||
(abs elt))
|
(exact->inexact (abs elt)))
|
||||||
((string? elt)
|
((string? elt)
|
||||||
(with-input-from-string elt
|
(with-input-from-string elt
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
@ -127,7 +127,7 @@
|
|||||||
(define (gnc:html-scatter-render scatter doc)
|
(define (gnc:html-scatter-render scatter doc)
|
||||||
(define (ensure-numeric elt)
|
(define (ensure-numeric elt)
|
||||||
(cond ((number? elt)
|
(cond ((number? elt)
|
||||||
elt)
|
(exact->inexact elt))
|
||||||
((string? elt)
|
((string? elt)
|
||||||
(with-input-from-string elt
|
(with-input-from-string elt
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
Loading…
Reference in New Issue
Block a user