/[guile]/guile/guile-core/scripts/frisk
ViewVC logotype

Diff of /guile/guile-core/scripts/frisk

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.2 by ttn, Sat Jan 12 04:31:38 2002 UTC revision 1.1.2.3 by ossau, Tue Mar 5 21:34:42 2002 UTC
# Line 131  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 131  exec ${GUILE-guile} -l $0 -c "(apply $ma
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))))))))

Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.1.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26