| \ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
| \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| |
|
| : pad ( -- addr ) \ core-ext |
: pad ( -- c-addr ) \ core-ext |
| |
\G @var{c-addr} is the address of a transient region that can be |
| |
\G used as temporary data storage. At least 84 characters of space |
| |
\G is available. |
| here word-pno-size + aligned ; |
here word-pno-size + aligned ; |
| |
|
| \ hold <# #> sign # #s 25jan92py |
\ hold <# #> sign # #s 25jan92py |
| |
|
| : hold ( char -- ) \ core |
: hold ( char -- ) \ core |
| \G Used within @code{<#} and @code{#>}. Append the character char |
\G Used within @code{<#} and @code{#>}. Append the character |
| \G to the pictured numeric output string. |
\G @var{char} to the pictured numeric output string. |
| -1 chars holdptr +! |
-1 chars holdptr +! |
| holdptr @ dup holdbuf u< -&17 and throw |
holdptr @ dup holdbuf u< -&17 and throw |
| c! ; |
c! ; |
