mirror of
				https://github.com/flynx/Course-JavaScript.git
				synced 2025-11-04 05:50:08 +00:00 
			
		
		
		
	added a prefix construct...
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
		
							parent
							
								
									4057b7c7bd
								
							
						
					
					
						commit
						ba3f6de717
					
				@ -849,6 +849,20 @@ var BOOTSTRAP = [
 | 
				
			|||||||
'infix: >= ge',
 | 
					'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...',
 | 
					'-- Tests and examples...',
 | 
				
			||||||
'',
 | 
					'',
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user