BCompiler.st
changeset 350 13e1dcaf87eb
parent 330 9b9a1ff67ba3
child 356 bb3beb18de1f
--- 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!