Symbol.st
changeset 2200 a2b25d9e5cac
parent 1864 0520c93c2970
child 2416 588d5d510c10
--- a/Symbol.st	Sat Jan 18 00:27:55 1997 +0100
+++ b/Symbol.st	Sat Jan 18 00:28:37 1997 +0100
@@ -45,7 +45,7 @@
     Other than that, symbols behave much like strings.
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 ! !
 
@@ -101,7 +101,7 @@
 	RETURN (aString);
     }
     if (__isString(aString)) {
-	newSymbol = __MKSYMBOL(__stringVal(aString), (OBJ *)0, SENDER);
+	newSymbol = __MKSYMBOL(__stringVal(aString), (OBJ *)0);
 	if (newSymbol != nil) {
 	    RETURN (newSymbol);
 	}
@@ -179,8 +179,8 @@
      For uninterned symbols, this is allowed."
 
     self knownAsSymbol ifTrue:[
-        self error:'interned symbols may not be changed'.
-        ^ something
+	self error:'interned symbols may not be changed'.
+	^ something
     ].
     "
      uninterned - allow change
@@ -515,5 +515,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.43 1996-11-04 17:13:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.44 1997-01-17 23:28:26 cg Exp $'
 ! !