From de64b753946034895bca74bc198b6090cb2d5bcc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 25 Apr 2015 06:15:15 -0700
Subject: Remove silly package lookup from keywordp.

This tiny change yields a 165% (2.65X) speedup in the
tst/tests/011/mandel.txr test case.

* lib.c (keywordp): Use keyword_package_var instead of the
keyword_package macro which looks up the global environment.

* parser.y (sym_helper): Likewise.
---
 parser.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.y')

diff --git a/parser.y b/parser.y
index 071a090f..83d1b841 100644
--- a/parser.y
+++ b/parser.y
@@ -1041,7 +1041,7 @@ static val sym_helper(scanner_t *scnr, wchar_t *lexeme, val meta_allowed)
     *colon = 0;
 
   if (colon == lexeme) {
-    package = keyword_package;
+    package = keyword_package_var;
     sym_name = string(colon + 1);
     free(tokfree);
   } else if (colon != 0) {
-- 
cgit v1.2.3