From 9e3636777e664df275f87b5a258b069c47a5b0e8 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sat, 4 Sep 2021 14:17:42 +0300
Subject: [PATCH] Fix JSON number regression

cjson produces inexact reals (instead of integers) from JSON integers.
Ensure JSON numbers are converted to Scheme integers.
---
 pandoc.r5rs.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pandoc.r5rs.scm b/pandoc.r5rs.scm
index 52bc6db..6f6f63c 100644
--- a/pandoc.r5rs.scm
+++ b/pandoc.r5rs.scm
@@ -52,7 +52,8 @@
             ((equal? type "Header")
              (let* ((level (car (contents-list)))
                     (h-tag (string->symbol
-                            (string-append "h" (number->string level)))))
+                            (string-append
+                             "h" (number->string (inexact->exact level))))))
                `(,h-tag ,@(convert-many (vector->list
                                          (list-ref (contents-list) 2))))))
             ((equal? type "Link")