Fix inspector error with empty hashtable

2006-02-02 05:30:03 +00:00 · 2006-02-02 05:30:03 +00:00 · ebcac67995
parent 5a3f39d488
commit ebcac67995
2 changed files with 2 additions and 1 deletions
--- a/library/test/inspector.factor
+++ b/library/test/inspector.factor
@ -12,3 +12,4 @@ V{ } clone inspector-stack set
 [ 1 2 3 ] (inspect)
 f (inspect)
 \ + (inspect)
+H{ } (inspect)
--- a/library/tools/inspector.factor
+++ b/library/tools/inspector.factor
@ -18,7 +18,7 @@ SYMBOL: inspector-stack
 : (inspect) ( obj -- )
    dup inspector-stack get push
    dup summary print
-    sheet sheet-numbers sheet. ;
+    sheet dup empty? [ drop ] [ sheet-numbers sheet. ] if ;

 : inspector-help ( -- )
    "Object inspector." print