From 8860faa2722a28227923c28f1035d6c3fc6e5630 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 14 Oct 2008 16:28:50 +0000
Subject: 	* interp/i-spec2.boot (upQUOTE): Quoted forms belong to
 InputForm. 	* interp/sys-constants.boot ($InputForm): New.

---
 src/interp/i-spec2.boot       | 2 +-
 src/interp/sys-constants.boot | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot
index 22f97447..10776a5f 100644
--- a/src/interp/i-spec2.boot
+++ b/src/interp/i-spec2.boot
@@ -796,7 +796,7 @@ upQUOTE t ==
     IDENTP expr =>
 --    $useSymbolNotVariable => $Symbol
       ['Variable,expr]
-    $OutputForm
+    $InputForm
   evalQUOTE(op,[expr],ms)
   putModeSet(op,ms)
 
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 98544eb2..f6c9ef10 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -429,6 +429,10 @@ $EmptyMode ==
 $OutputForm ==
   '(OutputForm)
 
+++ The InputForm domain form
+$InputForm ==
+  '(InputForm)
+
 ++ The domain constructor for functional expression
 $FunctionalExpression ==
   'Expression
-- 
cgit v1.2.3