Fix JSON number regression

cjson produces inexact reals (instead of integers) from JSON integers. Ensure JSON numbers are converted to Scheme integers.
2021-09-04 14:17:42 +03:00 · 2021-09-04 14:17:42 +03:00 · 9e3636777e
parent 109f74070c
commit 9e3636777e
1 changed files with 2 additions and 1 deletions
--- 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")