![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to comp.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.107, 2011/09/01 20:09:23 | version 1.108, 2011/09/22 10:05:11 |
|---|---|
| Line 483 doer? :dovar [IF] | Line 483 doer? :dovar [IF] |
| Header reveal here lastcfa ! 0 A, 0 , DOES> ; | Header reveal here lastcfa ! 0 A, 0 , DOES> ; |
| [THEN] | [THEN] |
| : buffer: ( u "name" -- ) \ core ext | |
| Create allot ; | |
| has? flash [IF] | has? flash [IF] |
| : (variable) dpp @ normal-dp = IF Create dpp @ | : (variable) dpp @ normal-dp = IF Create dpp @ |
| ELSE normal-dp @ Constant dpp @ ram THEN ; | ELSE normal-dp @ Constant dpp @ ram THEN ; |