From 00f3d99dd910c794325d63777b9bf1e868e5e2bb Mon Sep 17 00:00:00 2001 From: erg Date: Tue, 12 Dec 2006 20:29:32 +0000 Subject: [PATCH] fix stack effects/documentation part 2 --- core/quotations.factor | 2 +- core/quotations.facts | 2 +- core/ui/gadgets.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core/quotations.factor b/core/quotations.factor index 3657a38762..30b73c0da2 100644 --- a/core/quotations.factor +++ b/core/quotations.factor @@ -27,7 +27,7 @@ M: quotation like drop dup quotation? [ >quotation ] unless ; : unit ( obj -- quot ) 1array >quotation ; -GENERIC: literalize ( obj -- newobj ) +GENERIC: literalize ( obj -- wrapped ) M: object literalize ; M: word literalize ; M: wrapper literalize ; diff --git a/core/quotations.facts b/core/quotations.facts index 15ee1ae926..98ee351df6 100644 --- a/core/quotations.facts +++ b/core/quotations.facts @@ -38,7 +38,7 @@ HELP: ( obj -- wrapper ) { $values { "obj" "an object" } { "wrapper" "a new wrapper" } } { $description "Creates an object which pushes " { $snippet "obj" } " on the stack when evaluated. User code should call " { $link literalize } " instead, since it avoids wrapping self-evaluating objects (which is redundant)." } ; -HELP: literalize ( obj -- wrapped ) +HELP: literalize { $values { "obj" "an object" } { "wrapped" "an object" } } { $description "Outputs an object which evaluates to " { $snippet "obj" } " when placed in a quotation. If " { $snippet "obj" } " is not self-evaluating (for example, it is a word), then it will be wrapped." } { $examples diff --git a/core/ui/gadgets.factor b/core/ui/gadgets.factor index 9c324502fd..ea0b4ecfc9 100644 --- a/core/ui/gadgets.factor +++ b/core/ui/gadgets.factor @@ -47,7 +47,7 @@ M: gadget equal? eq? ; : gadget-child ( gadget -- child ) gadget-children first ; -: nth-gadget ( n gadget -- ) gadget-children nth ; +: nth-gadget ( n gadget -- child ) gadget-children nth ; : ( -- rect ) { 0 0 } dup ;