--- a/Variable.st	Thu Mar 27 16:57:13 2003 +0100
+++ b/Variable.st	Thu Mar 27 23:31:40 2003 +0100
@@ -50,6 +50,10 @@
 name:name
     "return a new node for a variable named name"
     ^ (self new) name:name
+!
+
+type:type name:name
+    ^ (self new) type:type  name:name
 ! !
 
 !Variable methodsFor:'accessing'!
@@ -66,6 +70,11 @@
     name := aString
 !
 
+type:typeSymbol name:aString
+    type := typeSymbol.
+    name := aString
+!
+
 used
     "return the flag marking that this variable has been used"
 
@@ -144,5 +153,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.17 2002-08-19 16:18:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.18 2003-03-27 22:31:15 cg Exp $'
 ! !