Ticket #530: remove-project.patch

File remove-project.patch, 418 bytes (added by sjamaan, 13 years ago)

Get rid of "project" by using a simpler approach (a direct lambda)

  • rpc.scm

     
    163163     (rpc:current-peer
    164164      (call-with-values
    165165          (cut (tcp-server-get-addresses-procedure) (current-input-port))
    166         (project 1)))
     166        (lambda (local remote) remote)))
    167167     (let loop ()
    168168       (unless (eof-object? (peek-char))
    169169         (let ((req (deserialize)))