From e4e6c0031a1f23ce3c049aff52dca5a0ff2578d3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 22 Jan 2015 12:30:49 -0800 Subject: [PATCH] compiler.cfg.stacks.clearing: Fix help-lint-all. --- basis/compiler/cfg/stacks/clearing/clearing-docs.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/compiler/cfg/stacks/clearing/clearing-docs.factor b/basis/compiler/cfg/stacks/clearing/clearing-docs.factor index 4b2e912504..bfda1f1296 100644 --- a/basis/compiler/cfg/stacks/clearing/clearing-docs.factor +++ b/basis/compiler/cfg/stacks/clearing/clearing-docs.factor @@ -1,4 +1,5 @@ -USING: compiler.cfg compiler.cfg.instructions help.markup help.syntax sequences strings ; +USING: compiler.cfg compiler.cfg.instructions help.markup +help.syntax kernel sequences strings ; IN: compiler.cfg.stacks.clearing ARTICLE: "compiler.cfg.stacks.clearing" "Uninitialized stack location clearing" @@ -16,16 +17,16 @@ ARTICLE: "compiler.cfg.stacks.clearing" "Uninitialized stack location clearing" } ; HELP: dangerous-insn? -{ $values { "state" "a stack state" } { "insn" insn } } +{ $values { "state" "a stack state" } { "insn" insn } { "?" boolean } } { $description "Checks if the instruction is dangerous (can cause a stack underflow). " } { $examples { $example - "USING: compiler.cfg.instructions compiler.cfg.registers prettyprint ;" + "USING: compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks.clearing prettyprint ;" "{ { 0 { } } { 0 { } } } T{ ##peek { loc D 0 } } dangerous-insn? ." "t" } { $example - "USING: compiler.cfg.instructions compiler.cfg.registers prettyprint ;" + "USING: compiler.cfg.instructions compiler.cfg.registers compiler.cfg.stacks.clearing prettyprint ;" "{ { 0 { } } { 2 { 0 1 } } } T{ ##peek { loc R 0 } } dangerous-insn? ." "f" }