ExecutableFunction.st
changeset 345 cf2301210c47
parent 328 7b542c0bf1dd
child 357 82091a50055d
--- a/ExecutableFunction.st	Fri May 12 14:35:09 1995 +0200
+++ b/ExecutableFunction.st	Tue May 16 19:09:45 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.11 1995-05-01 21:29:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.12 1995-05-16 17:06:54 claus Exp $
 '!
 
 !ExecutableFunction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.11 1995-05-01 21:29:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.12 1995-05-16 17:06:54 claus Exp $
 "
 !
 
@@ -93,7 +93,7 @@
     ]
 ! !
 
-!ExecutableFunction class methodsFor:'signal access'!
+!ExecutableFunction class methodsFor:'Signal constants'!
 
 executionErrorSignal
     "return the parent-signal of all execution errors"
@@ -192,9 +192,9 @@
 
     /* made this a primitive to get define in stc.h */
     if (aBoolean == true)
-        newFlags |= F_MARKBIT;
+	newFlags |= F_MARKBIT;
     else
-        newFlags &= ~F_MARKBIT;
+	newFlags &= ~F_MARKBIT;
 
     _INST(flags) = _MKSMALLINT(newFlags);
 %}