diff options
Diffstat (limited to 'src/interp/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 0851b32b..72a634c5 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -159,8 +159,8 @@ 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:= CAR forwardPointer) - forwardPointer:= CDR forwardPointer + EQUAL(CAAR forwardPointer,x) => return (val:= first forwardPointer) + forwardPointer:= rest forwardPointer val compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == |