Updating code for make and fry changes

[factor.git] / extra / webapps / wee-url / wee-url.factor

diff --git a/extra/webapps/wee-url/wee-url.factor b/extra/webapps/wee-url/wee-url.factor
index 27187c4352e30f638866921243d7a7bf1e013fcb..e4a4a6a853939457e5388783cd4be90b6174e332 100644 (file)
--- a/extra/webapps/wee-url/wee-url.factor
+++ b/extra/webapps/wee-url/wee-url.factor
@@ -26,7 +26,7 @@ short-url "SHORT_URLS" {
     1 6 [a,b] random [ letter-bank random ] "" replicate-as ;
 
 : insert-short-url ( short-url -- short-url )
-    '[ , dup random-url >>short insert-tuple ] 10 retry ;
+    '[ _ dup random-url >>short insert-tuple ] 10 retry ;
 
 : shorten ( url -- short )
     short-url new swap >>url dup select-tuple