flynx/Slang
1
0
Fork 0
mirror of https://github.com/flynx/Slang.git synced 2025-10-31 03:20:09 +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 -- ) [ drop ]',
':: .. ( x -- ) [ print drop ]', ':: .. ( x -- ) [ print drop ]',
'', '',
':: isT ( a -- b ) [ not not true eq ]', ':: true? ( a -- b ) [ not not true eq ]',
':: isF ( a -- b ) [ not isT ]', ':: false? ( a -- b ) [ not true? ]',
'', '',
'-- we already have gt and eq, now let\'s define the rest...', '-- we already have gt and eq, now let\'s define the rest...',
':: ne ( a b -- c ) [ eq not ]', ':: ne ( a b -- c ) [ eq not ]',
@ -706,7 +706,7 @@ var BOOTSTRAP = [
'-- [ cond ] [ A ] [ B ] if', '-- [ cond ] [ A ] [ B ] if',
'--', '--',
'-- A bit too "polish" in my view ;)', '-- 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:', '-- Ternary operator, this can take two forms:',
'-- COND ? A', '-- COND ? A',