factor: Fix rename issues.

[factor.git] / extra / alien / fortran / fortran.factor

diff --git a/extra/alien/fortran/fortran.factor b/extra/alien/fortran/fortran.factor
index b2584b18406b6aaad10b0751a88e98c6311fbbc6..34405c6c87e7c5c640e30a65ea0b46b4e96a77e3 100755 (executable)
--- a/extra/alien/fortran/fortran.factor
+++ b/extra/alien/fortran/fortran.factor
@@ -441,11 +441,11 @@ MACRO: fortran-invoke ( return library function parameters -- quot )
     [ \ fortran-invoke 5 [ ] nsequence ] dip define-declared ;
 
 SYNTAX: SUBROUTINE:
-    f current-library get scan-token ";" parse-tokens
+    f current-library get scan-token ")" parse-tokens
     [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: FUNCTION:
-    scan-token current-library get scan-token ";" parse-tokens
+    scan-token current-library get scan-token ")" parse-tokens
     [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: LIBRARY: