🚀 go-pugleaf

In article <RAICHLE.91Jun5125624@azu.informatik.uni-stuttgart.de>, raichle@informatik (Bernd Raichle) writes:
>% use plainTeX
>\catcode`\"=\active\gdef"{\"}
>T"ater                     % output: T\"ater
>\begingroup\catcode`\"=12
>  \showthe\catcode`\"      % print:  12
>  % @<Insert your hack at this place@>
>  \showthe\catcode`\"      % print:  12
>  T"ater                   % output: T''ater
>  \catcode`\"=\active
>  T"ater                   % output: T''ater
>\endgroup
>T"ater                     % output: T\"ater
>\bye

I know we were expressly forbidden from using \aftergroup, but here's
a solution shorter than the one Mr. Raichle provided (47 characters)

   {\catcode`"\active\aftergroup\let\aftergroup"}"

Of equal length, but slightly more devious (using the fact that we can
use " itself as a scratch variable!)

   {\catcode`"\active\aftergroup\let\futurelet"}""

Anyway, here's a non-aftergroup solution.

   {\catcode`"\active\let"a\expandafter}\expandafter\let""

It makes the assumption that \catcode`\a=11, which is a safe assumption
because if it weren't, the \catcode csname wouldn't have been parsed
correctly in the first place!

Other things I tried...

   use an \halign to control the order of tokenization
   using \char34 instead of \catcode`"12" (turned out not to be necessary)
   using \afterassignment instead of \aftergroup (turned out not to be nec.)

Does this make me a wizard?