-
Notifications
You must be signed in to change notification settings - Fork 1
/
sink.scm
36 lines (32 loc) · 1.14 KB
/
sink.scm
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
; This file is part of SINK, a Scheme-based Interpreter for Not-quite Kernel
; Copyright (c) 2009 John N. Shutt
;;;;;;;;;;;;;;;;;;;
; Scheme-based ;
; Interpreter for ;
; Not-quite ;
; Kernel ;
;;;;;;;;;;;;;;;;;;;
;
; This is the main file for using SINK in Scheme interactive mode.
; It constructs SINK and displays instructions on how to run SINK.
; The programmer can then run SINK as many times as desired, and whenever
; SINK terminates the programmer is returned to the Scheme prompt.
;
; Using MzScheme, to load SINK from the SINK home directory, type either
;
; mzscheme
; (load "sink.scm")
; or
; mzscheme -f sink.scm
;
; SINK was developed under MzScheme version 103. Although the program is
; mostly limited to R5RS Scheme, some details of Kernel error handling won't
; work on some technically R5RS-compliant platforms (on which, see file
; "subfiles/operative.scm" procedure naive->action).
;
(load "subfiles/all.scm")
(display " Start by calling interpreter with no arguments, thus:")(newline)
(newline)
(display " (interpreter)") (newline)
(newline)
'SINK-constructed