export strictness of argument of empty_cache

dd98e055 · John van Groningen · ec8f0c9e · dd98e055 · dd98e055
Commit dd98e055 authored Apr 02, 2004 by John van Groningen
--- a/main/compile.dcl
+++ b/main/compile.dcl
@@ -21,4 +21,4 @@ compile :: ![{#Char}] !*DclCache !*Files -> (!Bool,!*DclCache,!*Files)
 	heaps::!.Heaps
 };

-empty_cache :: *SymbolTable -> *DclCache
+empty_cache :: !*SymbolTable -> *DclCache
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -115,7 +115,7 @@ InitialCoclOptions =
 	heaps::!.Heaps
 };

-empty_cache :: *SymbolTable -> *DclCache
+empty_cache :: !*SymbolTable -> *DclCache
 empty_cache symbol_heap
 	# heaps = {hp_var_heap = newHeap, hp_expression_heap = newHeap, hp_type_heaps = {th_vars = newHeap, th_attrs = newHeap}, hp_generic_heap = newHeap}
 	# (predef_symbols, hash_table) = buildPredefinedSymbols (newHashTable symbol_heap)