From 53408f7bdfd74b3d3d3029757427070248b29146 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Thu, 6 Jun 2024 12:48:19 +0300
Subject: [PATCH] Exact numbers is not supported by gnuplot. Fix it

---
 embddr/gnuplot.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/embddr/gnuplot.scm b/embddr/gnuplot.scm
index fb7d8f7..77f424f 100644
--- a/embddr/gnuplot.scm
+++ b/embddr/gnuplot.scm
@@ -66,7 +66,10 @@
             (lambda ()
               (for-each
                (cut >> <>)
-               (map (lambda (sample) (string-join (map (cut format #f "~a" <>) sample) " "))
+               (map (lambda (sample) (string-join (map
+                                              (lambda (x) (number->string
+                                                      (exact->inexact x)))
+                                              sample) " "))
                     (apply zip (cons ((first plots) 'x)
                                      (map (lambda (plot) (plot 'y)) plots)))))))
           (close-port file-port)