SHARE
TWEET

Untitled

a guest Jul 2nd, 2013 1,775 Never
  1. /* make closure. c is code. e is environment */
  2. static pointer mk_closure(scheme *sc, pointer c, pointer e) {
  3.         pointer x = get_cell(sc, c, e);
  4.  
  5.         typeflag(x) = T_CLOSURE;
  6.         car(x) = c;
  7.         cdr(x) = e;
  8.         return (x);
  9. }
RAW Paste Data
Top