From a620de2df902bfbe38fa31b7215885b912ff3fb1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 24 Jul 2013 17:00:31 -0400
Subject: no reason to have these as macros now that this is its own function

---
 Keyword.xs | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/Keyword.xs b/Keyword.xs
index a697266..eac81d5 100644
--- a/Keyword.xs
+++ b/Keyword.xs
@@ -11,21 +11,16 @@
 #define scalar(a) Perl_scalar(aTHX_ a)
 #endif
 
-#define REENTER_PARSER STMT_START {    \
-    ENTER;                     \
-    PL_curcop = &PL_compiling; \
-    SAVEVPTR(PL_op);           \
-} STMT_END
-
-#define LEAVE_PARSER LEAVE
-
 static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named)
 {
     I32 floor;
     CV *code;
     U8 errors;
 
-    REENTER_PARSER;
+    ENTER;
+
+    PL_curcop = &PL_compiling;
+    SAVEVPTR(PL_op);
     SAVEI8(PL_parser->error_count);
     PL_parser->error_count = 0;
 
@@ -34,7 +29,7 @@ static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named)
 
     errors = PL_parser->error_count;
 
-    LEAVE_PARSER;
+    LEAVE;
 
     if (errors) {
         ++PL_parser->error_count;
-- 
cgit v1.2.3