equal
deleted
inserted
replaced
103 |
103 |
104 type serializer = Token.T list (*arguments*) -> { |
104 type serializer = Token.T list (*arguments*) -> { |
105 labelled_name: string -> string, |
105 labelled_name: string -> string, |
106 reserved_syms: string list, |
106 reserved_syms: string list, |
107 includes: (string * Pretty.T) list, |
107 includes: (string * Pretty.T) list, |
108 single_module: bool, |
|
109 module_alias: string -> string option, |
108 module_alias: string -> string option, |
110 class_syntax: string -> string option, |
109 class_syntax: string -> string option, |
111 tyco_syntax: string -> Code_Printer.tyco_syntax option, |
110 tyco_syntax: string -> Code_Printer.tyco_syntax option, |
112 const_syntax: string -> Code_Printer.activated_const_syntax option, |
111 const_syntax: string -> Code_Printer.activated_const_syntax option, |
113 program: Code_Thingol.program, |
112 program: Code_Thingol.program, |
312 in |
311 in |
313 serializer args { |
312 serializer args { |
314 labelled_name = Code_Thingol.labelled_name thy proto_program, |
313 labelled_name = Code_Thingol.labelled_name thy proto_program, |
315 reserved_syms = reserved, |
314 reserved_syms = reserved, |
316 includes = includes, |
315 includes = includes, |
317 single_module = is_some module_name, |
|
318 module_alias = if is_some module_name then K module_name else Symtab.lookup module_alias, |
316 module_alias = if is_some module_name then K module_name else Symtab.lookup module_alias, |
319 class_syntax = Symtab.lookup class_syntax, |
317 class_syntax = Symtab.lookup class_syntax, |
320 tyco_syntax = Symtab.lookup tyco_syntax, |
318 tyco_syntax = Symtab.lookup tyco_syntax, |
321 const_syntax = Symtab.lookup const_syntax, |
319 const_syntax = Symtab.lookup const_syntax, |
322 program = program, |
320 program = program, |