diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-24 23:00:22 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-24 23:00:22 -0800 |
commit | 812b5393556341740307ba29b7538cd9e56f7a47 (patch) | |
tree | 96225464e82af6a2fd6715b5d435c1f4a901cfed /chessboard-cursor.mu | |
parent | a617d963c3e75bbbf292f4632e11521a1d65a7ac (diff) | |
download | mu-812b5393556341740307ba29b7538cd9e56f7a47.tar.gz |
610 - all examples working again
Diffstat (limited to 'chessboard-cursor.mu')
-rw-r--r-- | chessboard-cursor.mu | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/chessboard-cursor.mu b/chessboard-cursor.mu index 412a555a..3f593fbe 100644 --- a/chessboard-cursor.mu +++ b/chessboard-cursor.mu @@ -132,7 +132,6 @@ (a:character <- copy ((#\a literal))) (file-base:integer <- character-to-integer a:character) (c:character <- maybe-coerce x:tagged-value character:literal) - (print-character screen:terminal-address c:character) { begin (quit:boolean <- equal c:character ((#\q literal))) (break-unless quit:boolean) @@ -154,7 +153,6 @@ (screen:terminal-address <- next-input) (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address) (c:character <- maybe-coerce x:tagged-value character:literal) - (print-character screen:terminal-address c:character) { begin (quit:boolean <- equal c:character ((#\q literal))) (break-unless quit:boolean) @@ -179,7 +177,6 @@ ; slurp hyphen (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address) (c:character <- maybe-coerce x:tagged-value character:literal) - (print-character screen:terminal-address c:character) (expected:character <- next-input) (match?:boolean <- equal c:character expected:character) (assert match?:boolean (("expected character not found" literal))) |