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

1 files changed, 1 insertions, 0 deletions

diff --git a/src/move.c b/src/move.c
index 10f9012..1c6672c 100644
--- a/src/move.c
+++ b/src/move.c
@@ -286,6 +286,7 @@ struct move get_scm_move(char *strategy_path) {
   scm_c_define_gsubr("apply-move", 1, 2, 0, scm_apply_move);
   scm_c_define_gsubr("get-winner", 2, 0, 0, scm_get_winner);
   scm_c_define_gsubr("flipped-by-move", 1, 2, 0, scm_get_num_flipped_by_move);
+  scm_c_define_gsubr("print-board", 0, 1, 0, scm_print_board);
 
   // Read the move from scheme
   SCM scm_move = scm_c_primitive_load(strategy_path);