+/* Returns nonzero if the current token is an floating point. */
+int
+lex_double_p (void)
+{
+ return ( token == T_NUM
+ && tokval != NOT_DOUBLE );
+}
+
+/* Returns the value of the current token, which must be a
+ floating point number. */
+long
+lex_double (void)
+{
+ assert (lex_double_p ());
+ return tokval;
+}
+