diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-06 01:52:04 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-06 01:52:04 +0000 |
commit | 554f0da895913012bc9e029e9312c50650e222b2 (patch) | |
tree | d091568d27e5f01ec9f875224896ff1a4938de29 /src/interp/newfort.boot | |
parent | 104def0e400bbf3a0daed9e490e41485a9213c9d (diff) | |
download | open-axiom-554f0da895913012bc9e029e9312c50650e222b2.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/newfort.boot')
-rw-r--r-- | src/interp/newfort.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index 276c3616..295aea7a 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -219,7 +219,7 @@ exp2FortOptimizeCS1 e == -- see if we have been here before not (object2Identifier first e in '(ROW AGGLST)) and - (n := HGET($fortCsHash,e)) => beenHere(e,n) -- where + (n := tableValue($fortCsHash,e)) => beenHere(e,n) -- where -- descend sucessive CARs of CDRs of e f := e @@ -243,7 +243,7 @@ exp2FortOptimizeCS1 e == object2Identifier first e in '(ROW AGGLST) => e -- see if we have already seen this expression - n := HGET($fortCsHash,e) + n := tableValue($fortCsHash,e) null n => n := VECTOR(1,nil,$fortCsExprStack,$fortCsFuncStack) tableValue($fortCsHash,e) := n |