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

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

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Slang/slang.js
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 ]',