factor/basis/compiler/tests/peg-regression-2.factor

IN: compiler.tests.peg-regression-2
USING: peg.ebnf strings tools.test ;

GENERIC: <times> ( times -- term' )
M: string <times> ;

EBNF: parse-regexp

Times = .* => [[ "foo" ]]

Regexp = Times:t => [[ t <times> ]]

;EBNF

[ "foo" ] [ "a" parse-regexp ] unit-test
fix IN: for compiler tests 2009-04-26 01:51:47 -04:00			`IN: compiler.tests.peg-regression-2`
Stack effect declarations are mandatory on all words now define-temp now takes an effect parameter Fix compiler bug that Dan found Stricter enforcement of * effects Move compile-call from compiler.units to compiler 2009-02-23 21:27:05 -05:00			`USING: peg.ebnf strings tools.test ;`

			`GENERIC: <times> ( times -- term' )`
			`M: string <times> ;`

			`EBNF: parse-regexp`

			`Times = .* => [[ "foo" ]]`

			`Regexp = Times:t => [[ t <times> ]]`

			`;EBNF`

fix IN: for compiler tests 2009-04-26 01:51:47 -04:00			`[ "foo" ] [ "a" parse-regexp ] unit-test`