# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 837179505 -7200
# Node ID f687d50b978f3f52b01ebb15b0059efda8cdd7d1
# Parent  cdcf4ad7556fdf4ffc3f5d09b32ce04c930a7fd4
*** empty log message ***

diff -r cdcf4ad7556f -r f687d50b978f ExtFunc.st
--- a/ExtFunc.st	Fri Jul 12 15:50:24 1996 +0200
+++ b/ExtFunc.st	Fri Jul 12 15:51:45 1996 +0200
@@ -309,18 +309,12 @@
 
 !ExternalFunction methodsFor:'private loader access'!
 
-setModuleHandle:aHandle
-    "set the moduleHandle.
+setName:aString moduleHandle:aHandle
+    "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
 
+    name := aString.
     moduleHandle := aHandle
-!
-
-setName:aString
-    "set the functions name.
-     This is a private interface for the objectFileLoader; not for public use."
-
-    name := aString
 ! !
 
 !ExternalFunction methodsFor:'function calling'!
@@ -449,6 +443,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.10 1996-07-12 13:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.11 1996-07-12 13:51:45 cg Exp $'
 ! !
 ExternalFunction initialize!
diff -r cdcf4ad7556f -r f687d50b978f ExternalFunction.st
--- a/ExternalFunction.st	Fri Jul 12 15:50:24 1996 +0200
+++ b/ExternalFunction.st	Fri Jul 12 15:51:45 1996 +0200
@@ -309,18 +309,12 @@
 
 !ExternalFunction methodsFor:'private loader access'!
 
-setModuleHandle:aHandle
-    "set the moduleHandle.
+setName:aString moduleHandle:aHandle
+    "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
 
+    name := aString.
     moduleHandle := aHandle
-!
-
-setName:aString
-    "set the functions name.
-     This is a private interface for the objectFileLoader; not for public use."
-
-    name := aString
 ! !
 
 !ExternalFunction methodsFor:'function calling'!
@@ -449,6 +443,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.10 1996-07-12 13:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.11 1996-07-12 13:51:45 cg Exp $'
 ! !
 ExternalFunction initialize!