equal
deleted
inserted
replaced
187 FundefConfig {sequential=sequential, default=default, domintros=true,tailrec=tailrec} |
187 FundefConfig {sequential=sequential, default=default, domintros=true,tailrec=tailrec} |
188 | apply_opt Tailrec (FundefConfig {sequential, default, domintros,tailrec}) = |
188 | apply_opt Tailrec (FundefConfig {sequential, default, domintros,tailrec}) = |
189 FundefConfig {sequential=sequential, default=default, domintros=domintros,tailrec=true} |
189 FundefConfig {sequential=sequential, default=default, domintros=domintros,tailrec=true} |
190 |
190 |
191 val default_config = |
191 val default_config = |
192 FundefConfig { sequential=false, default="%x. arbitrary", domintros=false, tailrec=false } |
192 FundefConfig { sequential=false, default="%x. undefined" (*FIXME dynamic scoping*), domintros=false, tailrec=false } |
193 |
193 |
194 |
194 |
195 (* Analyzing function equations *) |
195 (* Analyzing function equations *) |
196 |
196 |
197 fun split_def ctxt geq = |
197 fun split_def ctxt geq = |