Commit 0a85c455 authored by John van Groningen's avatar John van Groningen
Browse files

export strictness of argument of newHashTable

parent 147f3f2e
......@@ -10,7 +10,7 @@ import syntax
, hte_mark :: !Int // 1 for .icl modules, otherwise 0
}
newHashTable :: *SymbolTable -> *HashTable
newHashTable :: !*SymbolTable -> *HashTable
set_hte_mark :: !Int !*HashTable -> *HashTable
......
......@@ -26,7 +26,7 @@ import predef, syntax, StdCompare, compare_constructor
:: BoxedIdent = {boxed_ident::!Ident}
newHashTable :: *SymbolTable -> *HashTable
newHashTable :: !*SymbolTable -> *HashTable
newHashTable symbol_heap = { hte_symbol_heap = symbol_heap, hte_entries = { HTE_Empty \\ i <- [0 .. dec cHashTableSize] },hte_mark=0}
set_hte_mark :: !Int !*HashTable -> *HashTable
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment