![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.3, 1998/07/08 16:47:33 | version 1.4, 1998/07/08 19:55:03 |
|---|---|
| Line 43 Defer source ( -- addr count ) \ core | Line 43 Defer source ( -- addr count ) \ core |
| \ name 13feb93py | \ name 13feb93py |
| : capitalize ( addr len -- addr len ) \ gforth | |
| 2dup chars chars bounds | |
| ?DO I c@ toupper I c! 1 chars +LOOP ; | |
| [IFUNDEF] (name) \ name might be a primitive | [IFUNDEF] (name) \ name might be a primitive |
| : (name) ( -- c-addr count ) | : (name) ( -- c-addr count ) |