equal
deleted
inserted
replaced
6 Common definitions and other infrastructure. |
6 Common definitions and other infrastructure. |
7 *) |
7 *) |
8 |
8 |
9 structure FundefCommon = |
9 structure FundefCommon = |
10 struct |
10 struct |
|
11 |
|
12 local open FundefLib in |
11 |
13 |
12 (* Profiling *) |
14 (* Profiling *) |
13 val profile = ref false; |
15 val profile = ref false; |
14 |
16 |
15 fun PROFILE msg = if !profile then timeap_msg msg else I |
17 fun PROFILE msg = if !profile then timeap_msg msg else I |
324 |
326 |
325 val default_config = FundefConfig { sequential=false, default="%x. arbitrary", |
327 val default_config = FundefConfig { sequential=false, default="%x. arbitrary", |
326 target=NONE, domintros=false, tailrec=false } |
328 target=NONE, domintros=false, tailrec=false } |
327 |
329 |
328 |
330 |
329 |
331 end |
330 end |
332 end |
331 |
333 |
332 (* Common Abbreviations *) |
334 (* Common Abbreviations *) |
333 |
335 |
334 structure FundefAbbrev = |
336 structure FundefAbbrev = |