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:
commit
200c51689c
|
@ -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))])
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user