diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 2a4b7024..ba7aab89 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -132,10 +132,10 @@ CONTAINED(x,y) == main where equal(x,y) eq(x,y) == atom y => EQ(x,y) - eq(x, car y) or eq(x, cdr y) + eq(x, first y) or eq(x, rest y) equal(x,y) == atom y => EQUAL(x,y) - equal(x, car y) or equal(x, cdr y) + equal(x, first y) or equal(x, rest y) ++ Returns all the keys of association list `x' -- ??? Should not this be named `alistAllKeys'? @@ -156,7 +156,7 @@ ASSOCRIGHT x == ADDASSOC: (%Thing,%Thing,%List) -> %List ADDASSOC(x,y,l) == atom l => [[x,:y],:l] - x = first first l => [[x,:y],:cdr l] + x = first first l => [[x,:y],:rest l] [first l,:ADDASSOC(x,y,rest l)] |