From e4a2b671d30beda698b120e35a3c440d2bd9ef84 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 24 Nov 2008 22:16:29 -0600 Subject: [PATCH] remove flags from transition-tables --- basis/regexp/transition-tables/transition-tables.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/regexp/transition-tables/transition-tables.factor b/basis/regexp/transition-tables/transition-tables.factor index 80317a1b66..5375d813e1 100644 --- a/basis/regexp/transition-tables/transition-tables.factor +++ b/basis/regexp/transition-tables/transition-tables.factor @@ -20,18 +20,19 @@ TUPLE: default ; : ( from to obj -- transition ) literal-transition make-transition ; + : ( from to obj -- transition ) class-transition make-transition ; + : ( from to -- transition ) t default-transition make-transition ; -TUPLE: transition-table transitions start-state final-states flags ; +TUPLE: transition-table transitions start-state final-states ; : ( -- transition-table ) transition-table new H{ } clone >>transitions - H{ } clone >>final-states - H{ } clone >>flags ; + H{ } clone >>final-states ; : maybe-initialize-key ( key hashtable -- ) 2dup key? [ 2drop ] [ H{ } clone -rot set-at ] if ;