From 9172a0651b6c10cfb45fe4d5ac03410e039e4414 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Wed, 25 Aug 2021 09:17:59 +0300 Subject: [PATCH] Check Pandoc API version --- pandoc.r5rs.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/pandoc.r5rs.scm b/pandoc.r5rs.scm index 07a5a7b..f45af1f 100644 --- a/pandoc.r5rs.scm +++ b/pandoc.r5rs.scm @@ -90,6 +90,14 @@ (define (convert-many elements) (join-adjacent-strings (map convert-block-or-inline elements))) + + (define (assert-supported-version) + (let* ((version (cdr (assq 'pandoc-api-version json))) + (major (vector-ref version 0))) + (unless (= major 1) + (error "Pandoc API version is not 1.x" version)))) + + (assert-supported-version) (convert-many (vector->list (cdr (assq 'blocks json))))) (define (pandoc-port->json input-format input-port)