RosettaCodeData/Task/Runtime-evaluation-In-an-environment/Forth/runtime-evaluation-in-an-environment-1.fth

: f-" ( a b snippet" -- )
  [char] " parse   ( code len )
  2dup 2>r evaluate
  swap 2r> evaluate
  - . ;

2 3 f-" dup *"   \ 5  (3*3 - 2*2)
Initial data commit 2023-07-01 11:58:00 -04:00			`: f-" ( a b snippet" -- )`
			`[char] " parse ( code len )`
			`2dup 2>r evaluate`
			`swap 2r> evaluate`
			`- . ;`

			`2 3 f-" dup " \ 5 (33 - 2*2)`