From d392edc158b98724c90741a4eb53b70773b0e2a5 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 16 Jul 2018 21:46:25 +0200
Subject: [PATCH] Once again translate-and-compile macsyma programs in one
 step.

Now that the NXM error is fixed.

This reverts commit 4c3381b50941ca8175ed88e3390dd1e642e46519.
---
 build/lisp.tcl | 38 ++++----------------------------------
 1 file changed, 4 insertions(+), 34 deletions(-)

diff --git a/build/lisp.tcl b/build/lisp.tcl
index fba06419..76bcb93a 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -544,47 +544,17 @@ respond "*" ":link sys3;ts macsym,maxdmp;loser >\r"
 respond "*" ":link demo;manual demo,demo;manual >\r"
 respond "*" ":link manual;manual demo,demo;manual demo\r"
 
-### build ctensr for macsyma
-# ejs: commented out until we can fix NXM error in KA10 emulator
-#respond "*" "macsym\013"
-#respond "(C1)" "compile_lisp_file(translate_file(\"sharem\\;packg >\")\[2\]);"
-#respond "(C2)" "compile_lisp_file(translate_file(\"tensor\\;ctensr funcs\")\[2\]);"
-#respond "Type ALL;" "all;"
-#respond "Type ALL;" "all;"
-#respond "(C3)" "quit();"
-
-### build eigen for macsyma
-# ejs: commented out until we can fix NXM error in KA10 emulator
-#respond "*" "macsym\013"
-#respond "(C1)" "compile_lisp_file(translate_file(\"share\\;eigen >\")\[2\]);"
-#respond "Type ALL;" "all;"
-#respond "(C2)" "quit();"
-
 ### build ctensr for macsyma
 respond "*" "macsym\013"
-respond "(C1)" "translate_file(\"sharem\\;packg >\");"
-respond "(C2)" "quit();"
-respond ":KILL" "complr\013"
-respond "_" "sharem;packg fasl_packg trlisp\r"
-respond "_" "\032"
-type ":kill\r"
-respond "*" "macsym\013"
-respond "(C1)" "translate_file(\"tensor\\;ctensr funcs\");"
-respond "(C2)" "quit();"
-respond ":KILL" "complr\013"
-respond "_" "share;ctensr fasl_tensor;ctensr trlisp\r"
-respond "_" "\032"
-type ":kill\r"
+respond "(C1)" "compile_lisp_file(translate_file(\"sharem\\;packg >\")\[2\]);"
+respond "(C2)" "compile_lisp_file(translate_file(\"tensor\\;ctensr funcs\")\[2\]);"
+respond "(C3)" "quit();"
 
 ### build eigen for macsyma
 respond "*" "macsym\013"
-respond "(C1)" "translate_file(\"share\\;eigen >\");"
+respond "(C1)" "compile_lisp_file(translate_file(\"share\\;eigen >\")\[2\]);"
 respond "Type ALL;" "all;"
 respond "(C2)" "quit();"
-respond ":KILL" "complr\013"
-respond "_" "share;eigen fasl_share;eigen trlisp\r"
-respond "_" "\032"
-type ":kill\r"
 
 ### build share;array fasl and ellen; check fasl for macsyma