Should have sent this in to bug-guile.

-Dale
-- 
Dale P. Smith
Altus Technologies Corp.
[EMAIL PROTECTED]
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.
[EMAIL PROTECTED]
400-746-9000 x309


Reply via email to