--- a/compiler/tests/PPCompiledSmalltalkGrammarResource.st Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/tests/PPCompiledSmalltalkGrammarResource.st Thu Apr 30 23:43:14 2015 +0200
@@ -12,12 +12,11 @@
!PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
setUp
- | time |
- time := Time millisecondsToRun: [
- PPSmalltalkGrammar new compile: #PPCompiledSmalltalkGrammar
- ].
- Transcript show: 'Grammar compiled in: ', time asString, 'ms'; cr.
-
- "Modified: / 21-11-2014 / 12:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ | time |
+ time := Time millisecondsToRun: [
+ PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
+ ].
+ Transcript crShow: 'Smalltalk Grammar compiled in: ', time asString, 'ms'.
+
! !