Fix hashcode* on parsers

db4
Chris Double 2008-03-30 17:35:47 +13:00
parent d002e02948
commit a23e0ce15c
1 changed files with 2 additions and 0 deletions

View File

@ -12,6 +12,8 @@ TUPLE: parse-result remaining ast ;
TUPLE: parser id compiled ;
M: parser equal? [ id>> ] 2apply = ;
M: parser hashcode* ( depth obj -- code )
id>> hashcode* ;
C: <parser> parser
SYMBOL: ignore