compiler/tests/PPCLTokenizingOptimizationTest.st
changeset 529 439c4057517f
parent 524 f6f68d32de73
child 534 a949c4fe44df
equal deleted inserted replaced
528:ebfddc82b8bb 529:439c4057517f
    16     self assert: (object isKindOf: class)
    16     self assert: (object isKindOf: class)
    17 !
    17 !
    18 
    18 
    19 configuration
    19 configuration
    20     configuration := PPCTokenizingConfiguration new.
    20     configuration := PPCTokenizingConfiguration new.
    21     configuration arguments generate: false.
    21     configuration options generate: false.
    22     ^ configuration
    22     ^ configuration
    23 !
    23 !
    24 
    24 
    25 optimize: aPPParser
    25 optimize: aPPParser
    26     ^ self configuration compile: aPPParser.
    26     ^ self configuration compile: aPPParser.