27 lines
640 B
Factor
27 lines
640 B
Factor
|
! Calling the compiler at parse time and having it compile
|
||
|
|
! generic words defined in the current compilation unit would
|
||
|
|
! fail. This is a regression from the 'remake-generic'
|
||
|
|
! optimization, which would batch generic word updates at the
|
||
|
|
! end of a compilation unit.
|
||
|
|
|
||
|
|
USING: kernel accessors peg.ebnf ;
|
||
|
|
IN: compiler.tests
|
||
|
|
|
||
|
|
TUPLE: pipeline-expr background ;
|
||
|
|
|
||
|
|
GENERIC: blah ( a -- b )
|
||
|
|
|
||
|
|
M: pipeline-expr blah ;
|
||
|
|
|
||
|
|
: ast>pipeline-expr ( -- obj )
|
||
|
|
pipeline-expr new blah ;
|
||
|
|
|
||
|
|
EBNF: expr
|
||
|
|
pipeline = "hello" => [[ ast>pipeline-expr ]]
|
||
|
|
;EBNF
|
||
|
|
|
||
|
|
USE: tools.test
|
||
|
|
|
||
|
|
[ t ] [ \ expr compiled>> ] unit-test
|
||
|
|
[ t ] [ \ ast>pipeline-expr compiled>> ] unit-test
|