43 lines
1.0 KiB
Scheme
43 lines
1.0 KiB
Scheme
; -*- Mode: Scheme; -*-
|
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
|
|
|
; ,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))
|
|
|