GOOPS cosmetics

[bpt/guile.git] / test-suite / tests / peg.bench

diff --git a/test-suite/tests/peg.bench b/test-suite/tests/peg.bench
index 108efe6..7baad5c 100644 (file)
--- a/test-suite/tests/peg.bench
+++ b/test-suite/tests/peg.bench
@@ -63,7 +63,7 @@
 (define (eq-parse str) (apply parse-expr (peg:tree (match-pattern expr str))))
 
 ;; PEG for parsing equations (see tutorial).
-(define-grammar
+(define-peg-string-patterns
   "expr <- sum
 sum <-- (product ('+' / '-'))* product
 product <-- (value ('*' / '/'))* value