update

Task/Program-termination/Aime/program-termination.aime

@@ -0,0 +1,15 @@
+void
+f1(integer a)
+{
+    if (a) {
+	exit(1);
+    }
+}
+
+integer
+main(void)
+{
+    f1(3);
+
+    return 0;
+}

Task/Program-termination/Erlang/program-termination-1.erl

@@ -0,0 +1,3 @@
+% Implemented by Arjun Sunel
+if problem ->
+	exit(1).

Task/Program-termination/Erlang/program-termination-2.erl

@@ -0,0 +1,3 @@
+% Implemented by Arjun Sunel
+if problem ->
+	halt().

Task/Program-termination/Racket/program-termination-1.rkt

@@ -0,0 +1,3 @@
+#lang racket
+(run-stuff)
+(when (something-bad-happened) (exit 1))

Task/Program-termination/Racket/program-termination-2.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(parameterize ([current-custodian (make-custodian)])
+  (define (loop) (printf "looping\n") (sleep 1) (loop))
+  (thread loop) ; start a thread under the new custodian
+  (sleep 5)
+  ;; kill it: this will kill the thread, and any other opened resources
+  ;; like file ports, network connections, etc
+  (custodian-shutdown-all (current-custodian)))