scsh-0.6/scheme/debug/spatial-hack.scm

64 lines
1.8 KiB
Scheme

; Copyright (c) 1993-1999 by 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)