github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-29 13:22:47 +00:00
Code Issues Releases Wiki Activity

Dump Scheme to a TS file.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
build/build.tcl
View File

@@ -2025,6 +2025,7 @@ respond "_" "nschem;scheme macros_schmac lsp\r"
respond "_" "nschem;scheme uuohan_schuuo lsp\r" respond "_" "nschem;scheme uuohan_schuuo lsp\r"
respond "_" "\032" respond "_" "\032"
type ":kill\r" type ":kill\r"
respond "*" ":lisp scheme (dump)\r"
bootable_tapes bootable_tapes

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|))