1
0
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:
Lars Brinkhoff
2018-03-23 12:47:43 +01:00
committed by Eric Swenson
parent 84610ed8a8
commit 4d2398d990
2 changed files with 14 additions and 0 deletions

13
src/nschem/scheme.(dump) Normal file
View 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|))