1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
; -*- Mode: Scheme; -*-
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees
; ,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))
|
