aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/i-spec2.boot2
-rw-r--r--src/interp/sys-constants.boot4
3 files changed, 10 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 3119319b..d014fe6f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-14 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/i-spec2.boot (upQUOTE): Quoted forms belong to InputForm.
+ * interp/sys-constants.boot ($InputForm): New.
+
2008-10-13 Waldek Hebisch <hebisch@math.uni.wroc.pl>
Fix AW/338
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