Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 795246
Collapse All | Expand All

(-)labltk-8.06.10-orig/browser/typecheck.ml (-1 / +1 lines)
Lines 116-122 let f txt = Link Here
116 
    List.iter psl ~f:
 116 
    List.iter psl ~f:
117 
    begin function
 117 
    begin function
118 
      Ptop_def pstr ->
 118 
      Ptop_def pstr ->
119 
        let str, sign, _names, env' = Typemod.type_structure !env pstr in
 119 
        let str, sign, _names, env' = Typemod.type_structure !env pstr Location.none in
120 
        txt.structure <- txt.structure @ str.str_items;
 120 
        txt.structure <- txt.structure @ str.str_items;
121 
        txt.signature <- txt.signature @ sign;
 121 
        txt.signature <- txt.signature @ sign;
122 
        env := env'
 122 
        env := env'

Return to bug 795246