13 years ago · 9df7ac8666
--- a/js/Compiler.deploy.js
+++ b/js/Compiler.deploy.js
--- a/js/Compiler.js
+++ b/js/Compiler.js
--- a/st/Compiler.st
+++ b/st/Compiler.st
@@ -41,13 +41,17 @@ on: aStream
 
				 ! !
			
 
				 
			
 
				 Object subclass: #Compiler
			
 
				-	instanceVariableNames: 'currentClass source unknownVariables'
			
 
				+	instanceVariableNames: 'currentClass source unknownVariables codeGeneratorClass'
			
 
				 	package: 'Compiler'!
			
 
				 
			
 
				 !Compiler methodsFor: 'accessing'!
			
 
				 
			
 
				 codeGeneratorClass
			
 
				-	^FunCodeGenerator
			
 
				+	^codeGeneratorClass ifNil: [FunCodeGenerator]
			
 
				+!
			
 
				+
			
 
				+codeGeneratorClass: aClass
			
 
				+	codeGeneratorClass := aClass
			
 
				 !
			
 
				 
			
 
				 currentClass