@@ -346,11 +346,6 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do
346346#endif
347347 let programArgs = "--batchmode" : [file]
348348 env' <- getEnvironment
349− let sep = [searchPathSeparator]
350− let texinputs = maybe (".." ++ sep) ((".." ++ sep) ++)
351− $ lookup "TEXINPUTS" env'
352− let env'' = ("TEXINPUTS", texinputs) :
353− [(k,v) | (k,v) <- env', k /= "TEXINPUTS"]
354349 when (verbosity >= INFO) $ do
355350 putStrLn "[makePDF] temp dir:"
356351 putStrLn tmpDir'
@@ -358,12 +353,12 @@ context2pdf verbosity tmpDir source = inDirectory tmpDir $ do
358353 putStrLn $ "context" ++ " " ++ unwords (map show programArgs)
359354 putStr "\n"
360355 putStrLn "[makePDF] Environment:"
361− mapM_ print env''
356+ mapM_ print env'
362357 putStr "\n"
363358 putStrLn $ "[makePDF] Contents of " ++ file ++ ":"
364359 B.readFile file >>= B.putStr
365360 putStr "\n"
366− (exit, out) <- pipeProcess (Just env'') "context" programArgs BL.empty
361+ (exit, out) <- pipeProcess (Just env') "context" programArgs BL.empty
367362 when (verbosity >= INFO) $ do
368363 B.hPutStr stdout out
369364 putStr "\n"