--- a/Symbol.st Fri Feb 24 17:32:55 1995 +0100
+++ b/Symbol.st Fri Feb 24 17:38:46 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.18 1995-02-21 01:06:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.19 1995-02-24 16:38:31 claus Exp $
'!
!Symbol class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.18 1995-02-21 01:06:08 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.19 1995-02-24 16:38:31 claus Exp $
"
!
@@ -82,7 +82,7 @@
RETURN (aString);
}
if (__isString(aString)) {
- RETURN ( _MKSYMBOL(_stringVal(aString), (OBJ *)0, __context) );
+ RETURN ( _MKSYMBOL(_stringVal(aString), (OBJ *)0, SENDER) );
}
%}
.
@@ -298,8 +298,10 @@
!Symbol methodsFor:'printing & storing'!
printString
-%{
- RETURN ( _MKSTRING(_stringVal(self) COMMA_CON) );
+%{ /* NOCONTEXT */
+ extern OBJ _MKSTRING_ST();
+
+ RETURN ( _MKSTRING_ST(self COMMA_SND) );
%}
!