new accessors
parent
afbe5df0bd
commit
299719ed5e
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue