6336C |
#=?SKIP
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <rest> ; )
|
63399 |
#>?SKIP
|
( #m #n → :: <ob1> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
62C2D |
#=ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
63E9D |
#<ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
63EB1 |
#>ITE
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <ob3> <rest> ; )
|
6186C |
#=case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
6187C |
OVER#=case
|
( #m #n → :: #m <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
|
618D3 |
#=casedrop
|
( #m #n → :: <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
Note: should be called OVER#=casedrop.
|
63547 |
#=casedrpfls
|
( #m #n → F )
( #m #n → :: #m <ob1> <rest> ; )
Note: should be called OVER#=caseDRPFLS.
|
63D3A |
#<>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
63D12 |
#<case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
63D67 |
#>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
61A18 |
#0=?SEMI
|
( #0 → :: ; )
( # → :: <ob1> <rest> ; )
|
6333A |
#0=?SKIP
|
( #0 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
63E89 |
#0=ITE
|
( #0 → :: <ob1> <ob3> <rest> ; )
( # → :: <ob2> <rest> )
|
63E48 |
DUP#0=IT
|
( #0 → :: #0 <ob1> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
63EC5 |
DUP#0=ITE
|
( #0 → :: #0 <ob1> <ob3> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
61896 |
#0=case
|
( #0 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
61891 |
DUP#0=case
|
( #0 → :: #0 <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
618A8 |
DUP#0=csedrp
|
( #0 → :: <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
63CBD |
DUP#0=csDROP
|
( #0 → :: ; )
( # → :: # <ob1> <rest> ; )
|
63D26 |
#1=case
|
( #1 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
63353 |
#1=?SKIP
|
( #1 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
63D4E |
#>2case
|
( #0/#1/#2 → :: <ob2> <rest> ; )
( # → :: <ob1> ; )
|
3FF1B |
?CaseKeyDef
|
( # #' → :: ' ob1 T ; )
( # #' → :: <ob2> <rest> ; )
Compares two bints. If equal, quotes the
next object from the runsream and returns it
along with TRUE.
|
3FF48 |
?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.
|