File: init.scm

package info (click to toggle)
scsh 0.5.1-2
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 6,540 kB
  • ctags: 8,656
  • sloc: lisp: 39,346; ansic: 13,466; sh: 1,669; makefile: 624
file content (18 lines) | stat: -rw-r--r-- 505 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; 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))))))))