C++ (Cpp) IS_LAMBDA Examples

Example #1

File: mono.c Project: sasagawa888/Mono-Lisp

int lambdap(int addr){
	int val;
    
    val = findsym(addr);
    if(val != 0)
		return(IS_LAMBDA(val));
    else
    	return(0);
}

Example #2

File: mono.c Project: kmizumar/Mono

int lambdap(int addr){
        int symaddr;
    
        symaddr = findsym(symname(addr));
    if(symaddr == NIL)
        return(0);
    else {
        if((IS_FUNC(symaddr)) && (IS_LAMBDA(symaddr)))
                return(1);
        else
                return(0);
    }
}

Example #3

File: mono.c Project: sasagawa888/Mono-Lisp

void markcell(int addr){
	if(USED_CELL(addr))
    	return;
 
	MARK_CELL(addr); 
    if(car(addr) != 0)
    	markcell(car(addr));

	if(cdr(addr) != 0)
    	markcell(cdr(addr));
    
    if((GET_BIND(addr) != 0) && (IS_LAMBDA(addr)))
    	markcell(GET_BIND(addr));
     
}