new accessors

2008-09-02 03:01:27 -05:00 · 2008-09-02 03:01:27 -05:00 · 299719ed5e
parent afbe5df0bd
commit 299719ed5e
1 changed files with 2 additions and 2 deletions
--- a/extra/regexp/regexp.factor
+++ b/extra/regexp/regexp.factor
@ -323,8 +323,8 @@ TUPLE: regexp source parser ignore-case? ;

 M: regexp pprint*
    [
-        dup regexp-source
+        dup source>>
        dup find-regexp-syntax swap % swap % %
-        dup regexp-ignore-case? [ "i" % ] when
+        dup ignore-case?>> [ "i" % ] when
    ] "" make
    swap present-text ;