(module runtime mzscheme
  (require "exceptions.ss"
           "operator.ss"
           "standard-library.ss"
           "value.ss")

  ;; make-frame : hash-table -> object
  (define (make-frame table)
    (build-object table))

  (define (initialize-runtime!)
    ;; TODO: initialize the other primitives from value.ss
    (initialize-global-object!)
    (install-standard-library! global-object))

  (provide (all-defined)
           (all-from "exceptions.ss")
           (all-from "operator.ss"))

  ;; from value.ss:
  (provide current-this)
  (provide ref? deref set-ref! delete-ref!)
  (provide object? object-call object-construct object-proto object-class object-table arguments-frame-table)
  (provide build-object0 object-get object-set! object-put! object-delete! object-keys object-keys* object-keys-stream)
  (provide scope-chain-get scope-chain-set! scope-chain-delete!)
  (provide call)
  (provide completion->value completion->string
           value->boolean value->string value->object value->primitive
           value->number value->integer value->int32 value->uint32 value->uint16)
  (provide true-value?)
  (provide current-completion complete!)
  (provide build-object build-array build-function)
  (provide make-arguments-object)
  (provide global-object))