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 ; |