diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-14 16:28:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-14 16:28:50 +0000 |
| commit | 8860faa2722a28227923c28f1035d6c3fc6e5630 (patch) | |
| tree | 906bed1ed01c7b9bf9530c3c7e6d0222e8d9dc12 /src | |
| parent | 9cffbc301daffb6f6563ddc12d9bd928239b60b2 (diff) | |
| download | open-axiom-8860faa2722a28227923c28f1035d6c3fc6e5630.tar.gz | |
* interp/i-spec2.boot (upQUOTE): Quoted forms belong to InputForm.
* interp/sys-constants.boot ($InputForm): New.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/i-spec2.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 4 |
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 |