Miroirs/cloforth
1
0
Fork 0
mirror of https://github.com/russolsen/cloforth synced 2024-11-16 19:48:23 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build true and false from results of comparisons

Browse source
This commit is contained in:
Russ Olsen 2012-07-20 14:18:16 -04:00
parent 1e425c552a
commit 98045c9410
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
init.c4
View file

@ -4,8 +4,9 @@
; : <word> [ <<defintion>> ]
compile [ gettok compile rot set! ] ':' set!
; False is not true
: false [ true not ]
: true [ 1 1 = ]
: false [ 1 0 = ]
; Print the top of the stack and pop it off
: . [ print drop ]