EnumとInt32との比較でクラッシュしていたのをとりあえず落ちないように

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1367 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Dynamic.vb b/Tween/Dynamic.vb
index 1290d75..9bc405f 100644 (file)
--- a/Tween/Dynamic.vb
+++ b/Tween/Dynamic.vb
@@ -1468,7 +1468,11 @@ amphersand:
                         Case TypeCode.String
                             value = ParseEnum(text, target)
                     End Select
-                    If value IsNot Nothing Then Return Expression.Constant(value, type)
+                    Try
+                        If value IsNot Nothing Then Return Expression.Constant(value, type)
+                    Catch ex As Exception
+                        Throw ParseError(Res.ExpressionExpected)
+                    End Try
                 End If
             End If
         End If