From 72072ef1ed94b70a3ab61c0c4ace6a49207f4469 Mon Sep 17 00:00:00 2001
From: wl <wl>
Date: Sun, 10 Oct 2004 18:17:37 +0000
Subject: * tmac/trace.tmac: Fix handling of `am' and `am1' calls.

---
 tmac/trace.tmac | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tmac')

diff --git a/tmac/trace.tmac b/tmac/trace.tmac
index 0c354eee..286c605b 100644
--- a/tmac/trace.tmac
+++ b/tmac/trace.tmac
@@ -59,10 +59,10 @@
 .!!de am
 .  do ecs
 .  ec
-.  do !!am \$1
+.  do !!de \$1
 .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** am trace enter: \\$0 \\$@
 .    el .do tm1 "\\*[!!sp]*** am trace enter \$1: \\$0 \\$@
-.    as !!sp " \"
+.    do as !!sp " \"
 .    do nop \\*[!!\$1]\\
 .    do substring !!sp 1
 .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
@@ -79,10 +79,10 @@
 .!!de am1
 .  do ecs
 .  ec
-.  do !!am \$1
+.  do !!de \$1
 .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** am1 trace enter: \\$0 \\$@
 .    el .do tm1 "\\*[!!sp]*** am1 trace enter \$1: \\$0 \\$@
-.    as !!sp " \"
+.    do as !!sp " \"
 .    do nop \\*[!!\$1]\\
 .    do substring !!sp 1
 .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
-- 
cgit v1.2.1