![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to see-ext.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to see-ext.fs CVS log | Up to [gforth] / gforth |
| version 1.12, 2007/12/31 19:02:24 | version 1.13, 2012/09/17 20:10:23 |
|---|---|
| Line 26 | Line 26 |
| : c-@local# | : c-@local# |
| Display? IF | Display? IF |
| S" @local" 0 .string | S" @local" 0 .string |
| dup @ dup 1 cells / abs 0 <# #S rot sign #> 0 .string bl cemit | dup @ dup cell/ abs 0 <# #S rot sign #> 0 .string bl cemit |
| THEN | THEN |
| cell+ ; | cell+ ; |
| Line 45 | Line 45 |
| : c-f@local# | : c-f@local# |
| Display? IF | Display? IF |
| S" f@local" 0 .string | S" f@local" 0 .string |
| dup @ dup 1 floats / abs 0 <# #S rot sign #> 0 .string bl cemit | dup @ dup float/ abs 0 <# #S rot sign #> 0 .string bl cemit |
| THEN | THEN |
| cell+ ; | cell+ ; |