From df19e2ee014f0473fc6be1947fdf34a45effa484 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 6 Dec 2011 21:11:58 -0800
Subject: [PATCH] regexp.parser: fix failing test
---
basis/regexp/parser/parser.factor | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/basis/regexp/parser/parser.factor b/basis/regexp/parser/parser.factor
index 41e9d19ba4..ae6820f09c 100644
--- a/basis/regexp/parser/parser.factor
+++ b/basis/regexp/parser/parser.factor
@@ -3,7 +3,8 @@
USING: peg.ebnf kernel math.parser sequences assocs arrays fry math
combinators regexp.classes strings splitting peg locals accessors
regexp.ast unicode.case unicode.script.private unicode.categories
-memoize interval-maps sets unicode.data combinators.short-circuit ;
+memoize interval-maps sets unicode.data combinators.short-circuit
+namespaces ;
IN: regexp.parser
: allowed-char? ( ch -- ? )
@@ -27,7 +28,7 @@ ERROR: bad-class name ;
[ [ simple ] keep ] H{ } map>assoc ;
MEMO: simple-script-table ( -- table )
- script-table interval-values members simple-table ;
+ script-table get-global interval-values members simple-table ;
MEMO: simple-category-table ( -- table )
categories simple-table ;