From 5a01596b0dd23287b5f56120db070cd68925a883 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 10 Jan 2005 20:28:34 +0000 Subject: [PATCH] (process-define-module): Check for #:use-syntax keyword, not the symbol. Changed references to 'spec' variable to 'interface-args'. There is no 'spec'. --- ice-9/boot-9.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 35fc8d14d..50c21e80f 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -1758,10 +1758,10 @@ (unrecognized kws)) (let* ((interface-args (cadr kws)) (interface (apply resolve-interface interface-args))) - (and (eq? (car kws) 'use-syntax) - (or (symbol? (car spec)) + (and (eq? (car kws) #:use-syntax) + (or (symbol? (car interface-args)) (error "invalid module name for use-syntax" - spec)) + interface-args)) (set-module-transformer! module (module-ref interface (car