Mercurial > urweb

diff src/jscomp.sml @ 841:44c2c089ca15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of Option; Basis.current; fix missed cases in Jscomp.isNullable
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Jun 2009 11:13:18 -0400
parents e4a02e4fa35c
children 0f7e2cca6d9b
line wrap: on
line diff
--- a/src/jscomp.sml	Sat Jun 06 15:29:34 2009 -0400
+++ b/src/jscomp.sml	Sun Jun 07 11:13:18 2009 -0400
@@ -194,6 +194,8 @@
         fun isNullable (t, _) =
             case t of
                 TOption _ => true
+              | TList _ => true
+              | TDatatype (_, ref (Option, _)) => true
               | TRecord [] => true
               | _ => false