basis/http/server/remapping/remapping.factor

   1 ! Copyright (C) 2008, 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors namespaces assocs kernel io.servers ;
   4 IN: http.server.remapping
   5
   6 SYMBOL: port-remapping
   7
   8 : remap-port ( n -- n' )
   9     [ port-remapping get at ] keep or ;
  10
  11 : secure-http-port ( -- n )
  12     secure-addr port>> remap-port ;