SoundStream.st
changeset 58 bd6753bf0401
parent 51 24f978f1d849
child 84 d401ce0001dc
--- a/SoundStream.st	Wed Feb 15 11:21:53 1995 +0100
+++ b/SoundStream.st	Wed Feb 15 11:29:31 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.12 1995-02-05 23:38:40 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.13 1995-02-15 10:29:26 claus Exp $
 '!
 
 !SoundStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.12 1995-02-05 23:38:40 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.13 1995-02-15 10:29:26 claus Exp $
 "
 !
 
@@ -561,7 +561,7 @@
     else
 	ALsetwidth(config, AL_SAMPLE_8);
 
-    if (_isSmallInteger(_INST(sampleRate)))
+    if (__isSmallInteger(_INST(sampleRate)))
 	params[3] = params[5] = _intVal(_INST(sampleRate));
 
     ALsetparams(AL_DEFAULT_DEVICE, params, 6);
@@ -651,7 +651,7 @@
 
     if (_INST(filePointer) != nil) {
 	if (_INST(mode) != _readonly) {
-	    if (_isSmallInteger(count) && _isSmallInteger(start)) {
+	    if (__bothSmallInteger(count, start)) {
 		cnt = _intVal(count);
 		offs = _intVal(start) - 1;
 		p = MKAUDIO(_INST(filePointer));
@@ -698,7 +698,7 @@
 
     if (_INST(filePointer) != nil) {
 	if (_INST(mode) != _writeonly) {
-	    if (_isSmallInteger(count) && _isSmallInteger(start)) {
+	    if (__bothSmallInteger(count, start)) {
 		cnt = _intVal(count);
 		offs = _intVal(start) - 1;
 		p = MKAUDIO(_INST(filePointer));