[PATCH] Fix potential invalid argument error in `##sys#decompose-import'

[Evan Hanson]

This fixes a small bug in `##sys#decompose-import' where "spec" (which
is a list) is passed to the `warn' procedure rather than "name" (which
is a symbol, as expected). This leads to an invalid argument error
arising from `symbol->string', e.g.

  $ echo '(import (only (rename scheme (car first)) car))' | csc -

  Error: (symbol->string) during expansion of (import ...) - bad
    argument type - not a symbol: (rename scheme (car first))
---
 modules.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git modules.scm modules.scm
index a199f9e7..beb52eaf 100644
--- modules.scm
+++ modules.scm
@@ -638,7 +638,7 @@
                             (cond ((null? ids)
                                    (for-each
                                     (lambda (id)
-                                      (warn "imported identifier doesn't 
exist" spec id))
+                                      (warn "imported identifier doesn't 
exist" name id))
                                     missing)
                                    (values name lib `(,head ,spec ,@imports) v 
s impi))
                                   ((assq (car ids) impv) =>
-- 
2.25.1