incorporate tick printing to newer langs

Author: jmct

langs/hustle/main.c

@@ -29,6 +29,7 @@ int main(int argc, char** argv) {
   // `heap` gets passed in `rdi`
   // (defined by the calling convention, not up to us!)
   int64_t result = entry(heap);
+  // See if we need to print the initial tick
   if (cons_type_tag == (ptr_type_mask & result)) printf("'");
   print_result(result);
   if (result != val_void) printf("\n");

langs/iniquity/main.c

@@ -26,6 +26,8 @@ int main(int argc, char** argv) {
   error_handler = &error_exit;
   heap = malloc(8 * heap_size);
   int64_t result = entry(heap);
+  // See if we need to print the initial tick
+  if (cons_type_tag == (ptr_type_mask & result)) printf("'");
   print_result(result);
   if (result != val_void) printf("\n");
   free(heap);

langs/jig/main.c

@@ -26,6 +26,8 @@ int main(int argc, char** argv) {
   error_handler = &error_exit;
   heap = malloc(8 * heap_size);
   int64_t result = entry(heap);
+  // See if we need to print the initial tick
+  if (cons_type_tag == (ptr_type_mask & result)) printf("'");
   print_result(result);
   if (result != val_void) printf("\n");
   free(heap);

langs/knock/main.c

@@ -26,6 +26,8 @@ int main(int argc, char** argv) {
   error_handler = &error_exit;
   heap = malloc(8 * heap_size);
   int64_t result = entry(heap);
+  // See if we need to print the initial tick
+  if (cons_type_tag == (ptr_type_mask & result)) printf("'");
   print_result(result);
   if (result != val_void) printf("\n");
   free(heap);

langs/loot/main.c

@@ -18,6 +18,8 @@ void print_codepoint(int64_t);
 int main(int argc, char** argv) {
   void * heap = malloc(heap_size);
   int64_t result = entry(heap);
+  // See if we need to print the initial tick
+  if (cons_type_tag == (ptr_type_mask & result)) printf("'");
   print_result(result);
   printf("\n");
   return 0;