Commit 8442a2c5 authored by Niels Möller's avatar Niels Möller
Browse files

(main): Simplified. Explicitly use echo,

otherwise scsh-0.6 seems to return a non-zero exit code.

Rev: src/scm/gaba.scm:1.15
parent 4aab2776
......@@ -645,10 +645,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)))
(define (main args)
(define (loop)
(let ((exp (read-expression
(lambda (s) (string-prefix? "/* GABA:" s)))))
(unless (eof-object? exp)
(out 0 (process-input exp))
(main))))))
(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