@@ -258,10 +258,10 @@ make st@PSCiState{..} ms = P.make actions' (map snd loadedModules ++ ms)
258 allModules = map (first Right) loadedModules ++ map (Left P.RebuildAlways,) ms
258 allModules = map (first Right) loadedModules ++ map (Left P.RebuildAlways,) ms
261−-- Takes a value declaration and evaluates it with the current state.
261+-- Takes a value expression and evaluates it with the current state.
263−handleDeclaration :: P.Expr -> PSCI ()
263+handleExpression :: P.Expr -> PSCI ()
264−handleDeclaration val = do
264+handleExpression val = do
265 st <- PSCI $ lift get
265 st <- PSCI $ lift get
266 let m = createTemporaryModule True st val
266 let m = createTemporaryModule True st val
267 let nodeArgs = psciNodeFlags st ++ [indexFile]
267 let nodeArgs = psciNodeFlags st ++ [indexFile]
@@ -530,7 +530,7 @@ getCommand singleLineMode = handleInterrupt (return (Right Nothing)) $ do
530-- Performs an action for each meta-command given, and also for expressions.
530-- Performs an action for each meta-command given, and also for expressions.
532handleCommand :: Command -> PSCI ()
532handleCommand :: Command -> PSCI ()
533−handleCommand (Expression val) = handleDeclaration val
533+handleCommand (Expression val) = handleExpression val
534handleCommand ShowHelp = PSCI $ outputStrLn helpMessage
534handleCommand ShowHelp = PSCI $ outputStrLn helpMessage
535handleCommand (Import im) = handleImport im
535handleCommand (Import im) = handleImport im
536handleCommand (Decls l) = handleDecls l
536handleCommand (Decls l) = handleDecls l