scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init snow 2

This commit is contained in:
erana 2012-01-28 02:31:29 +09:00
parent 82cb56f537
commit 000827de7c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scsh/snow/snow-repository.scm
View File

@ -57,13 +57,13 @@
(error "parse-for-url : malformed url string")))) (error "parse-for-url : malformed url string"))))
(define (snow-repository filename db) (define (snow-repository filename db)
(let ((index 0) (let ((urlstr "")
(index2 0)
(index3 0)
(index4 0)
(urlstr "")
(db db) (db db)
(contents (read-in-file-contents filename))) (contents (read-in-file-contents filename))
(index4 0)
(index3 0)
(index2 0)
(index 0))
(set! index2 (parse-for contents "repository" index)) (set! index2 (parse-for contents "repository" index))
(set! index3 (parse-for contents "package" index)) (set! index3 (parse-for contents "package" index))
(set! index4 (parse-for contents "url" index)) (set! index4 (parse-for contents "url" index))