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 399d7fd2..b2d2e5a3 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -178,7 +178,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == stateNam:= GENVAR() stateVar:= GENSYM() stateVal:= GENSYM() - lastArg := INTERNL strconc('"#",STRINGIMAGE QSADD1 LENGTH argl) + lastArg := INTERNL strconc('"#",STRINGIMAGE QSADD1 # argl) decomposeCode:= [["%LET",gIndex,["ELT",lastArg,0]],:[["%LET",g,["ELT",lastArg,i]] for g in gsList for i in 1..]] |