comparison src/settings.sml @ 1332:4dd5d23bace2

minHeap option in .urp files
author Adam Chlipala <adam@chlipala.net>
date Sat, 11 Dec 2010 15:16:04 -0500
parents 0d8bd8ae8417
children 74d35d9a5d16
comparison
equal deleted inserted replaced
1331:a6427d1eda6f 1332:4dd5d23bace2
507 ()) 507 ())
508 else 508 else
509 raise Fail ("Unknown limit category '" ^ name ^ "'") 509 raise Fail ("Unknown limit category '" ^ name ^ "'")
510 fun limits () = !limitsList 510 fun limits () = !limitsList
511 511
512 val minHeap = ref 0
513 fun setMinHeap n = if n >= 0 then minHeap := n else raise Fail "Trying to set negative minHeap"
514 fun getMinHeap () = !minHeap
515
512 end 516 end