Lines Matching refs:drop

18 : empty   ( xn..x1 -- ) depth 0 ?do drop loop ;
48             2drop
60 : convert   char+ 65535 >number drop ;  \ cribbed from DPANS A.6.2.0970
65 : nip     ( y x -- x )     swap drop ; 
72     drop else spaces
86     repeat 2drop   0 0 (local)
113         IF  drop [char] .  THEN  emit
117   dup .4 space .4 ." - " .4 space .4 drop  16 /dump +!  space .chars ;
124     drop r> base ! ;
130 : brand-wordlist  ( wid -- )   last-word >name drop wid-set-name ;
145     does>  @ search> drop >search ;
154 : previous  ( --  )  search> drop ; 
173     search> drop  
185         type drop 
187         drop ." (unnamed wid) " x.
233  	begin dup 0x80 u< 0= while emit repeat drop