File: hack.c

package info (click to toggle)
elk 3.0-6
  • links: PTS
  • area: main
  • in suites: potato, slink
  • size: 4,068 kB
  • ctags: 3,123
  • sloc: ansic: 20,686; lisp: 5,232; makefile: 419; awk: 91; sh: 21
file content (14 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#include "scheme.h"

static Object P_Hack_Procedure_Environment (p, e) Object p, e; {
    Check_Type (p, T_Compound);
    Check_Type (e, T_Environment);
    COMPOUND(p)->env = e;
    return p;
}

elk_init_lib_hack () {
    Define_Primitive (P_Hack_Procedure_Environment,
	"hack-procedure-environment!", 2, 2, EVAL);
    P_Provide (Intern ("hack.o"));
}