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 7289b9d3..fb0afcc2 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -246,7 +246,7 @@ countCircularAlist(cal,n) == +/[nodeCount x for x in cal for i in 1..n] predCircular(al,n) == - for i in 1..QSSUB1 n repeat al:= rest al + for i in 1..(n - 1) repeat al:= rest al al assocCircular(x,al) == --like ASSOC except that al is circular |