18 lines
513 B
Racket
18 lines
513 B
Racket
#lang scheme
|
|
|
|
(provide disable-tests provide abridged-test-output gc-disable-import-gc?
|
|
alternate-collector set-alternate-collector!)
|
|
|
|
|
|
;;; HACK!!!
|
|
(define (alternate-collector)
|
|
(getenv "PLAI_ALTERNATE_COLLECTOR"))
|
|
(define (set-alternate-collector! path)
|
|
(putenv "PLAI_ALTERNATE_COLLECTOR"
|
|
(if (path? path) (path->string path) path)))
|
|
|
|
|
|
(define gc-disable-import-gc? (make-parameter false))
|
|
(define disable-tests (make-parameter false))
|
|
(define abridged-test-output (make-parameter false))
|