Changeset 26872 in project


Ignore:
Timestamp:
06/10/12 13:28:05 (9 years ago)
Author:
sjamaan
Message:

Spiffy: Small whitespace change

File:
1 edited

Legend:

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

    r26871 r26872  
    538538
    539539(define ssl-port?
    540   (dynamic-import
    541    'openssl 'ssl-port?
    542    (lambda (v)
    543      #f)))
     540  (dynamic-import 'openssl 'ssl-port? (lambda (v) #f)))
    544541
    545542(define ssl-port->tcp-port
     
    549546
    550547(define (ssl-or-tcp-addresses p)
    551   (tcp-addresses
    552    (if (ssl-port? p) (ssl-port->tcp-port p) p)))
     548  (tcp-addresses (if (ssl-port? p) (ssl-port->tcp-port p) p)))
    553549
    554550(define (accept-loop listener accept #!optional (addresses ssl-or-tcp-addresses))
Note: See TracChangeset for help on using the changeset viewer.