spider

s48/cavespider/load.scm

@@ -39,3 +39,12 @@
 (newline)
 (display (ask-server (string-append "GET / HTTP/1.0" (string #\return #\newline #\return #\newline) "index.html" hostname port)))
 
+(let ((file-contents (file->string "index.html")))
+;;  (do ((url-list (file-contents->url file-contents 0)
+;;                 (file-contents->url file-contents 0)))
+  (let ((url-list (file-contents->url file-contents 0))
+        (url->hostname url-list hostname-list);;FIXME url-list
+        (display hostname-list)
+
+        )
+    ))

s48/cavespider/string-util.scm

@@ -1,5 +1,5 @@
 ;;;
-;;; Copyright (c) 2012 Johan Ceuppens 
+;;; Copyright (c) 2012 Johan Ceuppens
 ;;;
 ;;; All rights reserved.
 ;;;

scsh/schemedoc/schemedoc.scm

@@ -101,7 +101,6 @@
              (set! headline line)
              (set! line ""))
             ;;((eq? (car l) #\newline)
-
             )
       (set! line (string-append line (string (car l))))
       (set! itemtext (string-append itemtext (string (car l))))
@@ -128,4 +127,4 @@
         ((null? l)0)
       (cond ((string<=? keyword (car l))
              (set! returntext (string-append returntext (car l))))))
-    returntext))
+    returntext))