# interpret / compile words
: compile-i/c xt>body follow @ execute ; # compile an i/c word
: interpret/compile:
	swap create , ,
	['] compile-i/c comp! 		# compile time semantics = execute second
does>	@ pass execute [		# runtime semantics = execute first
"( xt.interpret xt.compile -- )\tCreate a word with specific interpret and compile semantics" doc


# some words with separate interpret/compile semantics
<'> read 	<'> [read] 	interpret/compile: `		"quote an atom." doc
<'> <is> 	<'> [is] 	interpret/compile: is		"( thing -- )\tSet body to thing." doc
<'> <'>		<'> [']		interpret/compile: '		"( -- xt )\tQuote xt." doc
<'> <super>	<'> [super]	interpret/compile: super	"( -- thing )\tReturn controlling object of does> word." doc