version 1.18, 1996/01/25 16:45:51
|
version 1.19, 1996/05/06 12:38:59
|
Line 36
|
Line 36
|
|
|
|
|
(defvar forth-positives |
(defvar forth-positives |
" : :noname code ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case struct [if] [else] " |
" : :noname code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-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.") |
Line 48 on the current line.
|
Line 48 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.") |
|
|
(defvar forth-zeroes |
(defvar forth-zeroes |
" : :noname code " |
" : :noname code interpretation: " |
"Contains all words which causes the indent to go to zero") |
"Contains all words which causes the indent to go to zero") |
|
|
(defvar forth-prefixes |
(defvar forth-prefixes |