[Gd-chatter] r11522 - trunk/fundev/sources/io

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Dec  5 02:15:49 2007
New Revision: 11522

Modified:
   trunk/fundev/sources/io/print.dylan
Log:
job: fd

Print object address for unprintable objects.


Modified: trunk/fundev/sources/io/print.dylan
==============================================================================
--- trunk/fundev/sources/io/print.dylan	(original)
+++ trunk/fundev/sources/io/print.dylan	Wed Dec  5 02:15:49 2007
@@ -369,12 +369,12 @@
     let obj-class = object.object-class;
     let name = obj-class.debug-name;
     if (name)
-      write(stream, "instance of ");
       write(stream, as-lowercase(as(<byte-string>, name)));
     else
-      write(stream, "instance of ");
       print(obj-class, stream);
-    end if
+    end if;
+    write(stream, " ");
+    write(stream, machine-word-to-string(address-of(object)));
   end;
 end method;