From 5b636c6a2a2c5cfee20824f4e87592eb7c2a6c6f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 18 Jan 2009 19:33:28 -0600
Subject: [PATCH] Use with-variable instead of on

---
 basis/inspector/inspector.factor | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/basis/inspector/inspector.factor b/basis/inspector/inspector.factor
index ec8b950af3..1347b4f207 100644
--- a/basis/inspector/inspector.factor
+++ b/basis/inspector/inspector.factor
@@ -39,11 +39,12 @@ M: mirror fix-slot-names
     [ [ slot-name boa ] dip ] { } assoc-map-as ;
 
 : (describe) ( obj assoc -- keys )
-    pprint-string-cells? on
-    [ summary. ] [
-        dup hashtable? [ sort-unparsed-keys ] when
-        [ fix-slot-names add-numbers simple-table. ] [ keys ] bi
-    ] bi* ;
+    t pprint-string-cells? [
+        [ summary. ] [
+            dup hashtable? [ sort-unparsed-keys ] when
+            [ fix-slot-names add-numbers simple-table. ] [ keys ] bi
+        ] bi*
+    ] with-variable ;
 
 PRIVATE>