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

Pastebin fixes

release
Slava Pestov 2007-12-11 18:44:19 -05:00
parent 6afcf0ba2f
commit c6dea4c49d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -79,6 +79,7 @@ C: <annotation> annotation
pastebin-pastes 2dup length swap set-paste-n push ;
: submit-paste ( summary author channel mode contents -- )
2dup global [ 2array . flush ] bind
<paste> [
pastebin store get-persistent add-paste
store save-store
@ -100,7 +101,7 @@ C: <annotation> annotation
\ annotate-paste {
{ "n" v-required v-number }
{ "summary" "- no summary -" v-default }
{ "author" v-required }
{ "author" "- no author -" v-default }
{ "mode" "factor" v-default }
{ "contents" v-required }
} define-action