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

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...',
'',
'',
'-- 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',
'',
'',
'',