Commit b77795da authored by Niels Möller's avatar Niels Möller

(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
parent 82be24e8
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment