repositories
/
CleanReadLine.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0919253d623657a49781d3055a99372894684840
[CleanReadLine.git]
/
test.icl
1
module test
2
3
import StdEnv
4
import ReadLine
5
6
Start :: *World -> (String, *World)
7
Start w
8
# (f, w) = stdio w
9
#! (s, w) = readLine "first prompt: " True w
10
#! (s, w) = readLine "uparrow should word with history: " False w
11
= (s, w)