diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/scriptum.lux | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux index 2b2d6e01b..4512ab982 100644 --- a/stdlib/source/program/scriptum.lux +++ b/stdlib/source/program/scriptum.lux @@ -103,7 +103,7 @@ ... (^ (list [_ single_tag])) ... (if interface? ... (format "(: " (pprint_type_definition level type_function_info #.None module interface? recursive_type? type) text.new_line " " single_tag ")") -... (format "{#" single_tag " " (pprint_type_definition level type_function_info #.None module interface? recursive_type? type) "}")) +... (format "(Record [#" single_tag " " (pprint_type_definition level type_function_info #.None module interface? recursive_type? type) "])")) ... _ ... (case [recursive_type? type] @@ -158,7 +158,7 @@ ... (text.interposed (format text.new_line " ")))] ... (if interface? ... member_docs -... (format "{" member_docs "}"))))) +... (format "(Record [" member_docs "])"))))) ... [_ (#.Function input output)] ... (let [[ins out] (type.flat_function type)] @@ -269,10 +269,11 @@ ... [Text Code Type]) ... (type: Organization -... {#types (List Value) -... #macros (List [Text Code]) -... #implementations (List Value) -... #values (List Value)}) +... (Record +... [#types (List Value) +... #macros (List [Text Code]) +... #implementations (List Value) +... #values (List Value)])) ... (def: (lux_module? module_name) ... (-> Text Bit) @@ -314,10 +315,10 @@ ... (def: (organize_definitions defs) ... (-> (List [Text Definition]) Organization) -... (let [init {#types (list) +... (let [init [#types (list) ... #macros (list) ... #implementations (list) -... #values (list)}] +... #values (list)]] ... (|> (list\mix add_definition init defs) ... (revised@ #types (list.sorted name_sort)) ... (revised@ #macros (list.sorted name_sort)) |