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:35:31 +09:00
parent 000827de7c
commit dc5cdfdbe8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,6 +36,7 @@
(set! word "")) (set! word ""))
((eq? (string-ref s i) #\newline) ((eq? (string-ref s i) #\newline)
#t));;(string-set! s i "" #t));;(string-set! s i ""
(set! word (string-append word (string (string-ref s i)))))))) (set! word (string-append word (string (string-ref s i))))))))
(define (read-in-file-contents filename) (define (read-in-file-contents filename)
@ -52,7 +53,9 @@
#\") #\")
(do ((i index (+ i 1))) (do ((i index (+ i 1)))
((eq? (string-ref s i) #\") ((eq? (string-ref s i) #\")
(string-append s (string #\"))) (string-append s (string #\"))
i)
(set! word (string-append word (string (string-ref s i))))) (set! word (string-append word (string (string-ref s i)))))
(error "parse-for-url : malformed url string")))) (error "parse-for-url : malformed url string"))))
@ -68,7 +71,7 @@
(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))
(set! urlstr (parse-for-url contents index4)) (set! urlstr (parse-for-url contents index4))
(set! db (append db (cons "url" urlstr))) (set! db (append db (cons "url" urlstr)))
db)) db))