LispFloat.h

   1 #if !defined(H_LISPFLOAT)
   2 #define H_LISPFLOAT
   3
   4 namespace Lisp
   5 {
   6
   7         struct Floatnum : public LispObj
   8         {
   9                 void make(FloatnumType v)
  10                 {
  11                         object.tag.setType(eFloatnumObj);
  12                         object.values.resize(1);
  13                         object.values[0] = LispValue(v);
  14                 }
  15
  16                 FloatnumType value()
  17                 {
  18                         return object.values[0];
  19                 }
  20
  21         };
  22
  23 }
  24 #endif