0FC64 |
#=?SKIP
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <rest> ; )
|
0FC91 |
#>?SKIP
|
( #m #n → :: <ob1> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
0F507 |
#=ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
10718 |
#<ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
1072C |
#>ITE
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <ob3> <rest> ; )
|
0D435 |
#=case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
0D445 |
OVER#=case
|
( #m #n → :: #m <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
|
0D49C |
#=casedrop
|
( #m #n → :: <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
Note: should be called OVER#=casedrop.
|
0FE3F |
#=casedrpfls
|
( #m #n → F )
( #m #n → :: #m <ob1> <rest> ; )
Note: should be called OVER#=caseDRPFLS.
|
105B5 |
#<>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
1058D |
#<case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
105E2 |
#>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
0D5E1 |
#0=?SEMI
|
( #0 → :: ; )
( # → :: <ob1> <rest> ; )
|
0FC22 |
#0=?SKIP
|
( #0 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
10704 |
#0=ITE
|
( #0 → :: <ob1> <ob3> <rest> ; )
( # → :: <ob2> <rest> )
|
106C3 |
DUP#0=IT
|
( #0 → :: #0 <ob1> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
10740 |
DUP#0=ITE
|
( #0 → :: #0 <ob1> <ob3> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
0D45F |
#0=case
|
( #0 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
0D45A |
DUP#0=case
|
( #0 → :: #0 <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
0D471 |
DUP#0=csedrp
|
( #0 → :: <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
10538 |
DUP#0=csDROP
|
( #0 → :: ; )
( # → :: # <ob1> <rest> ; )
|
105A1 |
#1=case
|
( #1 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
0FC4B |
#1=?SKIP
|
( #1 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
105C9 |
#>2case
|
( #0/#1/#2 → :: <ob2> <rest> ; )
( # → :: <ob1> ; )
|
24008 |
?CaseKeyDef
|
( # #' → :: ' ob1 T ; )
( # #' → :: <ob2> <rest> ; )
Compares two bints. If equal, quotes the
next object from the runsream and returns it
along with TRUE.
|
2403A |
?CaseRomptr@
|
( # #' → ob T )
( # #' → F )
( # #' → :: <ob2> <rest> ; )
Compares two bints. If equal, tries to
resolve the rompointer which must be the next
object in the runstream. The ROMPTR@ pushes
TRUE when successful, so this entry can be
used directly for key handlers.
|