diff options
| -rw-r--r-- | x.rkt | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/x.rkt b/x.rkt index ef5ad28b..aecc714a 100644 --- a/x.rkt +++ b/x.rkt @@ -3,12 +3,8 @@ (open-charterm) (charterm-clear-screen) (charterm-cursor 5 5) -(displayln-color "Hello" #:fg 'green) ; works -(charterm-cursor 25 5) -(displayln-color " Hello" #:fg 'green) ; works -;? ;? (charterm-cursor 1 6) ;? 2 -;? ;? (display-color "Hello" #:fg 'green) ; err: cursor moves to start of line ;? 1 -;? (charterm-newline) ; doesn't work after display; somehow runs before it ;? 1 -;? ;? (charterm-clear-line) ;? 3 -;? (displayln-color "World" #:fg 'green) ;? 1 +(display-color "Hello" #:fg 'green) +(flush-output) +(charterm-newline) +(display-color "Hello" #:fg 'green) (close-charterm) |