From 09ef5055fd41b0e7383708ed939e4f49e354da83 Mon Sep 17 00:00:00 2001 From: kitty Date: Fri, 10 Apr 2026 23:05:14 +1000 Subject: input stuff, fix parse{,-name} skipping last char of tib --- readme.md | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'readme.md') diff --git a/readme.md b/readme.md index df4c021..0e9e694 100644 --- a/readme.md +++ b/readme.md @@ -236,6 +236,9 @@ if a word was found, its link field address is returned along with the true flag. if no word was found or the string is of length zero, abort. +### `?componly? ( -- )` +produce a compile-only error. + ### `?notfound? ( -- )` produce a word not found error. @@ -443,9 +446,6 @@ and skip to `then` if the corresponding `if` was true. ### `emit ( c -- )` print the single character c to output. -### `etype ( a u -- )` -write u characters at a to error output. - ### `executable ( a u -- )` marks the u bytes starting at address a as executable. this is used primarily to mark the program break, @@ -779,6 +779,9 @@ create a variable word, which yields an address that can be written and read. ### `w/o ( -- 1 )` a constant, meaning 'write only', used for file I/O. +### `warn ( a u -- )` +write u characters at a to error output. + ### `while ( ? -- ) IMMEDIAT COMPILE-ONLYE` if given flag is true, continue the current begin-while-repeat loop, otherwise branch to after. -- cgit v1.2.3