Lines Matching refs:drop

93   create here 0 , ['] drop , 0
202 : getenv?  getenv -1 = if false else drop true then ;
206 	2 pick 0= if 2drop 2drop true exit then
207 	dup 0= if 2drop 2drop false exit then
211 			over 13 = or over 44 = or swap drop
215 		2over 2over drop over compare-insensitive 0= if
216 			2 pick over = if 2drop 2drop true exit then
219 			swap drop if 2drop 2drop true exit then
222 			over 13 = or over 44 = or swap drop
227 	2drop 2drop false
233 	else drop false then
235 		swap drop 0>
236 	else drop false then
239 		swap drop 0>
240 	else drop false then
382   drop
526   r> drop
636   name_buffer .len @ over <= if 2drop false exit then
675     2drop free drop
874   drop
897     compare 0= if drop drop r> exit then ( found it )
907     drop drop drop drop
1008   dup 0= if true to any_conf_read? drop exit then
1009   >r 2drop r>
1012     print_syntax_error drop exit
1016     print_line drop exit
1019     ." Warning: error reading file " print_current_file cr drop exit
1023     drop exit
1053   fd @ s' nextboot_enable="NO" ' fwrite ( fd buf len -- nwritten ) drop
1059   ['] peek_file catch if 2drop then
1065     ['] rewrite_nextboot_file catch if 2drop then
1143     drop
1156     drop
1200   -1 = if drop else free abort" Freeing error" then
1204     2drop
1215     2swap 2drop
1274   2drop 2drop
1276   r> drop
1301   drop
1306     drop
1347     drop
1366       newmodulepath drop free-memory
1367       oldmodulepath drop free-memory
1373   path newmodulepath drop swap move
1374   newmodulepath drop path nip
1382     newmodulepath drop free-memory
1389       newmodulepath drop free-memory
1390       oldmodulepath drop free-memory
1427   dup 0= if exit else drop then
1439   dup -1 = if drop 0 else 1 then
1467     drop
1479     drop
1497   0 ?do 2drop loop
1529   r> drop
1553     0 argv[] drop c@ [char] - <> if
1567     drop free if EFREE throw then
1584   drop ( empty string )
1593     drop