ui-docs: mark an optional output parameter with the "/f" suffix

diff --git a/basis/ui/ui-docs.factor b/basis/ui/ui-docs.factor
index 292cc5456f79b72650e68720ee32cc34c1f7fdb8..9560ddce034c09074c00047f2e8c25529d86fe00 100644 (file)
--- a/basis/ui/ui-docs.factor
+++ b/basis/ui/ui-docs.factor
@@ -46,7 +46,7 @@ HELP: fullscreen?
 { fullscreen? set-fullscreen } related-words
 
 HELP: find-window
-{ $values { "quot" { $quotation ( world -- ? ) } } { "world" { $maybe world } } }
+{ $values { "quot" { $quotation ( world -- ? ) } } { "world/f" { $maybe world } } }
 { $description "Finds a native window such that the gadget passed to " { $link open-window } " satisfies the quotation, outputting " { $link f } " if no such gadget could be found. The front-most native window is checked first." } ;
 
 HELP: register-window

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 2f10e5c0ba919169f5a3ad18ae915ac733b4aad8..579da9b133fffe32c95caaeba9a32ba8a412a6bf 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -141,7 +141,7 @@ SYMBOL: ui-thread
 
 PRIVATE>
 
-: find-window ( quot: ( world -- ? ) -- world )
+: find-window ( quot: ( world -- ? ) -- world/f )
     [ ui-windows get-global values ] dip
     '[ dup children>> [ ] [ nip first ] if-empty @ ]
     find-last nip ; inline