diff options
| author | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
| commit | 10b07148ba8efec543ded60a4b7916960709ce1e (patch) | |
| tree | 43c10dbc3c6bd2035c34cabf5aca3aa08e37a2f6 /vb/step0_repl.vb | |
| parent | 64574360c510d644f5b8c175dbe3114f1f2d7b68 (diff) | |
| download | mal-10b07148ba8efec543ded60a4b7916960709ce1e.tar.gz mal-10b07148ba8efec543ded60a4b7916960709ce1e.zip | |
All step0: add test, fix bugs, remove step0 eval.
Diffstat (limited to 'vb/step0_repl.vb')
| -rw-r--r-- | vb/step0_repl.vb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/vb/step0_repl.vb b/vb/step0_repl.vb index f53f378..3880598 100644 --- a/vb/step0_repl.vb +++ b/vb/step0_repl.vb @@ -24,11 +24,16 @@ Namespace Mal End Function Shared Function Main As Integer - Dim prompt As String = "user> " - Dim line As String + Dim args As String() = Environment.GetCommandLineArgs() + + If args.Length > 1 AndAlso args(1) = "--raw" Then + Mal.readline.SetMode(Mal.readline.Modes.Raw) + End If + ' repl loop + Dim line As String Do - line = Mal.readline.Readline(prompt) + line = Mal.readline.Readline("user> ") If line is Nothing Then Exit Do End If |