From 5b0d7bb3b7746c2f2da314ca4a3383e61b75b283 Mon Sep 17 00:00:00 2001
From: erg <erg@erg-desktop.(none)>
Date: Wed, 21 May 2008 16:08:24 -0500
Subject: [PATCH] fix another unit test

---
 extra/regexp4/regexp4.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/extra/regexp4/regexp4.factor b/extra/regexp4/regexp4.factor
index dbb7495826..add2e0c477 100644
--- a/extra/regexp4/regexp4.factor
+++ b/extra/regexp4/regexp4.factor
@@ -393,7 +393,9 @@ DEFER: parse-character-class
 : parse-character-class-second ( regexp -- )
     get-next
     {
+        ! { CHAR: [ [ CHAR: [ push-stack next ] }
         { CHAR: ] [ CHAR: ] push-stack next ] }
+        { CHAR: - [ CHAR: - push-stack next ] }
         [ 2drop ]
     } case ;
 
@@ -401,8 +403,9 @@ DEFER: parse-character-class
     get-next
     {
         { CHAR: ^ [ caret dupd push-stack next parse-character-class-second ] }
-        { CHAR: [ [ CHAR: [ push-stack next ] }
+        ! { CHAR: [ [ CHAR: [ push-stack next ] }
         { CHAR: ] [ CHAR: ] push-stack next ] }
+        { CHAR: - [ CHAR: - push-stack next ] }
         [ 2drop ]
     } case ;