Number.st
changeset 835 8bd6f4aa8130
parent 701 a309e3ef7faf
child 919 d285a0816e54
--- a/Number.st	Thu Jan 04 18:02:20 1996 +0100
+++ b/Number.st	Fri Jan 05 13:33:18 1996 +0100
@@ -265,11 +265,11 @@
     /*
      * I cannot tell if this special code is worth anything
      */
-    if (_CanDoQuickNew(sizeof(struct __point))) {
+    if (__CanDoQuickNew(sizeof(struct __point))) {
 	OBJ newPoint;
 	int spc;
 
-	_qCheckedAlignedNew(newPoint, sizeof(struct __point));
+	__qCheckedAlignedNew(newPoint, sizeof(struct __point));
 	_InstPtr(newPoint)->o_class = Point;
 	_PointInstPtr(newPoint)->p_x = self;
 	_PointInstPtr(newPoint)->p_y = aNumber;
@@ -292,10 +292,10 @@
 
 %{  /* NOCONTEXT */
 
-    if (_CanDoQuickNew(sizeof(struct __point))) {
+    if (__CanDoQuickNew(sizeof(struct __point))) {
 	OBJ newPoint;
 
-	_qCheckedAlignedNew(newPoint, sizeof(struct __point));
+	__qCheckedAlignedNew(newPoint, sizeof(struct __point));
 	_InstPtr(newPoint)->o_class = Point;
 	_PointInstPtr(newPoint)->p_x = self;
 	_PointInstPtr(newPoint)->p_y = self;
@@ -425,5 +425,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.24 1995-12-07 21:36:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.25 1996-01-05 12:33:11 cg Exp $'
 ! !