diff options
| author | Akshay <[email protected]> | 2020-10-11 09:42:22 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-10-11 09:42:22 +0100 |
| commit | 2d9320bf71912b2c682c15a8933031394de40936 (patch) | |
| tree | bb62edb3d24e3411347291bb573e483dfe490149 /bin/Main.hs | |
| parent | 883092e4ff4f8beb59e3d705ef247c235baa6bb7 (diff) | |
handle lists and dottedlists without backtracking
Diffstat (limited to 'bin/Main.hs')
| -rw-r--r-- | bin/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/Main.hs b/bin/Main.hs index 6207e02..7bb6d84 100644 --- a/bin/Main.hs +++ b/bin/Main.hs | |||
| @@ -19,7 +19,8 @@ readExpr inp = | |||
| 19 | 19 | ||
| 20 | repl :: IO () | 20 | repl :: IO () |
| 21 | repl = do | 21 | repl = do |
| 22 | inp <- readline "(lisk)> " | 22 | -- \u2020 † - obelisk |
| 23 | inp <- readline "† " | ||
| 23 | case inp of | 24 | case inp of |
| 24 | Nothing -> return () | 25 | Nothing -> return () |
| 25 | Just ",q" -> return () | 26 | Just ",q" -> return () |