--- a/Variable.st	Sat Jan 08 18:05:17 1994 +0100
+++ b/Variable.st	Sun Jan 09 22:30:29 1994 +0100
@@ -22,37 +22,50 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.3 1993-10-13 02:41:56 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.4 1994-01-09 21:30:29 claus Exp $
 '!
 
 !Variable class methodsFor:'instance creation'!
 
 name:name
+    "return a new node for a variable named name"
     ^ (self new) name:name
 ! !
 
 !Variable methodsFor:'accessing'!
 
 value:v
+    "set the value of the (simulated) variable"
+
     value := v
 !
 
 name:aString
+    "set the name of the variable"
+
     name := aString
 !
 
 name
+    "return the name of the variable"
+
     ^ name
 !
 
 value
+    "return the value of the variable"
+
     ^ value
 !
 
 used:aBoolean
+    "set/clear the flag marking that this variable has been used"
+
     used := aBoolean
 !
 
 used
+    "return the flag marking that this variable has been used"
+
     ^ used
 ! !