aboutsummaryrefslogtreecommitdiff
path: root/src/interp/slam.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/slam.boot')
-rw-r--r--src/interp/slam.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot
index 82d234c6..cc71b84b 100644
--- a/src/interp/slam.boot
+++ b/src/interp/slam.boot
@@ -108,7 +108,7 @@ isRecurrenceRelation(op,body,minivectorName) ==
diffSlot := or/[i for i in 0.. for x in $minivector | EQ(x,diffCell)]
or return nil
--Check general term for references to just the k previous values
- sharpPosition := readInteger SUBSTRING(sharpArg,1,nil)
+ sharpPosition := readInteger subString(sharpArg,1)
al:= mkDiffAssoc(op,generalTerm,k,sharpPosition,sharpArg,diffSlot,minivectorName)
null al => false
"$failed" in al => false