equal
deleted
inserted
replaced
411 in Long_Name.implode (remainder @ [base']) end |
411 in Long_Name.implode (remainder @ [base']) end |
412 handle Graph.UNDEF _ => error ("Unknown statement name: " ^ labelled_name name); |
412 handle Graph.UNDEF _ => error ("Unknown statement name: " ^ labelled_name name); |
413 |
413 |
414 in (deresolver, sca_program) end; |
414 in (deresolver, sca_program) end; |
415 |
415 |
416 fun serialize_scala { labelled_name, reserved_syms, includes, single_module, |
416 fun serialize_scala { labelled_name, reserved_syms, includes, |
417 module_alias, class_syntax, tyco_syntax, const_syntax, program, |
417 module_alias, class_syntax, tyco_syntax, const_syntax, program, |
418 names, presentation_names } = |
418 names, presentation_names } = |
419 let |
419 let |
420 |
420 |
421 (* build program *) |
421 (* build program *) |