about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--chessboard.mu6
-rw-r--r--edit/005-sandbox.mu2
-rw-r--r--edit/009-sandbox-test.mu2
-rw-r--r--edit/011-errors.mu2
-rw-r--r--sandbox/005-sandbox.mu2
-rw-r--r--sandbox/009-sandbox-test.mu2
-rw-r--r--sandbox/011-errors.mu2
7 files changed, 9 insertions, 9 deletions
diff --git a/chessboard.mu b/chessboard.mu
index 19accb52..7351c5ce 100644
--- a/chessboard.mu
+++ b/chessboard.mu
@@ -158,7 +158,7 @@ def print-board screen:&:screen, board:board -> screen:&:screen [
     col:num <- copy 0
     {
       done?:bool <- equal col:num, 8
-      break-if done?:bool
+      break-if done?
       f:&:@:char <- index *board, col
       c:char <- index *f, row
       print screen, c
@@ -251,8 +251,8 @@ def read-move stdin:&:source:char, screen:&:screen -> result:&:move, quit?:bool,
   error? <- expect-from-channel stdin, 45/dash, screen
   return-if error?, 0/dummy, 0/quit
   to-file:num, quit?, error? <- read-file stdin, screen
-  return-if quit?:bool, 0/dummy
-  return-if error?:bool, 0/dummy
+  return-if quit?, 0/dummy
+  return-if error?, 0/dummy
   *result <- put *result, to-file:offset, to-file
   to-rank:num, quit?, error? <- read-rank stdin, screen
   return-if quit?, 0/dummy
diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu
index 4ef76e01..ae322545 100644
--- a/edit/005-sandbox.mu
+++ b/edit/005-sandbox.mu
@@ -273,7 +273,7 @@ def render-sandboxes screen:&:screen, sandbox:&:sandbox, left:num, right:num, ro
   return-unless sandbox
   screen-height:num <- screen-height screen
   at-bottom?:bool <- greater-or-equal row, screen-height
-  return-if at-bottom?:bool
+  return-if at-bottom?
   hidden?:bool <- lesser-than idx, render-from
   {
     break-if hidden?
diff --git a/edit/009-sandbox-test.mu b/edit/009-sandbox-test.mu
index f0ec9cc9..1d1ed172 100644
--- a/edit/009-sandbox-test.mu
+++ b/edit/009-sandbox-test.mu
@@ -189,7 +189,7 @@ after <render-sandbox-response> [
     break-unless expected-response  # fall-through to print in grey
     response-is-expected?:bool <- equal expected-response, sandbox-response
     {
-      break-if response-is-expected?:bool
+      break-if response-is-expected?
       row, screen <- render-text screen, sandbox-response, left, right, 1/red, row
     }
     {
diff --git a/edit/011-errors.mu b/edit/011-errors.mu
index cf12f1c1..049a0853 100644
--- a/edit/011-errors.mu
+++ b/edit/011-errors.mu
@@ -87,7 +87,7 @@ def! update-sandbox sandbox:&:sandbox, env:&:environment, idx:num -> sandbox:&:s
   *sandbox <- put *sandbox, trace:offset, trace
   {
     break-if errors
-    break-if completed?:bool
+    break-if completed?
     errors <- new [took too long!
 ]
     *sandbox <- put *sandbox, errors:offset, errors
diff --git a/sandbox/005-sandbox.mu b/sandbox/005-sandbox.mu
index 907be769..b35f3d13 100644
--- a/sandbox/005-sandbox.mu
+++ b/sandbox/005-sandbox.mu
@@ -258,7 +258,7 @@ def render-sandboxes screen:&:screen, sandbox:&:sandbox, left:num, right:num, ro
   return-unless sandbox
   screen-height:num <- screen-height screen
   at-bottom?:bool <- greater-or-equal row, screen-height
-  return-if at-bottom?:bool
+  return-if at-bottom?
   hidden?:bool <- lesser-than idx, render-from
   {
     break-if hidden?
diff --git a/sandbox/009-sandbox-test.mu b/sandbox/009-sandbox-test.mu
index 34fed44e..62ced6c9 100644
--- a/sandbox/009-sandbox-test.mu
+++ b/sandbox/009-sandbox-test.mu
@@ -191,7 +191,7 @@ after <render-sandbox-response> [
     break-unless expected-response  # fall-through to print in grey
     response-is-expected?:bool <- equal expected-response, sandbox-response
     {
-      break-if response-is-expected?:bool
+      break-if response-is-expected?
       row, screen <- render-text screen, sandbox-response, left, right, 1/red, row
     }
     {
diff --git a/sandbox/011-errors.mu b/sandbox/011-errors.mu
index 06a5fb16..df21cce8 100644
--- a/sandbox/011-errors.mu
+++ b/sandbox/011-errors.mu
@@ -84,7 +84,7 @@ def! update-sandbox sandbox:&:sandbox, env:&:environment, idx:num -> sandbox:&:s
   *sandbox <- put *sandbox, trace:offset, trace
   {
     break-if errors
-    break-if completed?:bool
+    break-if completed?
     errors <- new [took too long!
 ]
     *sandbox <- put *sandbox, errors:offset, errors