diff --git a/library/test/inspector.factor b/library/test/inspector.factor index 509835b4e6..ed5017d3b8 100644 --- 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) diff --git a/library/tools/inspector.factor b/library/tools/inspector.factor index b74e04bf17..b41c3d0e6f 100644 --- 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