(X-STRAIGHT)

I tried to extend OPERATOR interface to include STRAIGHT . These two
attempts appear to work but both seem to cause the interactive shell to lock
up occasionally. What's missing?

: (X-STRAIGHT) ( c-addr u -- )
   OVER + SWAP DO (X-KEY) I C! LOOP ;

: (X-STRAIGHT) ( c-addr u -- )
  -RIE
    OVER + SWAP DO 252 (X-EMIT) X-IN I C! LOOP
  +RIE ;
----------------------------------------------------------------------
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 Mon Jun 24 2002 - 06:43:01 PDT