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

Fixed latex output

Browse Source
This commit is contained in:
William J. Bowman 2015-04-14 19:14:50 -04:00
parent a0803eb8b1
commit 8429afbfcc
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
oll.rkt
View File

@ -53,14 +53,14 @@
(when (attribute latex-file)
(with-output-to-file (syntax->datum #'latex-file)
(thunk
(format "\\fbox{$~a$}$~n$\\begin{mathpar}~n~a~n\end{mathpar}$$"
(syntax->datum #'(n types* ...))
(string-trim
(for/fold ([str ""])
([rule (attribute rules.latex)])
(format "~a~a\\and~n" str rule))
"\\and"
#:left? #f)))
(printf (format "\\fbox{$~a$}$~n$\\begin{mathpar}~n~a~n\\end{mathpar}$$"
(syntax->datum #'(n types* ...))
(string-trim
(for/fold ([str ""])
([rule (attribute rules.latex)])
(format "~a~a\\and~n" str rule))
"\\and"
#:left? #f))))
#:exists 'append))
#`(begin
#,@(if (attribute coq-file)
@ -187,7 +187,7 @@
#:left? #f))]))))
(define (generate-latex-bnf file-name vars clauses)
(with-output-to-file file-name
(thunk (output-latex-bnf vars clauses))
(thunk (printf (output-latex-bnf vars clauses)))
#:exists 'append)))
(module+ test
(require "stdlib/sugar.rkt")