Make generic functions explicit

fraya · May 13, 2024 · 280514e · 280514e
1 parent aa21e15
commit 280514e
Showing 1 changed file with 15 additions and 4 deletions.
diff --git a/sources/brainfuck.dylan b/sources/brainfuck.dylan
@@ -22,23 +22,34 @@ end;
 
 ////////////////////////////////////////////////////////////////////////
 //
-// Execute methods
+// Brainfuck interface
 //
 ////////////////////////////////////////////////////////////////////////
 
+define generic bf-pp
+  (bf :: <bf>) => (pp :: <program-pointer>);
+
+define generic bf-mp
+  (bf :: <bf>) => (mp :: <memory-pointer>);
+
+define generic bf-program
+  (bf :: <bf>) => (program :: <program>);
+
+define generic bf-memory
+  (bf :: <bf>) => (memory :: <memory>);
+
 define generic execute
   (instruction :: <instruction>, bf :: <bf>) => ();
 
+define generic run!
+  (object :: <object>) => (bf :: <bf>);
 
 ////////////////////////////////////////////////////////////////////////
 //
 // 'run' methods to execute a program in a brainfuck machine
 //
 ////////////////////////////////////////////////////////////////////////
 
-define generic run!
-  (object :: <object>) => (bf :: <bf>);
-
 define method run!
     (program :: <program>)
  => (bf :: <bf>)