20 lines
405 B
Racket
20 lines
405 B
Racket
#lang typed/racket/base
|
|
|
|
(provide
|
|
*TRIVIAL-LOG*
|
|
*STOP-LIST*
|
|
set-trivial-print
|
|
)
|
|
|
|
;; =============================================================================
|
|
|
|
(: *TRIVIAL-LOG* (Parameterof Boolean))
|
|
(define *TRIVIAL-LOG* (make-parameter #t))
|
|
|
|
(: *STOP-LIST* (Parameterof (Listof Identifier)))
|
|
(define *STOP-LIST* (make-parameter '()))
|
|
|
|
(define (set-trivial-print)
|
|
(*TRIVIAL-LOG* #t)
|
|
(void))
|