From 560016b243bc52f721153272a3809f6271215a25 Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Fri, 21 Jan 2022 19:51:27 -0500 Subject: Expose print-board to allow Scheme to print the board normally --- src/move.c | 1 + 1 file changed, 1 insertion(+) (limited to 'src/move.c') 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); -- cgit v1.2.3