![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prims2x.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to prims2x.fs CVS log | Up to [gforth] / gforth |
| version 1.88, 2001/03/01 14:27:22 | version 1.89, 2001/03/04 13:39:34 |
|---|---|
| Line 1167 Variable c-flag | Line 1167 Variable c-flag |
| )) <- simple-primitive ( -- ) | )) <- simple-primitive ( -- ) |
| (( {{ init-combined }} | (( {{ init-combined }} |
| ` = (( white ++ {{ start }} forth-ident {{ end add-prim }} )) ++ | ` = white ** (( {{ start }} forth-ident {{ end add-prim }} white ** )) ++ |
| nleof {{ process-combined }} | nleof {{ process-combined }} |
| )) <- combined-primitive | )) <- combined-primitive |