From a72c506c17261eb3775070b76c7db9e92c25f0e2 Mon Sep 17 00:00:00 2001 From: Jonathan Wright Date: Mon, 7 Jan 2008 19:49:48 +1300 Subject: [PATCH] Fixing Block slotSummary getSlot("Block") slotSummary => "method(...)" Now it prints a slot summary for Block. --- libs/iovm/io/A2_Object.io | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/libs/iovm/io/A2_Object.io b/libs/iovm/io/A2_Object.io index 3bb78fc..ab4eca0 100644 --- a/libs/iovm/io/A2_Object.io +++ b/libs/iovm/io/A2_Object.io @@ -249,7 +249,9 @@ Object do( ) slotSummary := method(keyword, - if(getSlot("self") type == "Block", return getSlot("self") asSimpleString) + if(getSlot("self") type == "Block" and getSlot("self") == getSlot("Block"), + return getSlot("self") asSimpleString + ) s := Sequence clone s appendSeq(" ", getSlot("self") asSimpleString, ":\n") slotDescriptions := slotDescriptionMap -- 1.5.3.7.11.g4f3d3