optargs guile
[mes.git] / 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