--- a/PrimitiveNode.st Sat Jun 24 17:42:37 2000 +0200
+++ b/PrimitiveNode.st Sat Jun 24 17:42:54 2000 +0200
@@ -102,7 +102,7 @@
"catch code generation"
optional ifTrue:[^ self].
- aCompiler class newCodeSet == true ifTrue:[^ self].
+ aCompiler class newPrimitives == true ifTrue:[^ self].
self error:'cannot compile primitives (as yet)' mayProceed:true
!
@@ -110,7 +110,7 @@
"catch code generation"
optional ifTrue:[^ self].
- ByteCodeCompiler newCodeSet == true ifTrue:[^ self].
+ aCompiler class newPrimitives == true ifTrue:[^ self].
self error:'cannot compile primitives (as yet)' mayProceed:true
! !
@@ -143,5 +143,5 @@
!PrimitiveNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.18 2000-06-19 12:02:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.19 2000-06-24 15:42:43 cg Exp $'
! !