scsh-0.5/rts/init.scm

19 lines
505 B
Scheme
Raw Permalink Normal View History

1995-10-13 23:34:21 -04:00
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
; System entry and exit
; Entry point from OS executive. Procedures returned by USUAL-RESUMER
; are suitable for use as the second argument to WRITE-IMAGE.
(define (usual-resumer entry-point)
(lambda (resume-arg in out)
(initialize-dynamic-state!)
(with-initial-ports in out
(lambda ()
(initialize-exceptions!
(lambda ()
(initialize-interrupts!)
(entry-point (vector->list resume-arg))))))))