bug fix to Prolog solution for Part 2

Author: adamcrussell

challenge-088/adam-russell/prolog/ch-2.p

@@ -44,16 +44,16 @@ write_remove_bottom(Matrix, UpdatedMatrix):-
 
 spiral(Matrix):-
     spiral(Matrix, _).
-spiral([], _).    
 spiral(Matrix, UpdatedMatrix):-
     write_remove_top(Matrix, UpdatedMatrix),
     write(","),
     write_remove_right(UpdatedMatrix, RightRemainder),
     reverse(RightRemainder, RemainderRight),
     write_remove_bottom(RemainderRight, BottomRemainder), 
     write(","),
-    write_remove_left(BottomRemainder, LeftRemainder), 
-    spiral(LeftRemainder, []).
+    reverse(BottomRemainder, RemainderBottom),
+    write_remove_left(RemainderBottom, LeftRemainder), 
+    spiral(LeftRemainder, _).
 spiral(_, []):-
     write("\b").