Diff | Source/Git

Download diff

	3125a52331ae6d7a6bb77d0ce92a95ddc2580547		3f44ecfab72cfb21d66e7a3075cfec2b3f7c8773
44	: resolve ( - ) addr @ @ xt->d dup if name ;then drop ;	44	: resolve ( - ) addr @ @ xt->d dup if name ;then drop ;
45	: .op ( a- ) dup getLength swap type 10 swap -	45	: .op ( a- ) dup getLength swap type 10 swap -
46	dup 0 <if drop space ;then for space next ;	46	dup 0 <if drop space ;then for space next ;
47	: .value ( - ) addr ++ addr @ @ . pad resolve drop ;	47	: .word ( - ) addr @ @ . pad resolve drop ;
		48	: .value ( - ) addr ++ .word ;
48		49
49	( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )	50	( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
50	( Table words )	51	( Table words )
...		...
104	: .quote ( a- ) char: ' emit dup emit char: ' emit space ;	105	: .quote ( a- ) char: ' emit dup emit char: ' emit space ;
105	: .ascii? ( a- )	106	: .ascii? ( a- )
106	dup 32 128 within if ." Char: " .quote .paren ;then	107	dup 32 128 within if ." Char: " .quote .paren ;then
107	dup xt->d d->name .op .paren ;	108	drop s" <call>" .op .word ;; dup xt->d d->name .op .paren ;
108		109
109	: decompile ( - )	110	: decompile ( - )
110	addr @ @ dup 0 30 within	111	addr @ @ dup 0 30 within

Retro Forth