diff --git a/basis/compiler/cfg/gc-checks/gc-checks-docs.factor b/basis/compiler/cfg/gc-checks/gc-checks-docs.factor index 8e5260d509..eaf21a39b8 100644 --- a/basis/compiler/cfg/gc-checks/gc-checks-docs.factor +++ b/basis/compiler/cfg/gc-checks/gc-checks-docs.factor @@ -24,10 +24,10 @@ HELP: allocation-size { $values { "insns" { $link sequence } " of " { $link insn } } { "n" number } } { $description "Calculates the total number of bytes allocated by the block." } { $examples - { $example + { $unchecked-example "USING: accessors compiler.cfg.debugger compiler.cfg.gc-checks.private kernel prettyprint sequences ;" "[ V{ } clone ] test-ssa first entry>> successors>> first instructions>> allocation-size ." - "32" + "32 ! 16 on 32-bit" } } ; diff --git a/basis/stack-checker/alien/alien-docs.factor b/basis/stack-checker/alien/alien-docs.factor index 63884678ac..14f4e89639 100644 --- a/basis/stack-checker/alien/alien-docs.factor +++ b/basis/stack-checker/alien/alien-docs.factor @@ -14,7 +14,7 @@ HELP: param-prep-quot { $values { "params" alien-node-params } { "quot" quotation } } { $description "Builds a quotation which coerces values on the stack to the required types for the alien call." } { $examples - { $example + { $unchecked-example "USING: alien.c-types prettyprint stack-checker.alien ;" "T{ alien-invoke-params { parameters { void* c-string int } } } param-prep-quot ." "[ [ [ [ ] dip >c-ptr ] dip \\ utf8 string>alien ] dip >fixnum ]"