diff options
| author | Kartik Agaram <vc@akkartik.com> | 2018-06-17 11:20:53 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2018-06-17 15:57:37 -0700 |
| commit | 01ce563dfe3e6cf58337708b9dbb60a8a99fa0f2 (patch) | |
| tree | 696fce7bb207e77952d10b7358f4ce00faed3874 /sandbox/002-typing.mu | |
| parent | dd66068298b0a11f2a1f195376cba98e0c8570b5 (diff) | |
| download | mu-01ce563dfe3e6cf58337708b9dbb60a8a99fa0f2.tar.gz | |
4262 - literal 'null'
Diffstat (limited to 'sandbox/002-typing.mu')
| -rw-r--r-- | sandbox/002-typing.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/sandbox/002-typing.mu b/sandbox/002-typing.mu index a67fcf3c..ef3f25d2 100644 --- a/sandbox/002-typing.mu +++ b/sandbox/002-typing.mu @@ -6,10 +6,10 @@ def! main text:text [ local-scope load-inputs open-console - clear-screen 0/screen # non-scrolling app + clear-screen null/screen # non-scrolling app editor:&:editor <- new-editor text, 5/left, 45/right - editor-render 0/screen, editor - editor-event-loop 0/screen, 0/console, editor + editor-render null/screen, editor + editor-event-loop null/screen, null/console, editor close-console ] @@ -223,7 +223,7 @@ def insert-at-cursor editor:&:editor, c:char, screen:&:screen -> go-render?:bool next:&:duplex-list:char <- next before-cursor { # at end of all text? no need to scroll? just print the character and leave - at-end?:bool <- equal next, 0/null + at-end?:bool <- equal next, null break-unless at-end? bottom:num <- subtract screen-height, 1 at-bottom?:bool <- equal save-row, bottom @@ -701,7 +701,7 @@ after <insert-character-special-case> [ just-before-wrap?:bool <- greater-or-equal cursor-column, before-wrap-column next:&:duplex-list:char <- next before-cursor # at end of line? next == 0 || next.value == 10/newline - at-end-of-line?:bool <- equal next, 0 + at-end-of-line?:bool <- equal next, null { break-if at-end-of-line? next-character:char <- get *next, value:offset |