diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-27 02:46:10 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-27 02:46:10 +0000 |
commit | 6a3913853aeb542f155a1164eb48aba1724f17f7 (patch) | |
tree | 001de8bcc0e076ba25f5da76b2b264d0598c7e6a /src/interp/i-syscmd.boot | |
parent | 4d4f05f71ab532ac95570bef18da5098965db723 (diff) | |
download | open-axiom-6a3913853aeb542f155a1164eb48aba1724f17f7.tar.gz |
* algebra/stream.spad.pamphlet (Stream): Tidy accessors.
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r-- | src/interp/i-syscmd.boot | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 311db253..a6483122 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -46,12 +46,6 @@ $existingFiles := hashTable "EQUAL" $SYSCOMMANDS := [first x for x in $systemCommands] -$NonNullStream == - '"NonNullStream" - -$NullStream == - '"NullStream" - $whatOptions := '( _ operations _ categories _ @@ -1832,8 +1826,8 @@ writify ob == THROW('writifyTag, 'writifyFailed) -- Default case: return the object itself. string? ob => - sameObject?(ob, $NullStream) => ['WRITIFIED!!, 'NULLSTREAM] - sameObject?(ob, $NonNullStream) => ['WRITIFIED!!, 'NONNULLSTREAM] + sameObject?(ob, %nullStream) => ['WRITIFIED!!, 'NULLSTREAM] + sameObject?(ob, %nonNullStream) => ['WRITIFIED!!, 'NONNULLSTREAM] ob FLOATP ob => ob = READ_-FROM_-STRING STRINGIMAGE ob => ob @@ -1920,8 +1914,8 @@ dewritify ob == nob type is 'READTABLE => error '"Cannot de-writify a read table." - type is 'NULLSTREAM => $NullStream - type is 'NONNULLSTREAM => $NonNullStream + type is 'NULLSTREAM => %nullStream + type is 'NONNULLSTREAM => %nonNullStream type is 'FLOAT => [fval, signif, expon, sign] := CDDR ob fval := SCALE_-FLOAT( FLOAT(signif, fval), expon) |