From dc5cdfdbe87b2fe815dd6a0ae2f3528cbda5ebc4 Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 28 Jan 2012 02:35:31 +0900 Subject: [PATCH] init snow 2 --- scsh/snow/snow-repository.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scsh/snow/snow-repository.scm b/scsh/snow/snow-repository.scm index 25deb06..736edb2 100644 --- a/scsh/snow/snow-repository.scm +++ b/scsh/snow/snow-repository.scm @@ -36,6 +36,7 @@ (set! word "")) ((eq? (string-ref s i) #\newline) #t));;(string-set! s i "" + (set! word (string-append word (string (string-ref s i)))))))) (define (read-in-file-contents filename) @@ -52,7 +53,9 @@ #\") (do ((i index (+ i 1))) ((eq? (string-ref s i) #\") - (string-append s (string #\"))) + (string-append s (string #\")) + i) + (set! word (string-append word (string (string-ref s i))))) (error "parse-for-url : malformed url string")))) @@ -68,7 +71,7 @@ (set! index3 (parse-for contents "package" index)) (set! index4 (parse-for contents "url" index)) (set! urlstr (parse-for-url contents index4)) - + (set! db (append db (cons "url" urlstr))) db))