Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /* make closure. c is code. e is environment */
- static pointer mk_closure(scheme *sc, pointer c, pointer e) {
- pointer x = get_cell(sc, c, e);
- typeflag(x) = T_CLOSURE;
- car(x) = c;
- cdr(x) = e;
- return (x);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement