tests: Move (ice-9 syncase) into cond-expand.
* tests/psyntax.mes: Move (ice-9 syncase) into cond-expand. Fixes guile-2 deprecation messages.
This commit is contained in:
parent
1a58dbe3c6
commit
15518f92af
|
@ -26,12 +26,13 @@ exit $?
|
||||||
;;; along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(cond-expand
|
(cond-expand
|
||||||
(guile
|
(guile-2
|
||||||
;;(use-modules (ice-9 syncase))
|
|
||||||
(define sc-expand identity)
|
(define sc-expand identity)
|
||||||
(define syntax-object->datum syntax->datum)
|
(define syntax-object->datum syntax->datum)
|
||||||
(define datum->syntax-object datum->syntax)
|
(define datum->syntax-object datum->syntax))
|
||||||
)
|
(guile
|
||||||
|
(use-modules (ice-9 syncase))
|
||||||
|
(define sc-expand identity))
|
||||||
(mes
|
(mes
|
||||||
(mes-use-module (mes psyntax))
|
(mes-use-module (mes psyntax))
|
||||||
(mes-use-module (mes test))))
|
(mes-use-module (mes test))))
|
||||||
|
|
Loading…
Reference in a new issue