Example #1
0
////////////////////////////////////////////////////////////////
//and & or expressions
///////////////////////////////////////////////////////////////
static cellpoint is_and(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("and"));
	args_push(reg);
	return is_tagged_list();
}
Example #2
0
///////////////////////////////////////////////////////////////////
//let* expression
///////////////////////////////////////////////////////////////////
static cellpoint is_letstar(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("let*"));
	args_push(reg);
	return is_tagged_list();
}
Example #3
0
///////////////////////////////////////////////////////////////
//definition
//format: (define <var> <value>) or 
//        (define (var <formals>) <body>)
//////////////////////////////////////////////////////////////
static cellpoint is_definition(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("define"));
	args_push(reg);
	reg = is_tagged_list();
	return reg;
}
Example #4
0
//////////////////////////////////////////////////////////
//lambda
//format: (lambda <formal> <body>)
//////////////////////////////////////////////////////////
static cellpoint is_lambda(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("lambda"));
	args_push(reg);
	reg = is_tagged_list();
	return reg;
}
Example #5
0
//////////////////////////////////////////////////////
//quotation
//format: (quote <datum>)
//////////////////////////////////////////////////////
static cellpoint is_quoted(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("quote"));
	args_push(reg);
	reg = is_tagged_list();
	return reg;
}
Example #6
0
/////////////////////////////////////////////////////////////////
//begin
//format: (begin <exps>)
/////////////////////////////////////////////////////////////////
static cellpoint is_begin(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("begin"));
	args_push(reg);
	reg = is_tagged_list();
	return reg;
}
Example #7
0
/////////////////////////////////////////////////////
//assignment
//format: (set! <var> <value>)
/////////////////////////////////////////////////////
static cellpoint is_assignment(cellpoint exp)
{
	reg = exp;
	args_push(make_symbol("set!"));
	args_push(reg);
	reg = is_tagged_list();
	return reg;
}
Example #8
0
bool is_assignment(object *exp) {
    return is_tagged_list(exp, set_symbol());
}
Example #9
0
bool is_or(object *exp) {
    return is_tagged_list(exp, or_symbol());
}
Example #10
0
char is_let(object *exp) {
    return is_tagged_list(exp, let_symbol());
}
Example #11
0
bool is_if(object *exp) {
    return is_tagged_list(exp, if_symbol());
}
Example #12
0
File: eval.c Project: ingramj/bs
static inline int is_or(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("or"));
}
Example #13
0
File: eval.c Project: ingramj/bs
static inline int is_begin(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("begin"));
}
Example #14
0
static int is_begin(pSlip gd, pSlipObject exp)
{
	return is_tagged_list(exp, gd->singleton_Begin);
}
Example #15
0
static int is_if(pSlip gd, pSlipObject expression)
{
	return is_tagged_list(expression, gd->singleton_IFSymbol);
}
Example #16
0
File: eval.c Project: ingramj/bs
static inline int is_definition(object *exp)
{

    return is_tagged_list(exp, lookup_symbol("define"));
}
Example #17
0
File: eval.c Project: ingramj/bs
static inline int is_cond(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("cond"));
}
Example #18
0
static int is_cond(pSlip gd, pSlipObject exp)
{
	return is_tagged_list(exp, gd->singleton_Cond);
}
Example #19
0
File: eval.c Project: ingramj/bs
static inline int is_lambda(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("lambda"));
}
Example #20
0
char is_lambda(object *exp) {
	return is_tagged_list(exp, lambda_symbol);
}
Example #21
0
char is_cond(object *exp) {
    return is_tagged_list(exp, cond_symbol());
}
Example #22
0
char is_if(object *exp) {
	return is_tagged_list(exp, if_symbol);
}
Example #23
0
bool is_begin(object *exp) {
    return is_tagged_list(exp, begin_symbol());
}
Example #24
0
char is_and(object *exp) {
    return is_tagged_list(exp, and_symbol);
}
Example #25
0
bool is_and(object *exp) {
    return is_tagged_list(exp, and_symbol());
}
Example #26
0
char is_or(object *exp) {
    return is_tagged_list(exp, or_symbol);
}
Example #27
0
bool is_quoted(object *expression) {
    return is_tagged_list(expression, quote_symbol());
}
Example #28
0
File: eval.c Project: ingramj/bs
static inline int is_quoted(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("quote"));
}
Example #29
0
bool is_definition(object *exp) {
    return is_tagged_list(exp, define_symbol());
}
Example #30
0
File: eval.c Project: ingramj/bs
static inline int is_assignment(object *exp)
{
    return is_tagged_list(exp, lookup_symbol("set!"));
}