/[meta-cvs]/meta-cvs/F-C232DEE072E25B4F4683B91342CEC065
ViewVC logotype

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.8 by kaz, Thu Jan 31 06:17:50 2002 UTC revision 1.9 by kaz, Fri Feb 1 02:23:46 2002 UTC
# Line 22  Line 22 
22          (for-each-file-info (fi ".")          (for-each-file-info (fi ".")
23            (when (regular-p fi)            (when (regular-p fi)
24               (let ((path (canonicalize-path (file-name fi)))               (let ((path (canonicalize-path (file-name fi)))
25                     (file (filemap-generate-name)))                     (file (mapping-generate-name)))
26                 (chatter-info "~a <- ~a~%" file path)                 (chatter-info "~a <- ~a~%" file path)
27                 (push (list file path) filemap))))                 (push (list file path) filemap))))
28          (dolist (item filemap)          (dolist (item filemap)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5