repo.or.cz
/
lispp.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Refactoring
[lispp.git]
/
LispFloat.h
blob
ef39b9b89dad64d7a9c887d2a199ef15d751a614
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