import StdEnv
import ReadLine
-Start :: *World -> (Int, String, *World)
+Start :: *World -> (Int, String, HistoryState, *World)
Start w
# (f, w) = stdio w
#! w = setReadLineName "Test program" w
#! (s, w) = readLine "uparrow should word with history: " False w
#! (_, w) = writeHistory "readline.history" w
#! (i, w) = historySearch "testentry" -1 w
-//#! w = clearHistory w
-= (i, s, w)
+#! (h, w) = historyGetHistoryState w
+#! w = clearHistory w
+= (i, s, h, w)