runtime-config.rkt

#lang racket

(require racket/contract)
(provide
 (contract-out
  [rootstack-size (parameter/c exact-nonnegative-integer?)]
  [heap-size      (parameter/c exact-nonnegative-integer?)]
  [optimize       (parameter/c boolean?)]))


;; Parameter that determines what the initial rootstack size of the program is.
(define rootstack-size
  (make-parameter (expt 2 16)))

;; Parameter that determines what the initial heap size of the program is.
;; We're using a small number here to trigger collection for testing. -Jeremy
#;(define heap-size 
  (make-parameter (expt 2 4)))

(define heap-size 
  (make-parameter (expt 2 16)))

;; This parameter is for turning on optimization passes.
(define optimize
  (make-parameter #f))