This is the mail archive of the guile@sourceware.cygnus.com mailing list for the Guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[Fwd: Bug (and patch) in guile-www/main.scm]



-- 
Dale P. Smith
Altus Technologies Corp.
dsmith@altustech.com
400-746-9000 x309


In the cvs module guile-www, in main.scm, www:get is calling http:get with
the wrong number of arguments.  Patch is below.

-Dale

Index: main.scm
===================================================================
RCS file: /cvs/guile/guile/guile-www/main.scm,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 main.scm
--- main.scm    1997/06/11 22:35:49     1.1.1.1
+++ main.scm    2000/05/23 14:38:06
@@ -37,9 +37,7 @@
   (let ((url (url:parse url-str)))
     ;; get handler for this protocol
     (case (url:scheme url)
-      ((http) (let ((msg (http:get (url:host url)
-                                    (url:port url)
-                                    (url:path url))))
+      ((http) (let ((msg (http:get url)))
                  (http:message-body msg)))
       (else
        (let ((handle (assq-ref dispatch-table (url:scheme url))))

-- 
Dale P. Smith
Altus Technologies Corp.
dsmith@altustech.com
400-746-9000 x309



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]