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

some refactorings...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-12 17:21:36 +04:00
parent f5329f8210
commit 3cc915c553
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Slang/slang.js
View File

@ -665,8 +665,8 @@ var BOOTSTRAP = [
':: . ( x -- ) [ drop ]',
':: .. ( x -- ) [ print drop ]',
'',
':: isT ( a -- b ) [ not not true eq ]',
':: isF ( a -- b ) [ not isT ]',
':: true? ( a -- b ) [ not not true eq ]',
':: false? ( a -- b ) [ not true? ]',
'',
'-- we already have gt and eq, now let\'s define the rest...',
':: ne ( a b -- c ) [ eq not ]',
@ -706,7 +706,7 @@ var BOOTSTRAP = [
'-- [ cond ] [ A ] [ B ] if',
'--',
'-- A bit too "polish" in my view ;)',
':: if ( cond a b -- ... ) [ rot rot exec isT tor and tor or exec ]',
':: if ( cond a b -- ... ) [ rot rot exec true? tor and tor or exec ]',
'',
'-- Ternary operator, this can take two forms:',
'-- COND ? A',