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))