diff options
Diffstat (limited to 'src/interp/slam.boot')
| -rw-r--r-- | src/interp/slam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index f91bea41..82d234c6 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -253,7 +253,7 @@ assocCircular(x,al) == --like ASSOC except that al is circular forwardPointer:= al val:= nil until EQ(forwardPointer,al) repeat - EQUAL(CAAR forwardPointer,x) => return (val:= first forwardPointer) + CAAR forwardPointer = x => return (val:= first forwardPointer) forwardPointer:= rest forwardPointer val |