gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

version 1.14, 1995/10/07 17:38:15	version 1.15, 1995/10/11 19:39:34
Line 37	Line 37


(defvar forth-positives	(defvar forth-positives
" : :noname code does> begin do ?do while if ?dup-if ?dup-not-if else case struct [if] [else] "	" : :noname code ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-not-if else case struct [if] [else] "
"Contains all words which will cause the indent-level to be incremented	"Contains all words which will cause the indent-level to be incremented
on the next line.	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
" ; end-code does> until repeat while +loop loop s+loop else then endif again endcase end-struct [then] [else] [endif]"	" ; end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase 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.")