mirror of
https://github.com/PDP-10/its.git
synced 2026-02-06 08:34:38 +00:00
Dump Scheme to a TS file.
This commit is contained in:
committed by
Eric Swenson
parent
84610ed8a8
commit
4d2398d990
13
src/nschem/scheme.(dump)
Normal file
13
src/nschem/scheme.(dump)
Normal file
@@ -0,0 +1,13 @@
|
||||
(comment)
|
||||
(progn
|
||||
(close (prog1 infile (inpush -1)))
|
||||
(load "nschem; scheme interp")
|
||||
(load "nschem; scheme macros")
|
||||
(load "nschem; scheme uuohan")
|
||||
(sstatus toplevel '(toplevel))
|
||||
(sstatus feature noldmsg)
|
||||
(gctwa)
|
||||
(gc)
|
||||
(sstatus flush t)
|
||||
(suspend ":KILL " (list '(dsk sys3) 'ts 'scheme))
|
||||
(scheme t '|SCHEME: Top Level|))
|
||||
Reference in New Issue
Block a user