diff options
| author | Toomas Soome <tsoome@FreeBSD.org> | 2019-09-16 20:26:53 +0000 |
|---|---|---|
| committer | Toomas Soome <tsoome@FreeBSD.org> | 2019-09-16 20:26:53 +0000 |
| commit | 1781ad707e1278d05f66038a44652a76a02f8567 (patch) | |
| tree | 9940ff5363e5a50452c3060baae8e9d2b46a49d1 /stand/forth | |
| parent | 320c848ff663cfee096f75ec59a9f10a41a167a7 (diff) | |
| download | src-test2-1781ad707e1278d05f66038a44652a76a02f8567.tar.gz src-test2-1781ad707e1278d05f66038a44652a76a02f8567.zip | |
Notes
Diffstat (limited to 'stand/forth')
| -rw-r--r-- | stand/forth/support.4th | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stand/forth/support.4th b/stand/forth/support.4th index aa50b3bb3a9d..64c71e12ec26 100644 --- a/stand/forth/support.4th +++ b/stand/forth/support.4th @@ -363,6 +363,7 @@ variable fd ; : line_buffer_resize ( len -- len ) + dup 0= if exit then >r line_buffer .len @ if line_buffer .addr @ @@ -376,6 +377,7 @@ variable fd ; : append_to_line_buffer ( addr len -- ) + dup 0= if 2drop exit then line_buffer strget 2swap strcat line_buffer .len ! |