mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

(process-define-module): Check for #:use-syntax keyword, not the

Browse source 
symbol.  Changed references to 'spec' variable to 'interface-args'.
There is no 'spec'.
This commit is contained in:
Marius Vollmer 2005-01-10 20:28:34 +00:00
parent 1882a272f7
commit 5a01596b0d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/boot-9.scm
View file

@ -1758,10 +1758,10 @@
(unrecognized kws)) (unrecognized kws))
(let* ((interface-args (cadr kws)) (let* ((interface-args (cadr kws))
(interface (apply resolve-interface interface-args))) (interface (apply resolve-interface interface-args)))
(and (eq? (car kws) 'use-syntax) (and (eq? (car kws) #:use-syntax)
(or (symbol? (car spec)) (or (symbol? (car interface-args))
(error "invalid module name for use-syntax" (error "invalid module name for use-syntax"
spec)) interface-args))
(set-module-transformer! (set-module-transformer!
module module
(module-ref interface (car (module-ref interface (car