fork download 
  1. : RDEPTH
  2.   R0 @ RP@ - CELL / ;
  3.  
  4. VARIABLE RP_
  5. : RESET-RP_ 0 RP_ ! ;
  6. : :r RDEPTH RP_ ! : ;
  7. : r; POSTPONE RESET-RP_
  8.      POSTPONE ;
  9.  ; IMMEDIATE
  10.  
  11. : RRDEPTH \ relative rdepth to the current word call
  12.           \ the word that uses RRDEPTH must be defined with :r r;
  13.   RDEPTH 1- RP_ @ -
  14. ;  
  15.  
  16. :r tt 2 >R RRDEPTH . R> DROP r;
  17. tt \ will print 1
  18.  
Runtime error #stdin #stdout #stderr 0s 4508KB
comments (?)
stdin 
Standard input is empty
stdout 

	

		
	 
	
		
	
		 stderr
			

	

        
in file included from *OS command line*:-1
prog.4th:2: Undefined word
  >>>R0<<< @ RP@ - CELL / ;
Backtrace:
$2ADE5A705A68 throw 
$2ADE5A71BD58 no.extensions 
$2ADE5A7093A0 compiler-notfound1 

    

	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			


			                        
			
			

				

	
					
					 https://ideone.com/E4PwOP
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Forth (gforth 0.7.3)

					

					

						
created:
								
						
4 years ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!