| OBS! All words in forth-positives must be surrounded by spaces.") |
OBS! All words in forth-positives must be surrounded by spaces.") |
| |
|
| (defvar forth-negatives |
(defvar forth-negatives |
| " ; until repeat while +loop loop s+loop else then endif again endcase does> end-struct [then] [else] " |
" ; until repeat while +loop loop s+loop else then endif again endcase does> end-struct [then] [else] [endif]" |
| "Contains all words which will cause the indent-level to be decremented |
"Contains all words which will cause the indent-level to be decremented |
| on the current line. |
on the current line. |
| OBS! All words in forth-negatives must be surrounded by spaces.") |
OBS! All words in forth-negatives must be surrounded by spaces.") |
