cvs commit: hugs98/src machdep.c

[Sigbjorn Finne]

sof         2001/11/10 08:25:43 PST

  Modified files:
    src                  machdep.c 
  Log:
  find1: adjust new file search algorithm a little, i.e., instead of this
         defn:
  
      find along nm hugspath
        | isModuleId nm = [ d++f++e | f <- files, d <- dirs, e <- exts ]
        | otherwise     = [ nm ]
       where {....}
  
  extend the literal filename case to also attempt appending the recognised
  file extensions:
  
      find along nm hugspath
        | isModuleId nm = [ d++f++e | f <- files, d <- dirs, e <- exts ]
        | otherwise     = [ nm ++ e | e <- "" : exts ]
       where {....}
  
  This makes it fall into line with the file searching behaviour of
  existing Hugsen.
  
  Revision  Changes    Path
  1.31      +8 -4      hugs98/src/machdep.c