ExecutableFunction.st
changeset 131 39599c151f30
parent 107 f3e3e2dad7fd
child 159 514c749165c3
--- a/ExecutableFunction.st	Mon Aug 22 14:19:19 1994 +0200
+++ b/ExecutableFunction.st	Mon Aug 22 14:20:44 1994 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 '!
 
 !ExecutableFunction class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.4 1994-08-11 21:36:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.5 1994-08-22 12:20:41 claus Exp $
 "
 !
 
@@ -54,7 +54,7 @@
     Instance variables:
 
     code        <not_an_object>   the function pointer to the machine code.
-				  Not accessable from smalltalk code.
+                                  Not accessable from smalltalk code.
 
     flags       <SmallInteger>    special flag bits coded in a number
 
@@ -154,8 +154,7 @@
      Can only happen when the Compiler/runtime system is broken or
      someone played around."
 
-    InvalidCodeSignal raise.
-    ^ nil
+    ^ InvalidCodeSignal raise.
 ! !
 
 !ExecutableFunction methodsFor:'binary storage'!