parent
74d8f05c9a
commit
8d64760ca3
|
@ -1,6 +1,6 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# -*-scheme-*-
|
# -*-scheme-*-
|
||||||
MES_BOOT=boot-5.mes
|
MES_BOOT=boot-0.scm
|
||||||
export MES_BOOT
|
export MES_BOOT
|
||||||
MES_ARENA=${MES_ARENA-10000000} exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests psyntax)' -s "$0" "$@"
|
MES_ARENA=${MES_ARENA-10000000} exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests psyntax)' -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
@ -29,13 +29,10 @@ MES_ARENA=${MES_ARENA-10000000} exec ${MES-bin/mes} --no-auto-compile -L ${0%/*}
|
||||||
#:use-module (mes mes-0)
|
#:use-module (mes mes-0)
|
||||||
#:use-module (mes test))
|
#:use-module (mes test))
|
||||||
|
|
||||||
(include-from-path "mes/psyntax.mes")
|
|
||||||
(cond-expand
|
(cond-expand
|
||||||
(mes
|
(mes
|
||||||
;;(mes-use-module (mes test))
|
(mes-use-module (mes psyntax))
|
||||||
;;(mes-use-module (mes psyntax))
|
(mes-use-module (mes test)))
|
||||||
|
|
||||||
)
|
|
||||||
(guile-2.2
|
(guile-2.2
|
||||||
(define sc-expand identity)
|
(define sc-expand identity)
|
||||||
(define syntax-object->datum syntax->datum)
|
(define syntax-object->datum syntax->datum)
|
||||||
|
|
Loading…
Reference in New Issue