scsh-0.5/misc/load-static.scm

41 lines
948 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
; -*- Mode: Scheme; -*-
; ,exec ,load misc/load-static.scm
; (do-it 100000 "debug/little.image" "debug/little-heap.c")
(translate "=scheme48/" "./")
(config
(lambda ()
(load "vm/ps-interface.scm")
(load "vm/interfaces.scm")
(load "vm/package-defs.scm" "vm/s48-package-defs.scm")))
(load-package 'bigbit)
; The following is for struct's (for-syntax ...) clause
; (load-package 'destructuring)
(load-package 'heap)
(in 'heap
(lambda ()
(run '(define (newspace-begin) *newspace-begin*))
(run '(define (heap-pointer) *hp*))
(structure 'heap-extra
'(export newspace-begin
heap-pointer
header-a-units
d-vector?
stob-type))))
(config '(run (define-structure static (export do-it)
(open scheme heap memory data stob struct
heap-extra
vm-architecture
formats
enumerated
signals)
(files (misc static)))))
(load-package 'static)
(user '(open static))