aliens/tekuti
1
0
Fork 0
Code Activity

Fix emph lowering

Browse source
This commit is contained in:
Andy Wingo 2022-10-20 23:26:35 +02:00
parent 2d102677d1
commit 4a9766c6c1
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tekuti/marxdown.scm
View file

@ -603,9 +603,9 @@
(define (transform-inline exp) (define (transform-inline exp)
(match exp (match exp
(('inline-xml xml) (handle-inline-xml xml)) (('inline-xml xml) (handle-inline-xml xml))
(('code . body) exp) (('code . body) `(tt . ,body))
(('emph . body) `(emph . ,(map transform-inline body))) (('emph . body) `(i . ,(map transform-inline body)))
(('strong . body) `(strong . ,(map transform-inline body))) (('strong . body) `(b . ,(map transform-inline body)))
(('link dest . body) `(a (@ (href ,dest)) . ,(map transform-inline body))) (('link dest . body) `(a (@ (href ,dest)) . ,(map transform-inline body)))
((? string? str) str))) ((? string? str) str)))
(define (transform-block exp) (define (transform-block exp)