pass interpreter context to pair_unwrap

include/wolflisp.h

@@ -35,12 +35,12 @@ typedef struct Pa {
 typedef struct Sy {
   U32 hash;
   Z len;
-  U8 *data;
+  char *data;
 } Sy;
 
 typedef struct Ss {
   Z len;
-  char data[];
+  char *data;
 } Ss;
 
 // Closure
@@ -201,7 +201,7 @@ Sy *intern(St *tab, const char *str, Z len);
 // Create a pair
 O pair_make(In *in, O head, O tail);
 // Unwrap a pair
-Pa *pair_unwrap(O obj);
+Pa *pair_unwrap(In *in, O obj);
 
 O string_make(In *in, const char *cstr, I len);
 
@@ -211,8 +211,8 @@ V println(O obj);
 O symbol_make(In *in, const char *str);
 O prim_make(In *in, const char *name, O (*fn)(In *, O, O));
 
-O list_assoc(O key, O alist);
-O list_reverse(O list);
+O list_assoc(In *in, O key, O alist);
+O list_reverse(In *in, O list);
 
 int nexttoken(Lx *lex);