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 (ensure-numeric elt)
|
||||
(cond ((number? elt)
|
||||
elt)
|
||||
(exact->inexact elt))
|
||||
((string? elt)
|
||||
(with-input-from-string elt
|
||||
(lambda ()
|
||||
|
@ -136,7 +136,7 @@
|
||||
(map
|
||||
(lambda (elt)
|
||||
(cond ((number? elt)
|
||||
(abs elt))
|
||||
(exact->inexact (abs elt)))
|
||||
((string? elt)
|
||||
(with-input-from-string elt
|
||||
(lambda ()
|
||||
|
@ -127,7 +127,7 @@
|
||||
(define (gnc:html-scatter-render scatter doc)
|
||||
(define (ensure-numeric elt)
|
||||
(cond ((number? elt)
|
||||
elt)
|
||||
(exact->inexact elt))
|
||||
((string? elt)
|
||||
(with-input-from-string elt
|
||||
(lambda ()
|
||||
|
Loading…
Reference in New Issue
Block a user