diff options
Diffstat (limited to 'runtime/start.apl')
| -rw-r--r-- | runtime/start.apl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/runtime/start.apl b/runtime/start.apl index d65d0bc..64b8be8 100644 --- a/runtime/start.apl +++ b/runtime/start.apl @@ -8,9 +8,11 @@ } handleMain←{ 0::⍺ - data←⍵ - ⎕rawio←data - ⎕rawio←⎕ucs 10 + (shy data)←⍵ + _←{ + ⎕rawio←data + ⎕rawio←⎕ucs 10 + } IF ~shy ⎕rawio←prompt ≢prompt } @@ -28,8 +30,7 @@ data←⍵ ⎕rawio←data ⎕rawio←⎕ucs 10 - ⎕rawio←prompt - ≢prompt + 0 } handleQuoteQuad←{ 0::⍺ |