--- 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 $'
 ! !