X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLex.x;h=dffb3553f8997cff25d541e6e58cfa6475dbbf8e;hp=a1aa2762a97526b38a19b5f7d622543f46f30153;hb=f2cc8b5bc34519a65581dc40b7bfebac97bffd73;hpb=7c085edd732bd1fd52e758017da9eac583bfba1a

diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x
index a1aa276..dffb355 100644
--- a/compiler/cmm/CmmLex.x
+++ b/compiler/cmm/CmmLex.x
@@ -139,6 +139,7 @@ data CmmToken
   | CmmT_jump
   | CmmT_foreign
   | CmmT_prim
+  | CmmT_return
   | CmmT_import
   | CmmT_switch
   | CmmT_case
@@ -214,6 +215,7 @@ reservedWordsFM = listToUFM $
 	( "jump",		CmmT_jump ),
 	( "foreign",		CmmT_foreign ),
 	( "prim",		CmmT_prim ),
+	( "return",		CmmT_return ),
 	( "import",		CmmT_import ),
 	( "switch",		CmmT_switch ),
 	( "case",		CmmT_case ),