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