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

Bug dans modif precedente (liaisons toplevel) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3172 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-05-23 07:21:27 +00:00
parent e8658a1a37
commit c79bcb3344
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bytecomp/translmod.ml
View File

@ -363,7 +363,7 @@ let toploop_getvalue id =
let toploop_setvalue id lam =
Lapply(Lprim(Pfield toploop_setvalue_pos,
[Lprim(Pgetglobal toploop_ident, [])]),
[Lconst(Const_base(Const_string (Ident.name id))); Lvar id])
[Lconst(Const_base(Const_string (Ident.name id))); lam])
let toploop_setvalue_id id = toploop_setvalue id (Lvar id)