From a473feada17baaa08d93106a8767d65f225174d5 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 1 Jul 2000 17:01:22 +0000 Subject: [PATCH] * boot-9.scm (process-define-module): Bugfix: Only check the CDR for export args. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 590bc7788..d190a771c 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1828,7 +1828,7 @@ (purify-module! module) (loop (cdr kws) reversed-interfaces)) ((export) - (if (not (and (pair? (cdr kws)) (pair? (cddr kws)))) + (if (not (pair? (cdr kws))) (error "unrecognized defmodule argument" kws)) (module-export! module (cadr kws)) (loop (cddr kws) reversed-interfaces))