diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 882d5795..9e46ef6b 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -707,8 +707,8 @@ upTableSetelt(op,lhs is [htOp,:args],rhs) == throwKeyedMsg("S2IS0041",[[getUnname htOp,'".[", getUnname first args, ['",",getUnname arg for arg in rest args],'"]"]]) - keyMode := '(Any) - putMode (htOp,['Table,keyMode,'(Any)]) + keyMode := $Any + putMode (htOp,['Table,keyMode,$Any]) -- if we are to use a new table, we must call the "table" -- function to give it an initial value. bottomUp [mkAtreeNode "%LET",htOp,[mkAtreeNode 'table]] |