unexpected behavior of ACCEPT

Here is a puzzel I just ran into

: q1 1000 ms key? key emit ;

: q2 10000 ms key? if pad 10 accept pad swap dump then ;

q1 (immediatly type 1) returns 1
q2 (immediately type 1234) returns 234
q2 (wait 20 seconds type 1234) returns 1234

Where does the leading character go?

Ken B

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Mon May 02 2005 - 14:38:54 PDT