new accessors

db4
Doug Coleman 2008-09-02 03:01:27 -05:00
parent afbe5df0bd
commit 299719ed5e
1 changed files with 2 additions and 2 deletions

View File

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