Contrib fixes

[factor.git] / contrib / gap-buffer / gap-buffer.factor

diff --git a/contrib/gap-buffer/gap-buffer.factor b/contrib/gap-buffer/gap-buffer.factor
index a3268545764c301e33cf6ad3318c046a33b69de4..4acfe860a539955bd51f209ce19be56bd7547343 100644 (file)
--- a/contrib/gap-buffer/gap-buffer.factor
+++ b/contrib/gap-buffer/gap-buffer.factor
@@ -19,7 +19,7 @@ TUPLE: gb
 : required-space ( n gb -- n )
     tuck gb-expand-factor * ceiling >fixnum swap gb-min-size max ;
 
-C: gb ( seq gb -- gb )
+C: gb ( seq -- gb )
     5 over set-gb-min-size
     1.5 over set-gb-expand-factor
     [ >r length r> set-gb-gap-start ] 2keep