[svn] r6485: nemerle/trunk/ncc/typing/Macros.n

[stn]

Log:
Fixed the 'throw' clause handling in TraverseExpr when no exception is specified (the 'throw;' command).

Author: stn
Date: Sun Aug  6 00:09:50 2006
New Revision: 6485

Modified:
   nemerle/trunk/ncc/typing/Macros.n

Modified: nemerle/trunk/ncc/typing/Macros.n
==============================================================================
--- nemerle/trunk/ncc/typing/Macros.n	(original)
+++ nemerle/trunk/ncc/typing/Macros.n	Sun Aug  6 00:09:50 2006
@@ -952,6 +952,9 @@
             <[ match ($(traverse (mexpr))) {.. $cases } ]>
 
           | <[ throw $exc ]> =>
+            if (exc == null)
+              <[ throw $exc ]>
+            else
             <[ throw $(traverse (exc)) ]>
 
           | PExpr.TryWith (body, exn, exn_ty, handler) =>