optargs guile
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 25 Dec 2016 10:13:51 +0000 (11:13 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 25 Dec 2016 10:13:51 +0000 (11:13 +0100)
tests/optargs.test

index 4e130e7da13d43918103f496bb7b47f41524fe57..15c680c9c2c43584291cfbf60bf158e9c36f5e7c 100755 (executable)
@@ -25,8 +25,13 @@ exit $?
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(mes-use-module (mes optargs))
-(mes-use-module (mes test))
+(cond-expand
+ (guile-2)
+ (guile
+  (use-modules (ice-9 optargs)))
+ (mes
+  (mes-use-module (mes optargs))
+  (mes-use-module (mes test))))
 
 (pass-if-equal "cond =>" 10
   (cond