new accessors

db4
Doug Coleman 2008-08-29 17:00:19 -05:00
parent 06a8e418c4
commit 2d1b642f53
1 changed files with 2 additions and 2 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2008 Chris Double, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences strings namespaces math assocs shuffle
vectors arrays math.parser
vectors arrays math.parser accessors
unicode.categories sequences.deep peg peg.private
peg.search math.ranges words ;
IN: peg.parsers
@ -11,7 +11,7 @@ TUPLE: just-parser p1 ;
: just-pattern
[
execute dup [
dup parse-result-remaining empty? [ drop f ] unless
dup remaining>> empty? [ drop f ] unless
] when
] ;