steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2015-08-15 16:40:43 -07:00
parent a56a00689f
commit 67ea8e7fa0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/webapps/pastebin/pastebin.factor
View File

@ -80,10 +80,10 @@ TUPLE: annotation < entity parent ;
: lookup-annotation ( id -- annotation ) : lookup-annotation ( id -- annotation )
[ f ] dip <annotation> select-tuple ; [ f ] dip <annotation> select-tuple ;
: paste ( id -- paste ) : paste ( id -- paste/f )
[ <paste-state> select-tuple ] [ <paste-state> select-tuple ] keep over [
[ f <annotation> select-tuples ] f <annotation> select-tuples >>annotations
bi >>annotations ; ] [ drop ] if ;
! ! ! ! ! !
! LINKS, ETC ! LINKS, ETC