Merge pull request #383 from asarhaddon/ada2tco-do

[jackhill/mal.git] / ada / step0_repl.adb

diff --git a/ada/step0_repl.adb b/ada/step0_repl.adb
index 671a526..456b8a3 100644 (file)
--- a/ada/step0_repl.adb
+++ b/ada/step0_repl.adb
@@ -1,5 +1,4 @@
 with Ada.Text_IO;
-with Ada.IO_Exceptions;
 
 procedure Step0_Repl is
 
@@ -19,25 +18,17 @@ procedure Step0_Repl is
    end Print;
 
    function Rep (Param : String) return String is
-     Read_Str : String := Read (Param);
-     Eval_Str : String := Eval (Read_Str);
-     Print_Str : String := Print (Eval_Str);
+      Read_Str : String := Read (Param);
+      Eval_Str : String := Eval (Read_Str);
+      Print_Str : String := Print (Eval_Str);
    begin
-     return Print_Str;
-   end Rep; 
-
-   S : String (1..1024);
-   Last : Natural;
+      return Print_Str;
+   end Rep;
 
 begin
-
    loop
       Ada.Text_IO.Put ("user> ");
-      Ada.Text_IO.Get_Line (S, Last);
-      Ada.Text_IO.Put_Line (Rep (S (1..Last)));
+      exit when Ada.Text_IO.End_Of_File;
+      Ada.Text_IO.Put_Line (Rep (Ada.Text_IO.Get_Line));
    end loop;
-
-exception
-   when Ada.IO_Exceptions.End_Error => null;
-   -- i.e. exit without textual output
 end Step0_Repl;