diff --git a/Slang/slang.js b/Slang/slang.js index a3dfddb..5ea2e4d 100755 --- a/Slang/slang.js +++ b/Slang/slang.js @@ -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',