Revert last commit.
This commit is contained in:
		
							parent
							
								
									a2a656ad99
								
							
						
					
					
						commit
						e4a887d491
					
				|  | @ -66,56 +66,36 @@ | |||
|   (number status-code-number) | ||||
|   (message status-code-message) | ||||
|   ( | ||||
|    (continue		100 "Continue") | ||||
|    (switch-protocol	101 "Switching Protocols") | ||||
| 
 | ||||
|    (ok			200 "OK") | ||||
|    (created		201 "Created") | ||||
|    (accepted		202 "Accepted") | ||||
|    (non-author-info	203 "Non-Authoritative Information") | ||||
|    (prov-info		203 "Provisional Information") | ||||
|    (no-content		204 "No Content") | ||||
|    (reset-content	205 "Reset Content") | ||||
|    (partial-content	206 "Partial Content") | ||||
| 
 | ||||
|    (mult-choice		300 "Multiple Choices") | ||||
|    (moved-perm		301 "Moved Permanently") | ||||
|    (found		302 "Found");;use 303 or 307 for unambiguity; | ||||
| 				    ;;use 302 for compatibility with | ||||
| 				    ;;pre-1.1-clients | ||||
|    (see-other		303 "See other");;client is expected to | ||||
| 					;;perform a GET on new URI | ||||
|    (moved-temp		302 "Moved Temporarily") | ||||
|    (method		303 "Method (obsolete)") | ||||
|    (not-mod		304 "Not Modified") | ||||
|    (use-proxy		305 "Use Proxy") | ||||
|    (temp-redirect	307 "Temporary Redirect");;analogous to "302 | ||||
| 						 ;;Moved Temporarily" | ||||
| 						 ;;in RFC1945 | ||||
| 
 | ||||
|    (bad-request		400 "Bad Request") | ||||
|    (unauthorized	401 "Unauthorized") | ||||
|    (payment-required	402 "Payment Required") | ||||
|    (payment-req		402 "Payment Required") | ||||
|    (forbidden		403 "Forbidden") | ||||
|    (not-found		404 "Not Found") | ||||
|    (method-not-allowed	405 "Method Not Allowed") | ||||
|    (not-acceptable	406 "Not Acceptable") | ||||
|    (none-acceptable	406 "None Acceptable") | ||||
|    (proxy-auth-required	407 "Proxy Authentication Required") | ||||
|    (timeout		408 "Request Timeout") | ||||
|    (conflict		409 "Conflict") | ||||
|    (gone		410 "Gone") | ||||
|    (length-required	411 "Length Required") | ||||
|    (precon-failed	412 "Precondition Failed") | ||||
|    (req-ent-too-large	413 "Request Entity Too Large") | ||||
|    (req-uri-too-large	414 "Request URI Too Large") | ||||
|    (unsupp-media-type	415 "Unsupported Media Type") | ||||
|    (req-range-not-sat	416 "Requested Range Not Satisfiable") | ||||
|    (expectation-failed	417 "Expectation Failed") | ||||
|    (gone			410 "Gone") | ||||
| 
 | ||||
|    (internal-error	500 "Internal Server Error") | ||||
|    (not-implemented	501 "Not Implemented") | ||||
|    (bad-gateway		502 "Bad Gateway") | ||||
|    (service-unavailable	503 "Service Unavailable") | ||||
|    (gateway-timeout	504 "Gateway Timeout") | ||||
|    (version-not-supp	505 "HTTP Version Not Supported")   | ||||
| 
 | ||||
|    | ||||
|    (redirect             -301 "Internal redirect"))) | ||||
| 
 | ||||
| (define (name->status-code name) | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 vibr
						vibr