webapps.pastebin: fix calling >>annotations on f.

2015-08-15 16:40:43 -07:00 · 2015-08-15 16:40:43 -07:00 · 67ea8e7fa0
parent a56a00689f
commit 67ea8e7fa0
1 changed files with 4 additions and 4 deletions
--- a/extra/webapps/pastebin/pastebin.factor
+++ b/extra/webapps/pastebin/pastebin.factor
@ -80,10 +80,10 @@ TUPLE: annotation < entity parent ;
 : lookup-annotation ( id -- annotation )
    [ f ] dip <annotation> select-tuple ;

-: paste ( id -- paste )
-    [ <paste-state> select-tuple ]
-    [ f <annotation> select-tuples ]
-    bi >>annotations ;
+: paste ( id -- paste/f )
+    [ <paste-state> select-tuple ] keep over [
+        f <annotation> select-tuples >>annotations
+    ] [ drop ] if ;

 ! ! !
 ! LINKS, ETC