#lang scheme/base
(require typed-scheme/typed-reader)
(provide get-info configure)

(define ((get-info arg) key default)
  (case key
    [(configure-runtime) `(#(typed-scheme/language-info configure ()))]
    [else default]))

;; options currently always empty
(define (configure options)
  (namespace-require 'scheme/base)
  (eval '(begin 
           (require (for-syntax typed-scheme/utils/tc-utils scheme/base))
           (begin-for-syntax (set-box! typed-context? #t)))
        (current-namespace))
  (current-readtable readtable))