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