--- a/Symbol.st Sat Feb 18 02:22:37 1995 +0100
+++ b/Symbol.st Sat Feb 18 02:42:00 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.16 1995-02-18 01:22:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.17 1995-02-18 01:42:00 claus Exp $
'!
!Symbol class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.16 1995-02-18 01:22:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.17 1995-02-18 01:42:00 claus Exp $
"
!
@@ -218,6 +218,20 @@
Since I am a symbol - just return myself"
^ self
+!
+
+asSymbolIfInterned
+ "return the receiver as a symbol if there is one.
+ Since I am a symbol - just return myself"
+
+ ^ self
+!
+
+knownAsSymbol
+ "return true if the receiver is known as a symbol.
+ Since I am a symbol - just return true"
+
+ ^ true
! !
!Symbol methodsFor:'queries'!