/[svn]/parser/parser.ml
ViewVC logotype

Diff of /parser/parser.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 74 by abate, Tue Jul 10 17:03:39 2007 UTC revision 75 by abate, Tue Jul 10 17:03:57 2007 UTC
# Line 58  Line 58 
58    
59    debug_directive: [    debug_directive: [
60      [ LIDENT "filter"; t = pat; p = pat -> `Filter(t,p)      [ LIDENT "filter"; t = pat; p = pat -> `Filter(t,p)
61      | LIDENT "accept"; p = pat -> `Accept p;      | LIDENT "accept"; p = pat -> `Accept p
62      | LIDENT "compile"; t = pat; p = LIST1 pat -> `Compile (t,p)      | LIDENT "compile"; t = pat; p = LIST1 pat -> `Compile (t,p)
63        | LIDENT "normal_record"; t = pat -> `Normal_record t
64      ]      ]
65    ];    ];
66    
Legend:
Removed from v.74  
changed lines
  Added in v.75
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5