equal
deleted
inserted
replaced
416 val names_all = Graph.all_succs program2 names2; |
416 val names_all = Graph.all_succs program2 names2; |
417 val includes = abs_includes names_all; |
417 val includes = abs_includes names_all; |
418 val program4 = Graph.subgraph (member (op =) names_all) program3; |
418 val program4 = Graph.subgraph (member (op =) names_all) program3; |
419 val empty_funs = filter_out (member (op =) abortable) |
419 val empty_funs = filter_out (member (op =) abortable) |
420 (Code_Thingol.empty_funs program3); |
420 (Code_Thingol.empty_funs program3); |
421 val _ = if null empty_funs then () else error ("No defining equations for " |
421 val _ = if null empty_funs then () else error ("No code equations for " |
422 ^ commas (map (Sign.extern_const thy) empty_funs)); |
422 ^ commas (map (Sign.extern_const thy) empty_funs)); |
423 in |
423 in |
424 serializer module args (labelled_name thy program2) reserved includes |
424 serializer module args (labelled_name thy program2) reserved includes |
425 (Symtab.lookup module_alias) (Symtab.lookup class') |
425 (Symtab.lookup module_alias) (Symtab.lookup class') |
426 (Symtab.lookup tyco') (Symtab.lookup const') |
426 (Symtab.lookup tyco') (Symtab.lookup const') |