From 42a6b86d27751b3dec95dd64b4996ea13ad58a10 Mon Sep 17 00:00:00 2001 From: Robby Zambito Date: Fri, 21 Jan 2022 20:00:28 -0500 Subject: Added Scheme procedure to easily get the other player --- 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 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); -- cgit v1.2.3