Vocabulary
help.html

Inputs
chan object


Outputs
None

Definition


: escape-char ( ch -- )
dup ascii? [
dup H{
{ 64 "__at__" }
{ 34 "__quo__" }
{ 35 "__hash__" }
{ 37 "__percent__" }
{ 124 "__pipe__" }
{ 42 "__star__" }
{ 44 "__comma__" }
{ 47 "__slash__" }
{ 58 "__colon__" }
{ 60 "__lt__" }
{ 92 "__back__" }
{ 62 "__gt__" }
{ 63 "__que__" }
} at [ % ] [ , ] ?if
] [ number>string "__" "__" surround % ] if ;