From e20b0d94365c9f5ff493b14894685abdceab89ce Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 1 Jan 2009 11:16:57 -0500
Subject: Reactive if

---
 src/jscomp.sml | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index ac3c9792..5e7a2673 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -170,7 +170,19 @@ fun jsExp mode skip outer =
                                            str ":",
                                            fail,
                                            str ")"]
-                      | PCon _ => raise Fail "jsPat: PCon"
+                      | PCon (_, PConFfi {mod = "Basis", con = "True", ...}, NONE) =>
+                        strcat [str ("(d" ^ Int.toString depth ^ "?"),
+                                succ,
+                                str ":",
+                                fail,
+                                str ")"]
+                      | PCon (_, PConFfi {mod = "Basis", con = "False", ...}, NONE) =>
+                        strcat [str ("(d" ^ Int.toString depth ^ "?"),
+                                fail,
+                                str ":",
+                                succ,
+                                str ")"]
+                      | PCon _ => raise Fail "PCon"
                       | PRecord xps =>
                         let
                             val (_, succ) = foldl
-- 
cgit v1.2.3