Lines Matching refs:IF
22 ( TEST IF ANY BITS ARE SET; ANSWER IN BASE 1 )
23 { : BITSSET? IF 0 0 ELSE 0 THEN ; -> }
419 [ -3 2 / -2 = INVERT ] LITERAL IF POSTPONE \ THEN ;
421 [ -3 2 / -1 = INVERT ] LITERAL IF POSTPONE \ THEN ;
595 0 SWAP BEGIN DUP WHILE DUP MSB AND IF >R 1+ R> THEN 2* REPEAT DROP ;
658 TESTING IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE
660 { : GI1 IF 123 THEN ; -> }
661 { : GI2 IF 123 ELSE 234 THEN ; -> }
687 { : GI6 ( N -- 0,1,..N ) DUP IF DUP >R 1- RECURSE R> THEN ; -> }
717 { : GD5 123 SWAP 0 DO I 4 > IF DROP 234 LEAVE THEN LOOP ; -> }
724 I 1+ 0 DO I J + 3 = IF I UNLOOP I UNLOOP EXIT THEN 1+ LOOP
792 : RESCAN? -1 SCANS +! SCANS @ IF 0 >IN ! THEN ;
814 >R SWAP R@ = IF \ MAKE SURE STRINGS HAVE SAME LENGTH
815 R> ?DUP IF \ IF NON-EMPTY STRINGS
817 OVER C@ OVER C@ - IF 2DROP <FALSE> UNLOOP EXIT THEN
821 2DROP <TRUE> \ IF WE GET HERE, STRINGS MATCH