; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.


; load into initial image

(init-defpackage! eval
		  (lambda ()
		    (delay (make-simple-package (list scheme-level-1)
						#t (delay #f) 'for-syntax))))

(define-structures ((assembler (export (lap syntax))))
  (open scheme-level-2 compiler architecture
	signals				;error
	enumerated			;name->enumerand
	code-vectors
	locations)			;location?
  (specials lap)
  (files (env assem)))

(ensure-loaded assembler)

(define-structures ((spatial (export space init-space)))
   (open scheme-level-2 architecture primitives packages)
   (files (debug space)))

(ensure-loaded spatial)

((*structure-ref spatial 'init-space) eval assembler)

(define-interface define-record-types-interface
  (export (define-record-type syntax)
	  define-record-discloser))
(define-structures ((define-record-types define-record-types-interface))
  (open scheme-level-1 record)
  (files (rts jar-defrecord)))
(define-interface queue-interface
  (export make-queue enqueue dequeue queue-empty?
	  queue? queue->list queue-length delete-from-queue!))
(define-structures ((queues queue-interface))
  (open scheme-level-1 define-record-types signals)
  (files (big queue))
  (optimize auto-integrate))
(define-structure traverse
    (export traverse-depth-first traverse-breadth-first trail
	    set-leaf-predicate! usual-leaf-predicate)
  (open scheme-level-2
	primitives			; ?
	queues table
	bitwise locations closures code-vectors
	features			; string-hash
	low-level)			; flush-the-symbol-table!
  (files (env traverse)))

(ensure-loaded traverse)

(define foo
  (make-simple-package (list scheme-level-2
			     spatial traverse vm-exposure)
		       eval (delay #f) 'foo))

; (define command-processor (*structure-ref command 'command-processor))

; (set-interaction-environment! foo)