alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Probably better definition of CASE.

Browse Source
This commit is contained in:
Brad Nelson
2022-09-23 22:49:37 -07:00
parent 58f5cb249d
commit 30665011df
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
common/case.fs
View File

@ -12,8 +12,14 @@
\ See the License for the specific language governing permissions and
\ limitations under the License.
: CASE ( n -- ) postpone ahead >r postpone begin
postpone ahead r> postpone then swap ; immediate
: ENDCASE drop postpone drop postpone then ; immediate
internals definitions
variable cases
forth definitions internals
: CASE ( n -- ) cases @ 0 cases ! ; immediate
: ENDCASE cases @ for aft postpone then then next
cases ! postpone drop ; immediate
: OF ( n -- ) postpone over postpone = postpone if ; immediate
: ENDOF postpone drop over postpone again postpone then ; immediate
: ENDOF 1 cases +! postpone else ; immediate
forth definitions