From 388c05a8514e7c4a8c4af7261e87169074d497a7 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Fri, 26 Jul 2024 13:52:02 +0200
Subject: [PATCH] Add some helpful comments.

---
 src/shrdlu/dictio.75 | 2 ++
 src/shrdlu/loader.20 | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/src/shrdlu/dictio.75 b/src/shrdlu/dictio.75
index f4e643ac..d4d2fc65 100644
--- a/src/shrdlu/dictio.75
+++ b/src/shrdlu/dictio.75
@@ -175,6 +175,8 @@
 		 (RETURN (PROG (CUT NBB BOTH) 
 			       (SETQ NBB N)
 			       (AND (FLUSHME)
+;ejs
+;				    (** N
 				    (move-ptw N
 					NW
 					(EQ (WORD PTW) (CAR A))
diff --git a/src/shrdlu/loader.20 b/src/shrdlu/loader.20
index 877fc86e..d35f87ed 100644
--- a/src/shrdlu/loader.20
+++ b/src/shrdlu/loader.20
@@ -10,7 +10,10 @@
 ;;;    NEVER NOTICE)
 ;;;
 
+;(setsyntax 44. 'single 44.)
 (setsyntax 34. 'single 34.)
+;(setsyntax 35. 'single 35.)
+;(sstatus syntax 35. 1)
 
 (SETQ GC-OVERFLOW '(LAMBDA (X) T))