: replace-word ( xt cfa -- )  \ from ans-report.fs
    \ replace word at cfa with xt.
    \    dodefer: over code-address!
    \    >body ! ;
    dup @ docol: <> -12 and throw \ for colon defs only
    >body ['] branch xt>threaded over !
    cell+ >r >body r> ! ;

s" names.out" w/o create-file throw value name-file

: [>>] ( "name" -- )
	postpone [']
	postpone name-file postpone outfile-execute ; immediate

: note-name ( nt -- )
	name>string [>>] type [>>] cr ;

: note-new-name ( -- )
	(header)  s" : " [>>] type latest note-name ;

: find&note-name ( c-addr u -- nt|0 )
	lookup @ (search-wordlist)  dup if
		s" ? " [>>] type dup note-name
	else s" #" [>>] type [>>] cr then ;

' note-new-name is header
' find&note-name ' find-name replace-word