![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to smartdots.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to smartdots.fs CVS log | Up to [gforth] / gforth |
| version 1.6, 2012/03/27 23:02:01 | version 1.7, 2012/03/27 23:06:42 |
|---|---|
| Line 28 | Line 28 |
| : .string. ( addr u -- ) | : .string. ( addr u -- ) |
| .\" s\" " type '"' emit space ; | .\" s\" " type '"' emit space ; |
| : .addr. ( addr -- ) hex. ; | : .addr. ( addr -- ) |
| dup >name dup IF ." ' " .name drop ELSE drop hex. THEN ; | |
| Variable smart.s-skip | Variable smart.s-skip |