feat(pointfree): add caseq()

thi-ng · Mar 31, 2018 · 5db90c5 · 5db90c5
1 parent 0da93da
commit 5db90c5
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/packages/pointfree/src/index.ts b/packages/pointfree/src/index.ts
@@ -1135,6 +1135,12 @@ export const cases = (cases: IObjectOf<StackProc>) =>
         illegalState(`no matching case for: ${tos}`);
     };
 
+export const casesq = (ctx: StackContext) => {
+    const stack = ctx[0];
+    $(stack, 2);
+    return cases(stack.pop())(ctx);
+};
+
 //////////////////// Loop constructs  ////////////////////
 
 /**