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

s48 cavespider

This commit is contained in:
erana 2012-02-01 00:39:49 +09:00
parent 0e3287d63d
commit 7d78176533
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
s48/cavespider/string-util-alt.scm
View File

@ -58,13 +58,13 @@
(let ((s3 "")) (let ((s3 ""))
(do ((k j (+ k 1))) (do ((k j (+ k 1)))
((cond ((eq? (string-ref tags-of-file-contents-str k) ((cond ((eq? (string-ref tags-of-file-contents-str k)
#\") #\");;FIXME
(display i)
(set! j k)(set! i k)(set! s2 "")) (set! j k)(set! i k)(set! s2 ""))
((eq? (string-ref tags-of-file-contents-str k) ((eq? (string-ref tags-of-file-contents-str k)
#\/) #\/)
(set! ret (append ret (list s3))) (set! ret (append ret (list s3)))
(set! s3 "")
(set! j k) (set! j k)
(set! i k)) (set! i k))
((>= k (string-length tags-of-file-contents-str));;FIXME prev ((>= k (string-length tags-of-file-contents-str));;FIXME prev
@ -74,8 +74,7 @@
s3 s3
(string (string-ref tags-of-file-contents-str k)))) (string (string-ref tags-of-file-contents-str k))))
) )
;;(set! j k)
;;(set! i k)
)) ))
((not (string<=? s2 http-prefix)) ((not (string<=? s2 http-prefix))
(set! s "") (set! s "")