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