diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/i-object.boot | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/i-object.boot')
| -rw-r--r-- | src/interp/i-object.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 74359a51..5e4db99f 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -191,7 +191,7 @@ getBasicObject x == objNewWrap(x,t) string? x => objNewWrap(x,$String) FLOATP x => objNewWrap(x,$DoubleFloat) - NIL + nil --%% Vectorized Attributed Trees @@ -226,9 +226,9 @@ mkAtreeNode x == emptyAtree expr == vector? expr => $immediateDataSymbol = expr.0 => nil - expr.1:= NIL - expr.2:= NIL - expr.3:= NIL + expr.1:= nil + expr.2:= nil + expr.3:= nil -- kill proplist too? atom expr => nil for e in expr repeat emptyAtree e @@ -321,9 +321,9 @@ getModeOrFirstModeSetIfThere x == y := x.aModeSet => (y = [$EmptyMode]) and ((m := getMode x) is ['Mapping,:.]) => m first y - NIL + nil m := getBasicMode x => m - NIL + nil getModeSetUseSubdomain x == x and cons? x => getModeSetUseSubdomain first x @@ -382,8 +382,8 @@ getAtree(x,prop) == -- only willing to get property if op is a vector -- otherwise will be pushing to deeply into calling structure vector? op => getAtree(op,prop) - NIL - not vector? x => NIL -- just ignore it + nil + not vector? x => nil -- just ignore it n:= QLASSQ(prop,'((mode . 1) (value . 2) (modeSet . 3))) => x.n QLASSQ(prop,x.4) |