version 1.10, 1995/01/25 18:53:48
|
version 1.11, 1995/01/30 18:47:48
|
Line 43 on the next line.
|
Line 43 on the next line.
|
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.") |