mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* boot-9.scm (process-define-module): Bugfix: Only check the CDR

Browse source 
for export args.
This commit is contained in:
Mikael Djurfeldt 2000-07-01 17:01:22 +00:00
parent 80edbc3347
commit a473feada1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1828,7 +1828,7 @@
(purify-module! module) (purify-module! module)
(loop (cdr kws) reversed-interfaces)) (loop (cdr kws) reversed-interfaces))
((export) ((export)
(if (not (and (pair? (cdr kws)) (pair? (cddr kws)))) (if (not (pair? (cdr kws)))
(error "unrecognized defmodule argument" kws)) (error "unrecognized defmodule argument" kws))
(module-export! module (cadr kws)) (module-export! module (cadr kws))
(loop (cddr kws) reversed-interfaces)) (loop (cddr kws) reversed-interfaces))