silence warning

src/write.c

@@ -333,6 +333,9 @@ write_core(struct writer_control *p, pic_value obj)
   case PIC_TT_DICT:
     xfprintf(file, "#<dict %p>", pic_ptr(obj));
     break;
+  case PIC_TT_BLK:
+    xfprintf(file, "#<blk %p>", pic_ptr(obj));
+    break;
   }
 }