diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-spec2.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 4 |
2 files changed, 5 insertions, 1 deletions
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 |