missing stuff for the previous commit

interpreter/thunk.h

@@ -16,7 +16,7 @@ typedef struct __attribute__((packed)) CleanString {
 } CleanString;
 
 typedef struct __attribute__((packed)) Thunk {
-    struct Desc* desc; // NULL, if it is a forward pointer
+    struct Desc* desc;
 
     union {
         Thunk* _forward_ptr;
@@ -24,8 +24,8 @@ typedef struct __attribute__((packed)) Thunk {
         double _real; // TODO: move "real" out of here, too long (at least on 32 bits)
         char _char;
         int _bool;
-        struct CleanString* _string_ptr;
-        struct CleanString _string;
+        //struct CleanString* _string_ptr;
+        //struct CleanString _string;
         Thunk* _args[];
     };
 } Thunk;
@@ -43,12 +43,13 @@ int readB(Thunk* thunk);
 
 #define readI(thunk) thunk->_int
 #define readB(thunk) thunk->_bool
+#define readC(thunk) thunk->_char
 
 #endif
 
 bool is_hnf(Thunk* thunk);
 
-// Thunk is supposed to be in HNF
+// Thunk is supposed to be in HNF on the A stack
 void print(Thunk* thunk, bool force);
 
 #endif // __THUNK_H
\ No newline at end of file