swap 3append -> glue
parent
0e14f767ee
commit
7d2ca36fad
|
@ -111,7 +111,7 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
|
||||||
{ [ dup real? ] [ number>string ] }
|
{ [ dup real? ] [ number>string ] }
|
||||||
[ ]
|
[ ]
|
||||||
} cond
|
} cond
|
||||||
[ check-cookie-string ] bi@ "=" swap 3append ,
|
[ check-cookie-string ] bi@ "=" glue ,
|
||||||
]
|
]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue