steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix inspector error with empty hashtable

darcs
slava 2006-02-02 05:30:03 +00:00
parent 5a3f39d488
commit ebcac67995
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/test/inspector.factor
View File

@ -12,3 +12,4 @@ V{ } clone inspector-stack set
[ 1 2 3 ] (inspect) [ 1 2 3 ] (inspect)
f (inspect) f (inspect)
\ + (inspect) \ + (inspect)
H{ } (inspect)

2
library/tools/inspector.factor
View File

@ -18,7 +18,7 @@ SYMBOL: inspector-stack
: (inspect) ( obj -- ) : (inspect) ( obj -- )
dup inspector-stack get push dup inspector-stack get push
dup summary print dup summary print
sheet sheet-numbers sheet. ; sheet dup empty? [ drop ] [ sheet-numbers sheet. ] if ;
: inspector-help ( -- ) : inspector-help ( -- )
"Object inspector." print "Object inspector." print