- /* FIXME: ugly use of globals */
- SETPRM(1, WD2, WD2X);
- if (WD2 <= 0)
- SETPRM(1, WD1, WD1X);
- if (WD2 > 0)
- WD1 = WD2;
- int wd = VOCAB(WD1, -1);
- /* FIXME: Magic numbers */
- if (wd == 62 || wd == 65 || wd == 71 || wd == 2025 || wd == 2034) {
- WD2 = 0;
+ long a = command->wd1, b = command->wd1x;
+ if (command->wd2 > 0) {
+ a = command->wd2;
+ b = command->wd2x;
+ command->wd1 = command->wd2;
+ }
+ //int wd = vocab(command->wd1, -1);
+ char word1[6];
+ packed_to_token(command->wd1, word1);
+ int wd = (int) get_vocab_id(word1);
+ /* FIXME: magic numbers */
+ if (wd == XYZZY || wd == PLUGH || wd == PLOVER || wd == 2000 + GIANTWORDS || wd == 2000 + PART) {
+ /* FIXME: scribbles on the interpreter's command block */
+ wordclear(&command->wd2);