Changeset 34518 in project


Ignore:
Timestamp:
09/10/17 02:37:33 (2 weeks ago)
Author:
zbigniew
Message:

socket 0.2.7: remove debug print (patch by Kooda)

Location:
release/4/socket/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/socket/trunk/socket.scm

    r31135 r34518  
    749749               (network-error/errno 'socket-accept "could not accept from listener" so))
    750750             (let ((so (make-socket s (socket-family so) (socket-type so) (socket-protocol so))))
     751               ;; this appears to be redundant now that make-socket sets unblocking
    751752               (unless (_make_socket_nonblocking s)
    752753                 (network-error/errno 'socket-accept "unable to set socket to non-blocking" so))
     
    12601261                              (let* ((slop (fxmod olen outbufsize))
    12611262                                     (end (fx- olen slop)))
    1262                                 (print `(slop ,slop end ,end))
    12631263                                (let ((s (if (fx= outbufindex 0)
    12641264                                             s
    12651265                                             (##sys#string-append
    12661266                                              (substring outbuf 0 outbufindex) s))))
    1267                                   (print `(s ,s))
    12681267                                  (output s 0 end)
    12691268                                  (when (fx> slop 0)
    1270                                     (print `(slopping))
    12711269                                    (##core#inline "C_substring_copy" s outbuf end olen 0))
    12721270                                  (set! outbufindex slop))))))
  • release/4/socket/trunk/socket.setup

    r31135 r34518  
    1616 'socket
    1717 '("socket.so" "socket.import.so")
    18  '((version "0.2.6")))
     18 '((version "0.2.7")))
Note: See TracChangeset for help on using the changeset viewer.