up

[phd-thesis.git] / appx / lst / generic_print.icl

diff --git a/appx/lst/generic_print.icl b/appx/lst/generic_print.icl
index ef13640..a802d99 100644 (file)
--- a/appx/lst/generic_print.icl
+++ b/appx/lst/generic_print.icl
@@ -13,11 +13,13 @@ gPrint{|EITHER|} fl _  (LEFT x)   acc = fl x acc
 gPrint{|EITHER|} _  fr (RIGHT x)  acc = fr x acc
 
 gPrint{|OBJECT|}        f     (OBJECT x) acc = f x acc
-gPrint{|CONS of gcd|}   f     (CONS x)   acc = ["(", gcd.gcd_name, " ":f x [")":acc]]
-gPrint{|RECORD of grd|} f     (RECORD x) acc = ["{", grd.grd_name, " | ":f x ["}":acc]]
-gPrint{|FIELD of gfd|}  f     (FIELD x)  acc = [pre, gfd.gfd_name, "=":f x acc]
-where
-       pre = if (gfd.gfd_index == 0) "" ", "
+gPrint{|CONS of gcd|}   f     (CONS x)   acc
+       = ["(", gcd.gcd_name, " ":f x [")":acc]]
+gPrint{|RECORD of grd|} f     (RECORD x) acc
+       = ["{", grd.grd_name, " | ":f x ["}":acc]]
+gPrint{|FIELD of gfd|}  f     (FIELD x)  acc
+       = [pre, gfd.gfd_name, "=":f x acc]
+where pre = if (gfd.gfd_index == 0) "" ", "
 
 :: T = {f1 :: Int, f2 :: (Real, [?Int])}
 derive gPrint (,), [], ?, T