Changeset 34452 in project


Ignore:
Timestamp:
08/30/17 12:07:16 (4 weeks ago)
Author:
felix
Message:

unix-sockets 1.9: dropped use of ##sys#pathname-resolution

Location:
release/4/unix-sockets
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/unix-sockets/tags/1.9/unix-sockets.scm

    r28244 r34452  
    162162
    163163(define (unix-connect filename)
    164   (let ([n (##sys#pathname-resolution filename (lambda (f) (connect_to_server f)))])
     164  (let ((n (connect_to_server filename)))
    165165    (if (negative? n)
    166166        (unix-error 'unix-connect "can not connect" filename)
     
    293293  (when (file-exists? filename)
    294294    (delete-file filename) )
    295   (let ([n (##sys#pathname-resolution filename (lambda (name) (create_socket name backlog)))])
     295  (let ((n (create_socket filename backlog)))
    296296    (if (negative? n)
    297297        (unix-error 'unix-listen "can not create socket" filename)
  • release/4/unix-sockets/trunk/unix-sockets.scm

    r28244 r34452  
    162162
    163163(define (unix-connect filename)
    164   (let ([n (##sys#pathname-resolution filename (lambda (f) (connect_to_server f)))])
     164  (let ((n (connect_to_server filename)))
    165165    (if (negative? n)
    166166        (unix-error 'unix-connect "can not connect" filename)
     
    293293  (when (file-exists? filename)
    294294    (delete-file filename) )
    295   (let ([n (##sys#pathname-resolution filename (lambda (name) (create_socket name backlog)))])
     295  (let ((n (create_socket filename backlog)))
    296296    (if (negative? n)
    297297        (unix-error 'unix-listen "can not create socket" filename)
Note: See TracChangeset for help on using the changeset viewer.