6.2.2530
[COMPILE]
bracket-compile
CORE EXT
Interpretation:
Interpretation semantics for this word are undefined.

Compilation:
( "<spaces>name" -- )

Skip leading space delimiters. Parse name delimited by a space. Find name. If name has other than default compilation semantics, append them to the current definition; otherwise append the execution semantics of name. An ambiguous condition exists if name is not found.

Note:
This word is obsolescent and is included as a concession to existing implementations.

See:
3.4.1 Parsing, A.6.2.2530 [COMPILE].

Rationale:
Typical use: : name2 ... [COMPILE] name1 ... ; IMMEDIATE
Testing:
With default compilation semantics
T{ : [c1] [COMPILE] DUP ; IMMEDIATE -> }T
T{ 123 [c1] -> 123 123 }T

With an immediate word
T{ : [c2] [COMPILE] [c1] ; -> }T
T{ 234 [c2] -> 234 234 }T

With special compilation semantics
T{ : [cif] [COMPILE] IF ; IMMEDIATE -> }T
T{ : [c3]  [cif] 111 ELSE 222 THEN ; -> }T
T{ -1 [c3] -> 111 }T
T{  0 [c3] -> 222 }T