\r
\ *********************************************************************\r
\ This is another style of comment that is common in Forth.\r
\r
\ *********************************************************************\r
\ This is another style of comment that is common in Forth.\r
\r
: CHAR+ ( n -- n+size_of_char ) 1+ ;\r
: CHARS ( n -- n*size_of_char , don't do anything) ; immediate\r
\r
: CHAR+ ( n -- n+size_of_char ) 1+ ;\r
: CHARS ( n -- n*size_of_char , don't do anything) ; immediate\r
drop ." Could not find file " $type cr abort\r
ELSE ( -- $filename good-fid )\r
swap include.mark.start\r
drop ." Could not find file " $type cr abort\r
ELSE ( -- $filename good-fid )\r
swap include.mark.start\r
\r
.( Dictionary compiled, save in "pforth.dic".) cr\r
c" pforth.dic" save-forth\r
\r
.( Dictionary compiled, save in "pforth.dic".) cr\r
c" pforth.dic" save-forth\r