diff --git a/Slang/slang.js b/Slang/slang.js index 1414904..90524d0 100755 --- a/Slang/slang.js +++ b/Slang/slang.js @@ -628,7 +628,9 @@ var BOOTSTRAP = [ '--', '-- With that out of the way, let\'s start with the bootstrap...', '', +'', '-- misc...', +'', ':: . ( x -- ) [ drop ]', ':: .. ( x -- ) [ print drop ]', '', @@ -638,7 +640,7 @@ 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 or ]', +':: ge ( a b -- c ) [ dup2 eq rot gt tor or ]', ':: le ( a b -- c ) [ gt not ]', '', ':: inc ( a -- b ) [ 1 add ]', @@ -648,6 +650,7 @@ var BOOTSTRAP = [ '', '', '-- Stack/code manipulation...', +'', ':: _swap ( x | y -- y | x ) [ 1 1 _swapN ]', ':: _push ( x | -- | x ) [ 0 _swapN ]', ':: _pull ( | x -- x | ) [ 0 swap _swapN ]', @@ -701,6 +704,7 @@ var BOOTSTRAP = [ '', '', '-- List/block 2\'nd gen stuff...', +'', '-- make a new block instance shorthand...', ':: [] [ [ ] clone ]', '', @@ -793,6 +797,9 @@ var BOOTSTRAP = [ 'infix: == eq', 'infix: != ne', 'infix: > gt', +'infix: < lt', +'infix: <= le', +'infix: >= ge', '', '', '',