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