-gfo-files is consulted not only when .gfo files are created but also when we search for them

src/GF/Compile.hs

@@ -160,9 +160,7 @@ compileOne opts env@(_,srcgr,_) file = do
     -- for gf source, do full compilation and generate code
     _ -> do
 
-      let gfo = maybe (gfoFile (dropExtension file))
-                      (\dir -> dir </> gfoFile (dropExtension (takeFileName file)))
-                      (flag optGFODir opts)
+      let gfo = gf2gfo opts file
       b1 <- ioeIO $ doesFileExist file
       if not b1
         then compileOne opts env $ gfo