flynx/Slang
1
0
Fork 0
mirror of https://github.com/flynx/Slang.git synced 2025-10-29 18:50:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

added a prefix construct...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-06-27 17:26:53 +04:00
parent 4057b7c7bd
commit ba3f6de717
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Slang/slang.js
View File

@ -849,6 +849,20 @@ var BOOTSTRAP = [
'infix: >= ge',
'',
'',
'-- swap stack and code untill the block finishes and consumes it\'s arguments',
'-- then swap them back...',
':: prefix: ( | op word -- | ) [',
' [',
' -- format the word definition...',
' -- NAME WORD -> :: NAME WORD',
' s2b \\ :: -2 before b2s',
'',
' -- the code template',
' [ \\ _flip \\ exec \\ WORD _flip ] clone',
' swap WORD replace',
' 3 0 _swapN',
' ] \\ exec 2 2 _swapN ]',
'',
'',
'-- Tests and examples...',
'',