Symbol.st
changeset 189 d430ee92430c
parent 159 514c749165c3
child 202 40ca7cc6fb9c
--- a/Symbol.st	Fri Oct 28 02:31:43 1994 +0100
+++ b/Symbol.st	Fri Oct 28 02:32:25 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.12 1994-10-10 00:28:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.13 1994-10-28 01:32:25 claus Exp $
 '!
 
 !Symbol class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.12 1994-10-10 00:28:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.13 1994-10-28 01:32:25 claus Exp $
 "
 !
 
@@ -207,15 +207,25 @@
 !
 
 asSymbol
-    "I am a symbol - just return myself"
+    "return the receiver as a symbol.
+     SInce I am a symbol - just return myself"
 
     ^ self
 ! !
 
-!Symbol methodsFor:'misc'!
+!Symbol methodsFor:'queries'!
 
 species
+    "when copying, or concatenating, return instances of this class"
+
     ^ String
+! 
+
+isSymbol 
+    "return true, if the receiver is some kind of symbol.
+     Since I am a symbol, return always true"
+
+    ^ true
 ! !
 
 !Symbol methodsFor:'system primitives'!