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

Fix revisions

db4
Slava Pestov 2008-06-15 21:57:41 -05:00
parent 56bb1604f0
commit dbe095a84d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/webapps/wiki/wiki.factor
View File

@ -236,8 +236,8 @@ M: revision feed-entry-url id>> revision-url ;
"old-id" "new-id" "old-id" "new-id"
[ value <revision> select-tuple ] bi@ [ value <revision> select-tuple ] bi@
[ [
[ [ title>> "title" set-value ] [ "old" set-value ] bi ] [ [ title>> "title" set-value ] [ "old" [ from-object ] nest-form ] bi ]
[ "new" set-value ] bi* [ "new" [ from-object ] nest-form ] bi*
] ]
[ [ content>> string-lines ] bi@ diff "diff" set-value ] [ [ content>> string-lines ] bi@ diff "diff" set-value ]
2bi 2bi