From 4a9766c6c1f72f571f1ab906a9af786b5eb201e3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 20 Oct 2022 23:26:35 +0200 Subject: [PATCH] Fix emph lowering --- tekuti/marxdown.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tekuti/marxdown.scm b/tekuti/marxdown.scm index 6b43a17..2b6457e 100644 --- a/tekuti/marxdown.scm +++ b/tekuti/marxdown.scm @@ -603,9 +603,9 @@ (define (transform-inline exp) (match exp (('inline-xml xml) (handle-inline-xml xml)) - (('code . body) exp) - (('emph . body) `(emph . ,(map transform-inline body))) - (('strong . body) `(strong . ,(map transform-inline body))) + (('code . body) `(tt . ,body)) + (('emph . body) `(i . ,(map transform-inline body))) + (('strong . body) `(b . ,(map transform-inline body))) (('link dest . body) `(a (@ (href ,dest)) . ,(map transform-inline body))) ((? string? str) str))) (define (transform-block exp)