add history commands

[CleanReadLine.git] / test.icl

diff --git a/test.icl b/test.icl
index 0919253..26ced3c 100644 (file)
--- a/test.icl
+++ b/test.icl
@@ -6,6 +6,8 @@ import ReadLine
 Start :: *World -> (String, *World)
 Start w
 # (f, w) = stdio w
+#! (_, w) = readHistory "readline.history" w
 #! (s, w) = readLine "first prompt: " True w
 #! (s, w) = readLine "uparrow should word with history: " False w
+#! (_, w) = writeHistory "readline.history" w
 = (s, w)