363B5 |
#=?SKIP
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <rest> ; )
|
363E2 |
#>?SKIP
|
( #m #n → :: <ob1> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
35C54 |
#=ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
36F29 |
#<ITE
|
( #m #n → :: <ob1> <ob3> <rest> ; )
( #m #n → :: <ob2> <rest> ; )
|
36F3D |
#>ITE
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> <ob3> <rest> ; )
|
348D2 |
#=case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
348E2 |
OVER#=case
|
( #m #n → :: #m <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
|
34939 |
#=casedrop
|
( #m #n → :: <ob1> ; )
( #m #n → :: #m <ob2> <rest> ; )
Note: should be called OVER#=casedrop.
|
36590 |
#=casedrpfls
|
( #m #n → F )
( #m #n → :: #m <ob1> <rest> ; )
Note: should be called OVER#=caseDRPFLS.
|
36D9E |
#<>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
36D76 |
#<case
|
( #m #n → :: <ob1> ; )
( #m #n → :: <ob2> <rest> ; )
|
36DCB |
#>case
|
( #m #n → :: <ob2> <rest> ; )
( #m #n → :: <ob1> ; )
|
34A7E |
#0=?SEMI
|
( #0 → :: ; )
( # → :: <ob1> <rest> ; )
|
36383 |
#0=?SKIP
|
( #0 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
36F15 |
#0=ITE
|
( #0 → :: <ob1> <ob3> <rest> ; )
( # → :: <ob2> <rest> )
|
36ED4 |
DUP#0=IT
|
( #0 → :: #0 <ob1> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
36F51 |
DUP#0=ITE
|
( #0 → :: #0 <ob1> <ob3> <rest> ; )
( # → :: # <ob2> <rest> ; )
|
348FC |
#0=case
|
( #0 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
348F7 |
DUP#0=case
|
( #0 → :: #0 <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
3490E |
DUP#0=csedrp
|
( #0 → :: <ob1> ; )
( # → :: # <ob2> <rest> ; )
|
36D21 |
DUP#0=csDROP
|
( #0 → :: ; )
( # → :: # <ob1> <rest> ; )
|
36D8A |
#1=case
|
( #1 → :: <ob1> ; )
( # → :: <ob2> <rest> ; )
|
3639C |
#1=?SKIP
|
( #1 → :: <ob2> <rest> ; )
( # → :: <ob1> <rest> ; )
|
36DB2 |
#>2case
|
( #0/#1/#2 → :: <ob2> <rest> ; )
( # → :: <ob1> ; )
|
25E72 |
?CaseKeyDef
|
( # #' → :: ' ob1 T ; )
( # #' → :: <ob2> <rest> ; )
Compares two bints. If equal, quotes the
next object from the runsream and returns it
along with TRUE.
|
25E73 |
?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.
|