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 b2d2e5a3..42d10194 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -133,7 +133,7 @@ reportFunctionCacheAll(op,nam,argl,body) == compileInteractive mainFunction compileInteractive computeFunction cacheType:= 'hash_-table - cacheResetCode:= ["SETQ",cacheName,['MAKE_-HASHTABLE,''UEQUAL]] + cacheResetCode:= ["SETQ",cacheName,['hashTable,''EQUAL]] cacheCountCode:= ['hashCount,cacheName] cacheVector:= mkCacheVec(op,cacheName,cacheType,cacheResetCode,cacheCountCode) @@ -216,7 +216,7 @@ compileRecurrenceRelation(op,nam,argl,junk,[body,sharpArg,n,:initCode]) == -- also binds "stateVar" to its current value initialSetCode := initialValueCode := - extraArguments => ["MAKE_-HASHTABLE",''UEQUAL] + extraArguments => ["hashTable",''EQUAL] tripleCode cacheResetCode := ["SETQ",stateNam,initialValueCode] ["COND",[["NULL",["AND",["BOUNDP",MKQ stateNam], _ |