bugMIT/GNU Scheme - Bugs: bug #62580, read-http-request procedure is...


bug #62580: read-http-request procedure is broken

Submitter:  Sam Lee <samlee>
Submitted:  Sat 04 Jun 2022 05:53:32 AM UTC
Category:  runtime Severity:  3 - Normal
Priority:  5 - Normal Item Group:  Incorrect behavior
Status:  None Privacy:  Public
Assigned to:  None Originator Name: 
Open/Closed:  Open
* Mandatory Fields

Add a New Comment (Rich Markup)

Comment Type & Canned Response:
       No canned response available


Sat 04 Jun 2022 06:55:01 AM UTC, comment #1: 

This bug is probably caused by bug #62582 but I am not sure, because HTTP functionality is badly broken in MIT Scheme 11.2.

Sam Lee <samlee>
Sat 04 Jun 2022 05:53:32 AM UTC, original submission:  

(let* ((socket (open-tcp-server-socket 8000))
       (port (tcp-server-connection-accept socket #t #f))
       (request (read-http-request port)))
  (display request))

When I run the code above and access localhost:8000 using a web browser, the `read-http-request` procedure will fail with:

;The object #[textual-i/o-port 12 for channel: #[channel 13]], passed as an argument to #[compiled-procedure 14 ("binary-port" #x2) #x1c #x1a7a6f4], is not the correct type.

So, I changed `tcp-server-connection-accept` to `tcp-server-binary-connection-accept`:

(let* ((socket (open-tcp-server-socket 8000))
       (port (tcp-server-binary-connection-accept socket #t #f))
       (request (read-http-request port)))
  (display request))

However, this will also fail when a client connects to localhost:8000:

;The object 3, passed as the second argument to vector-ref, is not in the correct range.

MIT Scheme version: 11.2

Sam Lee <samlee>


(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:

No files currently attached


Depends on the following items: None found

Items that depend on this one: None found


Carbon-Copy List
  • -email is unavailable- added by samlee (Submitted the item)

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.





    No changes have been made to this item

    Back to the top

    Powered by Savane 3.9