Commits

evhan  committed c1ff7ad

Extract the exit status of compiled tests to report on exit()

  • Participants
  • Parent commits d5a6dd0

Comments (0)

Files changed (1)

File tests/run.scm

      (let ((exit-status
             (handle-exceptions _ 1
              (compile file -o "compiled")
-             (system "./compiled"))))
+             (arithmetic-shift (system "./compiled") -8))))
        (if (zero? exit-status)
            (test-exit)
            (exit exit-status))))))