$NetBSD: patch-ac,v 1.2 2015/12/29 23:34:57 dholland Exp $

Handle floating values properly.

--- src/l_defs.h.orig	Fri Mar 15 00:16:28 2002
+++ src/l_defs.h	Fri Mar 15 00:16:40 2002
@@ -69,6 +69,7 @@
   uc * a;
   /** Additional information */
   uc * b;
+  double d;
 };
 /** ATOM pointer */
 typedef struct _ato * ATOM;
@@ -141,7 +142,7 @@
 ATOM MakeDAtom(double d);
 ATOM MakeFAtom(FILE *d);
 /* double GetDouble(ATOM a); */
-#define GetDouble(at) (*((double *)((at)->a)))
+#define GetDouble(at) ((at)->d)
 int kilatom(ATOM a);
 int killlist(LIST l);
 int kilat(ATOM a);