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