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 | |
| parent | a617d963c3e75bbbf292f4632e11521a1d65a7ac (diff) | |
| download | mu-812b5393556341740307ba29b7538cd9e56f7a47.tar.gz | |
610 - all examples working again
| -rw-r--r-- | chessboard-cursor.mu | 3 | ||||
| -rw-r--r-- | mu.arc | 6 | ||||
| -rw-r--r-- | stdin.mu | 1 |
3 files changed, 3 insertions, 7 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))) diff --git a/mu.arc b/mu.arc index 3e95a0a4..bd998aa2 100644 --- a/mu.arc +++ b/mu.arc @@ -669,12 +669,12 @@ (do1 nil ;? (write (m arg.0)) (pr " => ") (prn (type (m arg.0))) (if (no ($.current-charterm)) - (pr (m arg.0))) + (pr (m arg.0)) (caselet x (m arg.0) #\newline ($.charterm-newline) ;else - ($.charterm-display x)) + ($.charterm-display x))) ) read-key-from-host (if ($.current-charterm) @@ -2329,7 +2329,7 @@ ;? (= dump-trace* (obj whitelist '("run"))) ;? (= dump-trace* (obj whitelist '("schedule"))) ;? (= dump-trace* (obj whitelist '("cn0" "cn1"))) -;? (set dump-trace*) +;? (set dump-trace*) ;? 0 ;? (freeze function*) ;? (prn function*!factorial) (run 'main) diff --git a/stdin.mu b/stdin.mu index 088ec1b0..4ffded52 100644 --- a/stdin.mu +++ b/stdin.mu @@ -23,7 +23,6 @@ ;? (print-primitive-to-host c:character) (done?:boolean <- equal c:character ((#\q literal))) (break-if done?:boolean) - (print-character nil:literal/terminal c:character) (loop) } ]) |