guile-www http:status-code

guile-www http:status-code

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 359 bytes --]

        * http.scm (http:message-status-ok?): Use http:message-status-code,
        not non-existant http:status-code.

The problem can be seen with for instance,

	(use-modules (www url)
	             (www http))
	(http:message-status-ok?
         (http:get (url:parse "http://www.zip.com.au")))

giving an error

	ERROR: Unbound variable: http:status-code


[-- Attachment #2: http.scm.status-code.diff --]
[-- Type: text/plain, Size: 484 bytes --]

--- http.scm.~1.10.~	1970-01-01 10:00:01.000000000 +1000
+++ http.scm	2003-10-04 09:43:40.000000000 +1000
@@ -81,7 +81,7 @@
 (define-public (http:message-status-code msg) (vector-ref msg 1))
 (define-public (http:message-status-text msg) (vector-ref msg 2))
 (define-public (http:message-status-ok? msg)
-  (http:status-ok? (http:status-code msg)))
+  (http:status-ok? (http:message-status-code msg)))
 (define-public (http:status-ok? status)
   (char=? #\2 (string-ref status 0)))
 

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel