d:describe now resolves class name
FossilOrigin-Name: 2bce0e9ec38669bd4e644e949cd14baf2f75d9b76de4828bae8a788171eda0d1
This commit is contained in:
parent
8e4faa5479
commit
1611c8898b
2 changed files with 1241 additions and 1239 deletions
|
@ -16,7 +16,7 @@ comment format this introduces to add them inline.
|
|||
d:lookup nl
|
||||
dup 'Name:____ s:put d:name s:put nl
|
||||
dup 'Address:_ s:put d:xt fetch n:put nl
|
||||
dup 'Class:___ s:put d:class fetch n:put nl
|
||||
dup 'Class:___ s:put d:class fetch dup n:put d:lookup-xt dup n:-zero? [ sp d:name s:put ] &drop choose nl
|
||||
dup 'Source:__ s:put d:source fetch dup n:-zero? &s:put &drop choose nl
|
||||
dup 'Stack:___ s:put d:stack fetch dup n:-zero? &s:put &drop choose nl
|
||||
drop ;
|
||||
|
|
2478
vm/nga-c/image.c
2478
vm/nga-c/image.c
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue