Merge pull request #161 from dfeltey/print-syntax-cleanup

Merge `print-syntax?` and `show-input?` parameters into just the `print-syntax?` parameter
This commit is contained in:
Dan Feltey 2015-07-27 11:06:36 -05:00
commit 200c51689c
2 changed files with 1 additions and 5 deletions

View File

@ -53,7 +53,7 @@
[disappeared-use-todo null]
[disappeared-bindings-todo null])
(define fully-expanded-stx (disarm* (do-expand stx expand-ctxt (list #'module*))))
(when (show-input?)
(when (print-syntax?)
(pretty-print (syntax->datum fully-expanded-stx)))
(do-time "Local Expand Done")
(let ([exprs (syntax->list (syntax-local-introduce fully-expanded-stx))])

View File

@ -14,8 +14,6 @@ at least theoretically.
optimize?
;; timing
start-timing do-time
;; logging
show-input?
;; provide macros
rep utils typecheck infer env private types static-contracts
;; misc
@ -33,8 +31,6 @@ at least theoretically.
(syntax-rules () [(_) (begin)])))
(do-contract-req)
(define show-input? (make-parameter #f))
;; fancy require syntax
(define-syntax (define-requirer stx)
(syntax-parse stx