Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (12 sloc) 0.261 kb
#include "object.h"
#include "mem.h"
int is_flonum(object *obj) {
return obj != NULL && type(obj) == FLONUM;
}
object* make_flonum(double val) {
object *obj;
obj = alloc_object();
type(obj) = FLONUM;
obj_rv(obj) = val;
return obj;
}
Jump to Line
Something went wrong with that request. Please try again.