DO c EMIT LOOP Obsolete

I wonder why such a neat word hasn't become popular:

\ EMITS Prints character c n times.
: EMITS ( c n -- ) 0 ?DO DUP EMIT LOOP DROP ;

Examples:
: SPACES ( n -- ) BL SWAP EMITS ;
: STARS ( n -- ) [CHAR] 42 SWAP EMITS ;
[CHAR] - 8 EMITS
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Wed May 01 2002 - 09:44:16 PDT