Remove run-program method

fraya · May 13, 2024 · d2bf94a · d2bf94a
1 parent edf21d2
commit d2bf94a
Showing 1 changed file with 4 additions and 10 deletions.
diff --git a/sources/brainfuck-app.dylan b/sources/brainfuck-app.dylan
@@ -1,14 +1,5 @@
 Module: brainfuck-app
 
-define method run-program
-    (program-name :: <string>, optimization-level :: <integer>)
- => (bf :: <bf>)
-  let locator = as(<file-locator>, program-name);
-  let program = read-program(locator);
-  let optimized = optimize-program(program, optimization-level);
-  run!(optimized);
-end;
-
 define function main
   (name :: <string>, arguments :: <vector>)  
   if (arguments.size < 1)
@@ -34,7 +25,10 @@ define function main
       optimization-level := string-to-integer(arguments[1]);
     end;
 
-    run-program(program-name, optimization-level);
+    let locator = as(<file-locator>, program-name);
+    let program = read-program(locator);
+    let optimized = optimize-program(program, optimization-level);
+    run!(optimized);
     format-out("\n");
   exception (error :: <error>)
     format-err("Error: %=", error);