131 |
(let loop ((ls form)) |
(let loop ((ls form)) |
132 |
(or (null? ls) |
(or (null? ls) |
133 |
(case (car ls) |
(case (car ls) |
134 |
((:use-module) |
((:use-module #:use-module) |
135 |
(note-use! 'regular module (ferret (cadr ls))) |
(note-use! 'regular module (ferret (cadr ls))) |
136 |
(loop (cddr ls))) |
(loop (cddr ls))) |
137 |
((:autoload) |
((:autoload #:autoload) |
138 |
(note-use! 'autoload module (cadr ls)) |
(note-use! 'autoload module (cadr ls)) |
139 |
(loop (cdddr ls))) |
(loop (cdddr ls))) |
140 |
(else (loop (cdr ls)))))))) |
(else (loop (cdr ls)))))))) |