--- a/Symbol.st Thu Mar 09 11:52:57 1995 +0100
+++ b/Symbol.st Sat Mar 18 06:06:59 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.19 1995-02-24 16:38:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.20 1995-03-18 05:06:30 claus Exp $
'!
!Symbol class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.19 1995-02-24 16:38:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.20 1995-03-18 05:06:30 claus Exp $
"
!
@@ -147,6 +147,13 @@
false otherwise"
^ aString knownAsSymbol
+!
+
+findInterned:aString
+ "for ST-80 compatibility - if the argument, aString is known
+ as Symbol, return this symbol. Otherwise return nil."
+
+ ^ aString asSymbolIfInterned
! !
!Symbol methodsFor:'accessing'!