Fix hashcode* on parsers

2008-03-30 17:35:47 +13:00 · 2008-03-30 17:35:47 +13:00 · a23e0ce15c
parent d002e02948
commit a23e0ce15c
1 changed files with 2 additions and 0 deletions
--- a/extra/peg/peg.factor
+++ b/extra/peg/peg.factor
@ -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