go-first

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

demo6.th (388B)


      1 : foobar
      2   2
      3   [ 2 ,		  ( '[' turns the compiler off, allowing us to execute code )
      4     1 1 1 + + ,   ( and we compile in-line a 2 and a three )
      5 		  ( the '2' means 'push the number following this' )
      6   ]
      7   + . cr
      8 ;
      9 
     10 foobar
     11 
     12 : 'foobar ' foobar ;    ( ' can only be run inside the compiler )
     13 			( ' leaves the address of the following word
     14 			    on the stack )
     15 
     16 'foobar . cr
     17 
     18 'foobar dump