Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corrige bug dans phrases toplevel enchainees (ex: let x = 1 let y = x+1) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3183 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-06-04 15:13:42 +00:00
parent fbaf7ee3f5
commit d2fa190353
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bytecomp/translmod.ml
View File

@ -405,7 +405,9 @@ let transl_toplevel_item = function
| Tstr_cltype cl_list ->
lambda_unit
let transl_toplevel_item_and_close itm =
close_toplevel_term (transl_label_init (transl_toplevel_item itm))
let transl_toplevel_definition str =
reset_labels ();
close_toplevel_term
(transl_label_init (make_sequence transl_toplevel_item str))
make_sequence transl_toplevel_item_and_close str