Fixed ugly bug in nested function support

This commit is contained in:
Dmitry Boulytchev 2019-12-23 21:05:57 +03:00
parent 3f0e1c4b15
commit de2955cbc9
8 changed files with 38 additions and 3 deletions

View file

@ -132,7 +132,7 @@ module State =
| I
| G of (string * bool) list * (string, 'a) arrow
| L of (string * bool) list * (string, 'a) arrow * 'a t
with show,html
with show, html
(* Get the depth level of a state *)
let rec level = function