/usr/share/scheme48-1.9/misc/load-static.scm is in scheme48 1.9-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ; -*- 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))
|