--- a/Parser.st	Thu Nov 05 23:12:25 2009 +0100
+++ b/Parser.st	Fri Nov 06 09:32:34 2009 +0100
@@ -4846,7 +4846,7 @@
      The noErrors and noWarnings arguments specify if error and warning 
      messages should be sent to the Transcript or suppressed."
 
-    |parser tree|
+    |tree|
 
     aString isNil ifTrue:[^ nil].
 
@@ -7736,9 +7736,7 @@
 !
 
 parseExternalFunctionCallDeclaration
-    |callType cString cStream returnType 
-     functionName argTypes moduleName fn node args sel 
-     type dictionaryOfKnownTypes function functionOrType lineNr|
+    |callType cString cStream dictionaryOfKnownTypes lineNr|
 
     "callType is one of c: / cdecl: / api: / apicall: ..."
     callType := tokenName asLowercase.
@@ -9169,8 +9167,7 @@
         '<ole: vFunctionIndex argType1 .. argTypeN returnType>'
     "
 
-    |returnType functionName argTypes type 
-     function typeFromSTVTypeSpec virtualFunctionIndex|
+    |returnType functionName argTypes function virtualFunctionIndex|
 
     masterParser := aParserOrNil.
 
@@ -9715,11 +9712,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.620 2009-11-05 22:12:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.621 2009-11-06 08:32:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.620 2009-11-05 22:12:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.621 2009-11-06 08:32:34 stefan Exp $'
 ! !
 
 Parser initialize!