about summary refs log tree commit diff stats
path: root/edit
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-02-25 20:47:42 -0800
committerKartik K. Agaram <vc@akkartik.com>2016-02-25 20:47:42 -0800
commitd0e29245f9d37256093026d5080452db8a694136 (patch)
tree0f6658fa7dc42e7ac30c0641d1bcd562c332f3ec /edit
parentdcc060c7d4ef56b978beb34ddce8d8ffcec94fa6 (diff)
downloadmu-d0e29245f9d37256093026d5080452db8a694136.tar.gz
2707
Diffstat (limited to 'edit')
-rw-r--r--edit/004-programming-environment.mu2
-rw-r--r--edit/005-sandbox.mu5
-rw-r--r--edit/010-errors.mu7
3 files changed, 0 insertions, 14 deletions
diff --git a/edit/004-programming-environment.mu b/edit/004-programming-environment.mu
index 79b7c7fe..c712c09b 100644
--- a/edit/004-programming-environment.mu
+++ b/edit/004-programming-environment.mu
@@ -380,9 +380,7 @@ recipe render-all screen:address:shared:screen, env:address:shared:programming-e
   # top menu
   trace 11, [app], [render top menu]
   width:number <- screen-width screen
-#?   $print [draw menu], 10/newline
   draw-horizontal screen, 0, 0/left, width, 32/space, 0/black, 238/grey
-#?   $print [draw menu end], 10/newline
   button-start:number <- subtract width, 20
   button-on-screen?:boolean <- greater-or-equal button-start, 0
   assert button-on-screen?, [screen too narrow for menu]
diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu
index 4a29254e..48935761 100644
--- a/edit/005-sandbox.mu
+++ b/edit/005-sandbox.mu
@@ -127,14 +127,11 @@ after <global-keypress> [
   {
     do-run?:boolean <- equal *k, 65532/F4
     break-unless do-run?
-#?     $log [F4 pressed]
     status:address:shared:array:character <- new [running...       ]
     screen <- update-status screen, status, 245/grey
     error?:boolean, env, screen <- run-sandboxes env, screen
     # F4 might update warnings and results on both sides
-#?     $print [render-all begin], 10/newline
     screen <- render-all screen, env
-#?     $print [render-all end], 10/newline
     {
       break-if error?
       status:address:shared:array:character <- new [                 ]
@@ -243,7 +240,6 @@ recipe save-sandboxes env:address:shared:programming-environment-data [
 recipe! render-sandbox-side screen:address:shared:screen, env:address:shared:programming-environment-data -> screen:address:shared:screen [
   local-scope
   load-ingredients
-#?   $log [render sandbox side]
   trace 11, [app], [render sandbox side]
   current-sandbox:address:shared:editor-data <- get *env, current-sandbox:offset
   row:number, column:number <- copy 1, 0
@@ -268,7 +264,6 @@ recipe! render-sandbox-side screen:address:shared:screen, env:address:shared:pro
 recipe render-sandboxes screen:address:shared:screen, sandbox:address:shared:sandbox-data, left:number, right:number, row:number, render-from:number, idx:number -> row:number, screen:address:shared:screen, sandbox:address:shared:sandbox-data [
   local-scope
   load-ingredients
-#?   $log [render sandbox]
   reply-unless sandbox
   screen-height:number <- screen-height screen
   at-bottom?:boolean <- greater-or-equal row, screen-height
diff --git a/edit/010-errors.mu b/edit/010-errors.mu
index d5d7065f..32dff4fa 100644
--- a/edit/010-errors.mu
+++ b/edit/010-errors.mu
@@ -8,7 +8,6 @@ container programming-environment-data [
 recipe! update-recipes env:address:shared:programming-environment-data, screen:address:shared:screen -> errors-found?:boolean, env:address:shared:programming-environment-data, screen:address:shared:screen [
   local-scope
   load-ingredients
-#?   $log [update recipes]
   recipes:address:shared:editor-data <- get *env, recipes:offset
   in:address:shared:array:character <- editor-contents recipes
   save [recipes.mu], in
@@ -74,9 +73,7 @@ before <render-components-end> [
     status-template:address:shared:array:character <- new [errors found (_)    ]
     error-index-text:address:shared:array:character <- to-text error-index
     status:address:shared:array:character <- interpolate status-template, error-index-text
-#?     $print [update-status: sandbox error], 10/newline
     update-status screen, status, 1/red
-#?     $print [run sandboxes end], 10/newline
   }
 ]
 
@@ -87,13 +84,11 @@ container sandbox-data [
 recipe! update-sandbox sandbox:address:shared:sandbox-data, env:address:shared:programming-environment-data, idx:number -> sandbox:address:shared:sandbox-data, env:address:shared:programming-environment-data [
   local-scope
   load-ingredients
-#?   $log [update sandbox]
   data:address:shared:array:character <- get *sandbox, data:offset
   response:address:address:shared:array:character <- get-address *sandbox, response:offset
   errors:address:address:shared:array:character <- get-address *sandbox, errors:offset
   trace:address:address:shared:array:character <- get-address *sandbox, trace:offset
   fake-screen:address:address:shared:screen <- get-address *sandbox, screen:offset
-#?   $print [run-interactive], 10/newline
   *response, *errors, *fake-screen, *trace, completed?:boolean <- run-interactive data
   {
     break-if *errors
@@ -103,13 +98,11 @@ recipe! update-sandbox sandbox:address:shared:sandbox-data, env:address:shared:p
   }
   {
     break-unless *errors
-#?     $print [setting error-index to ], idx, 10/newline
     error-index:address:number <- get-address *env, error-index:offset
     error-not-set?:boolean <- equal *error-index, -1
     break-unless error-not-set?
     *error-index <- copy idx
   }
-#?   $print [done with run-interactive], 10/newline
 ]
 
 # make sure we render any trace