kelp fronds are not gems

- mksobj had a misplaced test for KELP_FROND in the GEM_CLASS code, moved
to the FOOD_CLASS code

diff --git a/src/mkobj.c b/src/mkobj.c
index aa80a7743de6db0951b6e1d685c471f4d0c974d3..ea93201754079de5139fd5b20f8ee359ec6d4392 100644 (file)
--- a/src/mkobj.c
+++ b/src/mkobj.c
@@ -445,6 +445,9 @@ boolean artif;
            case SLIME_MOLD:
                otmp->spe = current_fruit;
                break;
+           case KELP_FROND:
+               otmp->quan = (long) rnd(2);
+               break;
            }
            if (otmp->otyp == CORPSE || otmp->otyp == MEAT_RING) break;
            /* fall into next case */
@@ -452,7 +455,6 @@ boolean artif;
        case GEM_CLASS:
                if (otmp->otyp == LOADSTONE) curse(otmp);
                else if (otmp->otyp == ROCK) otmp->quan = (long) rn1(6,6);
-               else if (otmp->otyp == KELP_FROND) otmp->quan = (long) rnd(2);
                else if (otmp->otyp != LUCKSTONE && !rn2(6)) otmp->quan = 2L;
                else otmp->quan = 1L;
                break;