suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fixes scribble bug #25

Browse Source
This commit is contained in:
Georges Dupéron 2016-06-17 19:59:40 +02:00
parent 3121eaec9d
commit 32c6abb01e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
typed/private/lp.rkt
View File

@ -68,9 +68,9 @@
(make-splice (make-splice
(list (make-toc-element (list (make-toc-element
#f #f
(list (elemtag '(chunk tag) (list (elemtag '(chunk (prefixable tag))
(bold (italic (racket name)) " ::="))) (bold (italic (racket name)) " ::=")))
(list (smaller (elemref '(chunk tag) #:underline? #f (list (smaller (elemref '(chunk (prefixable tag)) #:underline? #f
str str
rest ...)))) rest ...))))
(#,racketblock expr ...))))))])) (#,racketblock expr ...))))))]))
@ -84,7 +84,7 @@
(identifier? #'id) (identifier? #'id)
(with-syntax ([tag (format "~a:1" (syntax-e #'id))] (with-syntax ([tag (format "~a:1" (syntax-e #'id))]
[str (format "~a" (syntax-e #'id))]) [str (format "~a" (syntax-e #'id))])
#'(elemref '(chunk tag) #:underline? #f str))])) #'(elemref '(chunk (prefixable tag)) #:underline? #f str))]))
(provide (all-from-out scheme/base (provide (all-from-out scheme/base