83DDB |
#=?SKIP
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <rest> ; )
|
83E08 |
#>?SKIP
|
( #m #n → :: <ob1> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
8369C |
#=ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
848A8 |
#<ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
848BC |
#>ITE
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <ob3> <rest> ; )
|
8136A |
#=case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
81365 |
OVER#=case
|
( #m #n → :: #m <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
|
8136F |
#=casedrop
|
( #m #n → :: <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
Note: should be called OVER#=casedrop.
|
83FB6 |
#=casedrpfls
|
( #m #n → F )
( #m #n → :: #m <ob1> <rest> ; )
Note: should be called OVER#=caseDRPFLS.
|
84745 |
#<>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
8471D |
#<case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
84772 |
#>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
815B3 |
#0=?SEMI
|
( #0 → :: ; )
( # → :: <ob1> <rest> ; )
|
83DA9 |
#0=?SKIP
|
( #0 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
84894 |
#0=ITE
|
( #0 → :: <ob1> <ob3> <rest> ; )
( # → :: <ob2> <rest> )
|
84853 |
DUP#0=IT
|
( #0 → :: #0 <ob1> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
848D0 |
DUP#0=ITE
|
( #0 → :: #0 <ob1> <ob3> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
81360 |
#0=case
|
( #0 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
81FAE |
DUP#0=case
|
( #0 → :: #0 <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
81388 |
DUP#0=csedrp
|
( #0 → :: <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
846C8 |
DUP#0=csDROP
|
( #0 → :: ; )
( # → :: # <ob1> <rest> ; )
|
84731 |
#1=case
|
( #1 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
83DC2 |
#1=?SKIP
|
( #1 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
84759 |
#>2case
|
( #0/#1/#2 → :: <ob2> <rest> ; )
( # → :: <ob1> ; )
|
82BCF |
?CaseKeyDef
|
( # #' → :: ' ob1 T ; )
( # #' → :: <ob2> <rest> ; )
Compares two bints. If equal, quotes the
next object from the runsream and returns it
along with TRUE.
|
82BED |
?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.
|