diff options
Diffstat (limited to 'otherlibs/labltk/compiler/compile.ml')
| -rw-r--r-- | otherlibs/labltk/compiler/compile.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/labltk/compiler/compile.ml b/otherlibs/labltk/compiler/compile.ml index e20a666a7..25cf3be81 100644 --- a/otherlibs/labltk/compiler/compile.ml +++ b/otherlibs/labltk/compiler/compile.ml @@ -151,7 +151,7 @@ let ppMLtype ?(any=false) ?(return=false) ?(def=false) ?(counter=ref 0) = end) ^ "]" with Not_found -> prerr_endline ("ppMLtype " ^ s ^ " ?"); s - else if not def & List.length typdef.constructors > 1 then + else if not def && List.length typdef.constructors > 1 then "#" ^ s else s else s |