From 52034b0f978135bbef267d3d3df9d848c2218fd9 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 14 Jan 2015 21:17:01 -0800 Subject: 567 - stupid function name conflict Is it even worth having my generic function prepend idea? --- chessboard-cursor.mu | 8 ++++---- 1 file 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) -- cgit 1.4.1-2-gfad0