From 4d2398d9906776adca4170365dcf465ccfe6973b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 23 Mar 2018 12:47:43 +0100
Subject: [PATCH] Dump Scheme to a TS file.

---
 build/build.tcl          |  1 +
 src/nschem/scheme.(dump) | 13 +++++++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 src/nschem/scheme.(dump)

diff --git a/build/build.tcl b/build/build.tcl
index 38747600..885e7e57 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -2025,6 +2025,7 @@ respond "_" "nschem;scheme macros_schmac lsp\r"
 respond "_" "nschem;scheme uuohan_schuuo lsp\r"
 respond "_" "\032"
 type ":kill\r"
+respond "*" ":lisp scheme (dump)\r"
 
 bootable_tapes
 
diff --git a/src/nschem/scheme.(dump) b/src/nschem/scheme.(dump)
new file mode 100644
index 00000000..c5b381d0
--- /dev/null
+++ b/src/nschem/scheme.(dump)
@@ -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|))