doc: Handle right arrows in 'syntax-highlighted-html'.

* doc/build.scm (syntax-highlighted-html)[build](entity->string): Add "rarr".
2019-11-27 15:42:18 +01:00 · 2019-11-27 15:42:18 +01:00 · 295c6a7e83
parent e8c6644af1
commit 295c6a7e83
1 changed files with 1 additions and 0 deletions
--- a/doc/build.scm
+++ b/doc/build.scm
@ -278,6 +278,7 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
            (define entity->string
              (match-lambda
                ("rArr"   "⇒")
+                ("rarr"   "→")
                ("hellip" "…")
                ("rsquo"  "’")
                (e (pk 'unknown-entity e) (primitive-exit 2))))