(main): Copied cleaned up main prodcedure from

the 1.5 branch. In particular, it now calls (exit 0) explicitly.

Rev: src/scm/gaba.scm:1.13.2.1

src/scm/gaba.scm

@@ -639,10 +639,12 @@
       ((expr) (process-expr body))
       (else (list "#error Unknown expression type " type "\n")))))
 
-(define main
-  (let ((test (lambda (s) (string-prefix? "/* GABA:" s))))
-    (lambda args
-      (let ((exp (read-expression test)))
-	(unless (eof-object? exp)
-		(out 0 (process-input exp))
-		(main))))))
+(define (main args)
+  (define (loop)
+    (let ((exp (read-expression
+		(lambda (s) (string-prefix? "/* GABA:" s)))))
+      (unless (eof-object? exp)
+	      (out 0 (process-input exp))
+	      (loop))))
+  (loop)
+  (exit 0))