updated the logic operators -- thanks to Anna Puchkina for pointing out that my implementation was way too over-comlicated ;)

Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-13 02:58:15 +04:00
parent 3cc915c553
commit 1db04d7f16

View File

@ -670,8 +670,8 @@ var BOOTSTRAP = [
'',
'-- we already have gt and eq, now let\'s define the rest...',
':: ne ( a b -- c ) [ eq not ]',
':: lt ( a b -- c ) [ dup2 eq not rot gt not tor and ]',
':: ge ( a b -- c ) [ dup2 eq rot gt tor or ]',
':: lt ( a b -- c ) [ swap gt ]',
':: ge ( a b -- c ) [ lt not ]',
':: le ( a b -- c ) [ gt not ]',
'',
':: inc ( a -- b ) [ 1 add ]',