summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/compiler/compile.ml
diff options
context:
space:
mode:
authorJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2000-04-19 04:36:47 +0000
committerJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2000-04-19 04:36:47 +0000
commitf07fed5f1bf8b0c0ef61346ae240fb7dad274391 (patch)
tree70aad6228e4da169dc043b41e26d5c9699b9546e /otherlibs/labltk/compiler/compile.ml
parent83d263db033afd257e0f6b0490f99cfb4faafa10 (diff)
handle product in converterCAMLtoTK
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3111 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/compiler/compile.ml')
-rw-r--r--otherlibs/labltk/compiler/compile.ml1
1 files changed, 0 insertions, 1 deletions
diff --git a/otherlibs/labltk/compiler/compile.ml b/otherlibs/labltk/compiler/compile.ml
index 914fdbf8b..e20a666a7 100644
--- a/otherlibs/labltk/compiler/compile.ml
+++ b/otherlibs/labltk/compiler/compile.ml
@@ -464,7 +464,6 @@ let rec converterCAMLtoTK ~context_widget argname ty =
["]"])
| Function _ -> fatal_error "unexpected function type in converterCAMLtoTK"
| Unit -> fatal_error "unexpected unit type in converterCAMLtoTK"
- | Product _ -> fatal_error "unexpected product type in converterCAMLtoTK"
| Record _ -> fatal_error "unexpected product type in converterCAMLtoTK"
| List ty -> fatal_error "unexpected list type in converterCAMLtoTK"