567 - stupid function name conflict

Is it even worth having my generic function prepend idea?

1 files changed, 4 insertions, 4 deletions

diff --git a/chessboard-cursor.mu b/chessboard-cursor.mu
index 9454be1b..af520121 100644
--- a/chessboard-cursor.mu
+++ b/chessboard-cursor.mu
@@ -7,7 +7,7 @@
 (array board (file-address))
 (address board-address (board))
 
-(function read-board [
+(function init-board [
   (default-space:space-address <- new space:literal 30:literal)
   (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal
                                               N:literal P:literal _:literal _:literal _:literal _:literal p:literal n:literal
@@ -28,14 +28,14 @@
     (done?:boolean <- equal col:integer 8:literal)
     (break-if done?:boolean)
     (file:file-address-address <- index-address b:board-address/deref col:integer)
-    (file:file-address-address/deref curr:list-address <- read-file curr:list-address)
+    (file:file-address-address/deref curr:list-address <- init-file curr:list-address)
     (col:integer <- add col:integer 1:literal)
     (loop)
   }
   (reply b:board-address)
 ])
 
-(function read-file [
+(function init-file [
   (default-space:space-address <- new space:literal 30:literal)
   (cursor:list-address <- next-input)
   (result:file-address <- new file:literal 8:literal)
@@ -213,7 +213,7 @@
 
 (function main [
   (default-space:space-address <- new space:literal 30:literal)
-  (b:board-address <- read-board)
+  (b:board-address <- init-board)
   (cursor-mode)
   ; hook up stdin
   (1:channel-address/raw <- init-channel 1:literal)