--- a/Fraction.st Wed May 24 14:44:58 1995 +0200
+++ b/Fraction.st Tue Jun 06 05:56:11 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.18 1995-05-01 21:29:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.19 1995-06-06 03:54:07 claus Exp $
'!
!Fraction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.18 1995-05-01 21:29:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.19 1995-06-06 03:54:07 claus Exp $
"
!
@@ -91,11 +91,11 @@
%{ /* NOCONTEXT */
/* this check allows subclassing .. */
if (self == Fraction) {
- if (_CanDoQuickAlignedNew(sizeof(struct __fractionstruct))) {
+ if (_CanDoQuickAlignedNew(sizeof(struct __fraction))) {
OBJ newFraction;
int spc;
- _qCheckedAlignedNew(newFraction, sizeof(struct __fractionstruct));
+ _qCheckedAlignedNew(newFraction, sizeof(struct __fraction));
_InstPtr(newFraction)->o_class = Fraction;
_FractionInstPtr(newFraction)->f_numerator = num;
_FractionInstPtr(newFraction)->f_denominator = den;