d >= depth not >
git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7941 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
90adbedab6
commit
830ba5a179
|
@ -124,7 +124,7 @@ fun check_depth_classifier depth class (model as (clist,alist)) =
|
||||||
val _ = trace wgen ("look for deep ...\n")
|
val _ = trace wgen ("look for deep ...\n")
|
||||||
val d = deep_of_classifier 0 class model
|
val d = deep_of_classifier 0 class model
|
||||||
val check =
|
val check =
|
||||||
if (depth > d)
|
if (depth >= d)
|
||||||
then true
|
then true
|
||||||
else
|
else
|
||||||
let
|
let
|
||||||
|
|
Loading…
Reference in New Issue