Added Scheme procedure to easily get the other player

1 files changed, 1 insertions, 0 deletions

diff --git a/src/move.c b/src/move.c
index 1c6672c..82d9b47 100644
--- a/src/move.c
+++ b/src/move.c
@@ -281,6 +281,7 @@ struct move get_scm_move(char *strategy_path) {
   // Initialize primitives
   scm_c_define_gsubr("get-board", 0, 0, 0, scm_get_board);
   scm_c_define_gsubr("current-player", 0, 0, 0, scm_get_current_player);
+  scm_c_define_gsubr("other-player", 0, 0, 0, scm_get_other_player);
   scm_c_define_gsubr("valid-move?", 1, 2, 0, scm_is_valid_move);
   scm_c_define_gsubr("valid-moves", 0, 2, 0, scm_valid_moves);
   scm_c_define_gsubr("apply-move", 1, 2, 0, scm_apply_move);