Remove program-not-finished?

Replace with content in main loop
fraya · May 13, 2024 · edf21d2 · edf21d2
1 parent cd5e008
commit edf21d2
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 11 deletions.
diff --git a/sources/brainfuck.dylan b/sources/brainfuck.dylan
@@ -15,11 +15,6 @@ define sealed class <bf> (<object>)
     init-keyword: memory:;
 end;
 
-define inline method program-not-finished?
-    (bf :: <bf>) => (finished? :: <boolean>)
-  bf.bf-pp < bf.bf-program.size
-end;
-
 ////////////////////////////////////////////////////////////////////////
 //
 // Brainfuck interface
@@ -59,7 +54,7 @@ end;
 
 define method run!
     (bf :: <bf>) => (bf :: <bf>)
-  while (program-not-finished?(bf))
+  while (bf.bf-pp < bf.bf-program.size)
     execute(bf.bf-program[bf.bf-pp], bf);
     bf.bf-pp := bf.bf-pp + 1
   end;

diff --git a/sources/library.dylan b/sources/library.dylan
@@ -76,11 +76,6 @@ define module brainfuck-impl
     <memory-pointer-decrement>,
     <reset-to-zero>;
 
-  // Program exports
-
-  export
-    program-not-finished?;
-
   // Jumps
 
   export