--- a/PrimaryNode.st Mon Aug 07 12:19:16 2006 +0200
+++ b/PrimaryNode.st Mon Aug 07 12:20:08 2006 +0200
@@ -47,8 +47,17 @@
!PrimaryNode methodsFor:'accessing'!
+type:t value:val
+ type := t.
+ value := val
+!
+
value
^ value
+!
+
+value:val
+ value := val
! !
!PrimaryNode methodsFor:'code generation'!
@@ -127,5 +136,5 @@
!PrimaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.25 2005-04-20 14:45:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.26 2006-08-07 10:20:08 cg Exp $'
! !