Fix bug in environment parser

hol4/floverParserScript.sml

@@ -438,7 +438,7 @@ val parseGammaRec_def = tDefine "parseGammaRec"
       |NONE => SOME (defaultGamma, input)
       |SOME (e,residual) =>
         (case residual of
-         | DCONST n :: DTYPE m :: inputRest =>
+         | DTYPE m :: inputRest =>
           (case parseGammaRec inputRest of
             | SOME (Gamma, rest) =>
               SOME (FloverMapTree_insert e m Gamma, rest)