Small syntax fixes
This commit is contained in:
parent
22404dfe98
commit
3af3d8dbe9
|
@ -26,8 +26,6 @@
|
||||||
(define (coq-lift-top-level str)
|
(define (coq-lift-top-level str)
|
||||||
(coq-defns (format "~a~a~n" (coq-defns) str)))
|
(coq-defns (format "~a~a~n" (coq-defns) str)))
|
||||||
|
|
||||||
;; TODO: OOps, type-infer doesn't return a cur term but a redex syntax bla
|
|
||||||
;; TODO: Think the above TODO was fixed; consult git log
|
|
||||||
(define (constructor-args syn)
|
(define (constructor-args syn)
|
||||||
(syntax-parse (type-infer/syn syn)
|
(syntax-parse (type-infer/syn syn)
|
||||||
#:datum-literals (Π :)
|
#:datum-literals (Π :)
|
||||||
|
@ -138,9 +136,7 @@
|
||||||
(displayln
|
(displayln
|
||||||
"\\newcommand{\\bnfdef}{{\\bf ::=}}")
|
"\\newcommand{\\bnfdef}{{\\bf ::=}}")
|
||||||
(displayln
|
(displayln
|
||||||
"\\newcommand{\\bnfalt}{{\\bf \\mid}}"))
|
"\\newcommand{\\bnfalt}{{\\bf \\mid}}")))
|
||||||
|
|
||||||
)
|
|
||||||
|
|
||||||
;; ------------------------------------
|
;; ------------------------------------
|
||||||
;; define-relation
|
;; define-relation
|
||||||
|
|
Loading…
Reference in New Issue
Block a user