diff options
Diffstat (limited to 'src/interp/ptrees.boot')
| -rw-r--r-- | src/interp/ptrees.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/ptrees.boot b/src/interp/ptrees.boot index 3ddc9d96..3f867a1d 100644 --- a/src/interp/ptrees.boot +++ b/src/interp/ptrees.boot @@ -446,6 +446,12 @@ pfIfCond pf == second pf -- was ==> pfIfThen pf == third pf -- was ==> pfIfElse pf == CADDDR pf -- was ==> +-- %Match := (Expr: Expr, Alts: [Exit]) + +pfCase(pfexpr, pfalts) == pfTree("%Match",[pfexpr,pfalts]) +pfCase? pf == pfAbSynOp?(pf,"%Match") +pfCaseScrutinee pf == second pf +pfCaseAlternatives pf == third pf -- Sequence := (Args: [Expr]) |