scsh-0.6/scheme/debug/mumble-packages.scm

74 lines
2.0 KiB
Scheme

; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; This is for version 0.28
; We define these two because they aren't reified:
; scheme-level-0
; silly
; We redefine these two so as not to compromise the security of the
; built-in exception and interrupt systems:
; primitives
; signals
; Suppose you have just done "make image" to build the scheme48 heap image.
; Suppose that the linker produces an initial.image, but that when that
; image is resumed you get the error
; exception handler is not a closure
; This is not informative. To find out what really happened, you have
; two choices:
; (1) Run the image under the VM running in Scheme.
; (2) Run the image using the following handy dandy tool.
; For choice (2), you would do something like the following:
;
; ,translate =scheme48/ ./
; ,config ,load debug/mumble-packages.scm
; ,in link-config
; y
; ;; Cf. Makefile rule for initial.image
; ,load interfaces.scm packages.scm debug/fix-low.scm
; (flatload initial-structures)
; ,load initial.scm
; (define test (link-initial-system))
; primitives-internal
; ,open ##
; Replacement for the structure defined in link-packages.scm
(define-structure linker (export link-simple-system
link-reified-system
(struct-list :syntax))
(open scheme
packages ;make-simple-package
reification
ensures-loaded
) ; (enum interrupt keyboard)
(files linker))
; Copied from link-packages.scm
(define-structure loadc (export load-configuration
(structure-ref :syntax))
(open scheme
environments ; *structure-ref
fluids)
(files ((".." link) loadc)))
; Replacement for the structure defined in link-packages.scm
(define-structure link-config (export ) ;dummy structure...
(open scheme
linker
;; low-structures
;; start-debugging
defpackage
types
analysis
structure-refs ;the real one
loadc ;defines structure-ref, but not the one we want
flatloading
ensures-loaded
interfaces)
(access built-in-structures)
(begin 0))