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

minor fixes...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-10 17:13:52 +04:00
parent 6f24dc981f
commit f1a16805d4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Slang/slang.js
View File

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