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

fixed some minor bugs + some cleanup...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-10 15:54:00 +04:00
parent 01a0b7872a
commit 2596b93e84
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Slang/slang.js
View File

@ -365,7 +365,7 @@ var NAMESPACE = {
return context.stack.pop() * context.stack.pop()
},
'div': function(context){
return context.stack.pop() / context.stack.pop()
return 1/context.stack.pop() * context.stack.pop()
},
// block/list operations...
@ -709,13 +709,12 @@ var BOOTSTRAP = [
' -- empty list, sum is 0...',
' [ len 0 eq ] ?',
' [ . 0 ]',
' -- sum of list of len 1 is it\'s content, so just pop it...',
' else [ [ len 1 eq ] ?',
' [ pop swap . ]',
' -- and now recursively sum up elements till the list is 1 in length...',
' else',
' -- sum of list of len 1 is it\'s content, so just pop it...',
' [ [ len 1 eq ] ?',
' [ pop swap . ]',
' -- and now recursively sum up elements till the list is 1 in length...',
' else',
' [ pop rot pop tor add push sum ] ] ]',
' [ pop rot pop tor add push sum ] ] ]',
'',
'',
'',
@ -728,7 +727,7 @@ var BOOTSTRAP = [
' [',
' -- format the word definition...',
' -- NAME WORD -> :: NAME WORD',
' s2b \\ :: -3 before b2s',
' s2b \\ :: -2 before b2s',
'',
' -- our template...',
' -- exec the left side...',