diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-12 00:06:40 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-12 00:38:36 -0700 |
commit | ea19d0dc2c11f48ca384fb087b4e44ef400bfaa2 (patch) | |
tree | ba204ece67397481a3104f4c7c1d6a0f3ad271f7 /081print.mu | |
parent | ec1cd4ae38f283970a401354a1ec17823fa0b7da (diff) | |
download | mu-ea19d0dc2c11f48ca384fb087b4e44ef400bfaa2.tar.gz |
3337 - first use of type abbreviations: text
In the process I've uncover a couple of situations we don't support type abbreviations yet. They're next.
Diffstat (limited to '081print.mu')
-rw-r--r-- | 081print.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/081print.mu b/081print.mu index 5efafd2b..59ce9ed6 100644 --- a/081print.mu +++ b/081print.mu @@ -674,8 +674,8 @@ scenario print-text-stops-at-right-margin [ run [ local-scope fake-screen:address:screen <- new-fake-screen 3/width, 2/height - s:address:array:character <- new [abcd] - fake-screen <- print fake-screen, s:address:array:character + s:text <- new [abcd] + fake-screen <- print fake-screen, s:text cell:address:array:screen-cell <- get *fake-screen, data:offset 10:array:screen-cell/raw <- copy *cell ] @@ -708,7 +708,7 @@ def print-integer screen:address:screen, n:number -> screen:address:screen [ bg-color <- copy 0/black } # todo: other bases besides decimal - s:address:array:character <- to-text n + s:text <- to-text n screen <- print screen, s, color, bg-color ] |