crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

d:describe now resolves class name

Browse source 
FossilOrigin-Name: 2bce0e9ec38669bd4e644e949cd14baf2f75d9b76de4828bae8a788171eda0d1
This commit is contained in:
crc 2024-09-09 15:52:55 +00:00
parent 8e4faa5479
commit 1611c8898b
2 changed files with 1241 additions and 1239 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
interface/stack-comments.retro
View file

@ -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
View file

File diff suppressed because it is too large Load diff