6d76c95d5f8a — Leonard Ritter 27 days ago
* improved repr output
1 files changed, 6 insertions(+), 0 deletions(-)

M lib/tukan/uvm.sc
M lib/tukan/uvm.sc +6 -0
@@ 1203,6 1203,8 @@ type+ Atom
                 repr str
         case Cell (table)
             local str : String
+            if (not ('none? table.meta))
+                'append str "(setmeta "
             'append str "("
             let f =
                 Cell.gen-each-index

          
@@ 1235,6 1237,10 @@ type+ Atom
                         count += 1
             f table str count
             'append str ")"
+            if (not ('none? table.meta))
+                'append str " "
+                'append str (uatom-repr table.meta)
+                'append str ")"
             deref str
         default
             String