@@ -104,6 +104,7 @@ main = bracket (return ()) (\() -> hFlush stdout >> hFlush stderr) $ \() -> do
104 , platforms = optPlatform cfg
104 , platforms = optPlatform cfg
106 , doCheck = doCheck deriv && optDoCheck cfg
106 , doCheck = doCheck deriv && optDoCheck cfg
107+ , extraFunctionArgs = "stdenv" : extraFunctionArgs deriv
109 putStr (show (disp (normalize deriv')))
110 putStr (show (disp (normalize deriv')))