12345678910111213141516171819 |
- set -e
- guile -q -c '(require-extension 7)' 2>/dev/null && exit 1
- guile -q -c '(require-extension (blarg))' 2>/dev/null && exit 1
- guile -q -c '(require-extension (srfi "foo"))' 2>/dev/null && exit 1
- guile -q -c '(require-extension (srfi 1)) (exit (procedure? take-right))'
- guile -q -c '(require-extension (srfi))'
- exit 0
|