--- a/BCompiler.st Tue Oct 08 16:50:14 1996 +0200
+++ b/BCompiler.st Tue Oct 08 21:04:19 1996 +0200
@@ -220,10 +220,20 @@
compiler ignoreWarnings
].
"/ compiler nextToken.
+
(compiler parseMethodSpec == #Error) ifTrue:[
compiler parseError:'syntax error in method specification'.
tree := #Error
] ifFalse:[
+ lazy ifTrue:[
+ "/
+ "/ that one method IS required
+ "/
+ (aClass isMeta and:[compiler selector == #version]) ifTrue:[
+ lazy := false
+ ]
+ ].
+
lazy ifFalse:[
"check if same source"
(skipIfSame and:[(sel := compiler selector) notNil]) ifTrue:[
@@ -435,8 +445,8 @@
^ newMethod
"Created: 29.10.1995 / 19:59:36 / cg"
- "Modified: 18.5.1996 / 16:39:55 / cg"
"Modified: 24.6.1996 / 12:41:13 / stefan"
+ "Modified: 8.10.1996 / 20:03:29 / cg"
!
compile:methodText forClass:classToCompileFor notifying:requestor
@@ -2334,6 +2344,6 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.90 1996-08-15 16:35:37 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.91 1996-10-08 19:04:19 cg Exp $'
! !
ByteCodeCompiler initialize!