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/sys-utility.boot | |
| parent | 104def0e400bbf3a0daed9e490e41485a9213c9d (diff) | |
| download | open-axiom-554f0da895913012bc9e029e9312c50650e222b2.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 60660ae1..162ab40c 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -277,7 +277,7 @@ hashTable cmp == minimalise x == min(x,hashTable 'EQUAL) where min(x,ht) == - y := HGET(ht,x) + y := tableValue(ht,x) y => y cons? x => z := min(first x,ht) @@ -292,7 +292,7 @@ minimalise x == string? x => hashCheck(x,ht) x hashCheck(x,ht) == - y := HGET(ht,x) + y := tableValue(ht,x) y => y tableValue(ht,x) := x x |