Fixing everything for mandatory stack effects

[factor.git] / extra / xmode / loader / loader.factor

diff --git a/extra/xmode/loader/loader.factor b/extra/xmode/loader/loader.factor
index 68b2c85a7db0207e704d0f7ecb42b52e97993406..5cf367594136a5afa7d57f9ef8a23f8a7b434932 100755 (executable)
--- a/extra/xmode/loader/loader.factor
+++ b/extra/xmode/loader/loader.factor
@@ -49,7 +49,8 @@ TAG: KEYWORDS ( rule-set tag -- key value )
 
 TAGS>
 
-: ?<regexp> dup [ ignore-case? get <regexp> ] when ;
+: ?<regexp> ( string/f -- regexp/f )
+    dup [ ignore-case? get <regexp> ] when ;
 
 : (parse-rules-tag) ( tag -- rule-set )
     <rule-set>