suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no underlines

Browse Source 
svn: r13672
This commit is contained in:
Eli Barzilay 2009-02-16 16:44:34 +00:00
parent 58e618478e
commit a016d20e84
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/games/chat-noir/literate-doc-wrapper.ss
View File

@ -40,7 +40,8 @@
(list (elemtag '(chunk tag) (italic (scheme name) " ::="))) (list (elemtag '(chunk tag) (italic (scheme name) " ::=")))
(list (make-element (list (make-element
"smaller" "smaller"
(list (elemref '(chunk tag) str more ...))))) (list (elemref '(chunk tag) #:underline? #f
str more ...)))))
(schemeblock expr ...)))))])) (schemeblock expr ...)))))]))
(define-syntax (chunkref stx) (define-syntax (chunkref stx)
@ -48,7 +49,7 @@
[(_ id) [(_ id)
(identifier? #'id) (identifier? #'id)
(with-syntax ([str (format "~a" (syntax-e #'id))]) (with-syntax ([str (format "~a" (syntax-e #'id))])
#'(elemref '(chunk str) str))])) #'(elemref '(chunk str) #:underline? #f str))]))
;; HACK: provide a fake `module', which makes it possible to include a module ;; HACK: provide a fake `module', which makes it possible to include a module
;; and get only its code in. ;; and get only its code in.