|
Lines 1768-1776
Link Here
|
| 1768 |
(let* ((interface-args (cadr kws)) |
1768 |
(let* ((interface-args (cadr kws)) |
| 1769 |
(interface (apply resolve-interface interface-args))) |
1769 |
(interface (apply resolve-interface interface-args))) |
| 1770 |
(and (eq? (car kws) #:use-syntax) |
1770 |
(and (eq? (car kws) #:use-syntax) |
| 1771 |
(or (symbol? (car interface-args)) |
1771 |
(or (symbol? (caar interface-args)) |
| 1772 |
(error "invalid module name for use-syntax" |
1772 |
(error "invalid module name for use-syntax" |
| 1773 |
interface-args)) |
1773 |
(car interface-args))) |
| 1774 |
(set-module-transformer! |
1774 |
(set-module-transformer! |
| 1775 |
module |
1775 |
module |
| 1776 |
(module-ref interface (car |
1776 |
(module-ref interface (car |
