gforth/proxy.fs - diff

Return to proxy.fs CVS log

Up to [gforth] / gforth

version 1.5, 2001/11/11 22:33:31	version 1.6, 2001/12/01 20:33:14
Line 186 DOES> ( -- addr u )	Line 186 DOES> ( -- addr u )
I c@ '/ = IF #lf I c! THEN LOOP	I c@ '/ = IF #lf I c! THEN LOOP
redirects 1 set-order redir$ $off	redirects 1 set-order redir$ $off
htmldir $@ ['] evaluate catch	htmldir $@ ['] evaluate catch
IF false ELSE redir$ @ 0<> THEN ;	IF 2drop false ELSE redir$ @ 0<> THEN ;

: (redirect) ( -- )	: (redirect) ( -- )
host$ $@ redir$ $@ proxy-open handle-request maxnum off ;	host$ $@ redir$ $@ proxy-open handle-request maxnum off ;