# HG changeset patch # User regensbu # Date 813949187 -3600 # Node ID ae25649cbbb10a4b12df6222a202f40e8309034e # Parent 4dd0651d692d35b9194f30a5353f1596ee7c76dc *** empty log message *** diff -r 4dd0651d692d -r ae25649cbbb1 src/HOLCF/domain/interface.ML --- a/src/HOLCF/domain/interface.ML Tue Oct 17 17:00:10 1995 +0100 +++ b/src/HOLCF/domain/interface.ML Tue Oct 17 17:59:47 1995 +0100 @@ -68,8 +68,8 @@ fun string_of_sort_emb [] = "" - | string_of_sort_emb [x] = x - | string_of_sort_emb (x::xs) = x^","^(string_of_sort_emb xs); + | string_of_sort_emb [x] = "\"" ^x^ "\"" + | string_of_sort_emb (x::xs) = "\"" ^x^ "\"" ^ ", "^(string_of_sort_emb xs); fun string_of_sort l = "["^ (string_of_sort_emb l)^"]";