From 865052b51c93a3a5c7a975014d6ac472349a4b8d Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sat, 31 Jul 2021 22:58:18 +0900 Subject: Fix acl2-verify job. --- jobs/acl2-verify.run | 11 +++++++++++ jobs/acl2-verify.sh | 11 ----------- 2 files changed, 11 insertions(+), 11 deletions(-) create mode 100644 jobs/acl2-verify.run delete mode 100644 jobs/acl2-verify.sh (limited to 'jobs') diff --git a/jobs/acl2-verify.run b/jobs/acl2-verify.run new file mode 100644 index 0000000..ea65156 --- /dev/null +++ b/jobs/acl2-verify.run @@ -0,0 +1,11 @@ +#!/bin/sh + +echo "--- acl2 verify: $path ---" +{ + echo ':q' + echo '(setf sb-ext:*invoke-debugger-hook* (lambda (c h) (declare (ignore c h)) (format t "~%~a~%" "******** FAILED ********") (sb-ext:quit)))' + echo '(lp)' + cat "$path" +} |\ + guix environment --pure acl2 -- acl2 |\ + awk '{ print } ; $0 == "******** FAILED ********" { exit 1 }' diff --git a/jobs/acl2-verify.sh b/jobs/acl2-verify.sh deleted file mode 100644 index ea65156..0000000 --- a/jobs/acl2-verify.sh +++ /dev/null @@ -1,11 +0,0 @@ -#!/bin/sh - -echo "--- acl2 verify: $path ---" -{ - echo ':q' - echo '(setf sb-ext:*invoke-debugger-hook* (lambda (c h) (declare (ignore c h)) (format t "~%~a~%" "******** FAILED ********") (sb-ext:quit)))' - echo '(lp)' - cat "$path" -} |\ - guix environment --pure acl2 -- acl2 |\ - awk '{ print } ; $0 == "******** FAILED ********" { exit 1 }' -- cgit v1.2.3