Expose print-board to allow Scheme to print the board normally

1 files changed, 7 insertions, 0 deletions

diff --git a/src/board.c b/src/board.c
index aec166a..b40d1e3 100644
--- a/src/board.c
+++ b/src/board.c
@@ -168,3 +168,10 @@ void print_board(enum player_color **board) {
     printf("\n");
   }
 }
+
+void scm_print_board(SCM scm_board) {
+  enum player_color **board =
+      SCM_UNBNDP(scm_board) ? get_board() : scm_board_to_c_board(scm_board);
+
+  print_board(board);
+}