flynx/Slang
1
0
Fork 0
mirror of https://github.com/flynx/Slang.git synced 2025-10-31 11:30:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

added the rest of the comparison operations...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-10 16:51:47 +04:00
parent de9737ec55
commit 6f24dc981f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Slang/slang.js
View File

@ -632,13 +632,17 @@ var BOOTSTRAP = [
':: . ( x -- ) [ drop ]', ':: . ( x -- ) [ drop ]',
':: .. ( x -- ) [ print drop ]', ':: .. ( x -- ) [ print drop ]',
'', '',
':: ne ( a -- b ) [ eq not ]',
':: isT ( a -- b ) [ not not true eq ]', ':: isT ( a -- b ) [ not not true eq ]',
':: isF ( a -- b ) [ not isT ]', ':: isF ( a -- b ) [ not isT ]',
'', '',
'-- 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 or ]',
':: le ( a b -- c ) [ gt not ]',
'',
':: inc ( a -- b ) [ 1 add ]', ':: inc ( a -- b ) [ 1 add ]',
':: dec ( a -- b ) [ 1 sub ]', ':: dec ( a -- b ) [ 1 sub ]',
'',
':: ! ( a -- b ) [ [ dup 1 ne ] ? [ dup 1 sub ! mul ] ]', ':: ! ( a -- b ) [ [ dup 1 ne ] ? [ dup 1 sub ! mul ] ]',
'', '',
'', '',