swap 3append -> glue

db4
Doug Coleman 2008-12-03 19:13:18 -06:00
parent 0e14f767ee
commit 7d2ca36fad
1 changed files with 1 additions and 1 deletions

View File

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