diff --git a/basis/math/vectors/simd/functor/functor.factor b/basis/math/vectors/simd/functor/functor.factor index 2ddaf2b8a5..514c2f62aa 100644 --- a/basis/math/vectors/simd/functor/functor.factor +++ b/basis/math/vectors/simd/functor/functor.factor @@ -325,7 +325,7 @@ FUNCTOR: define-simd-256 ( T -- ) N [ 32 T c:heap-size /i ] -N/2 [ N 2 / ] +N/2 [ N 2 /i ] A/2 IS ${T}-${N/2} A/2-boa IS ${A/2}-boa A/2-with IS ${A/2}-with diff --git a/core/syntax/syntax-docs.factor b/core/syntax/syntax-docs.factor index df78083f30..2a8bf53e64 100644 --- a/core/syntax/syntax-docs.factor +++ b/core/syntax/syntax-docs.factor @@ -371,7 +371,7 @@ HELP: POSTPONE: HELP: : { $syntax ": word ( stack -- effect ) definition... ;" } { $values { "word" "a new word to define" } { "definition" "a word definition" } } -{ $description "Defines a word with the given stack effect in the current vocabulary. The stack effect is optional for words which only push literals on the stack." } +{ $description "Defines a word with the given stack effect in the current vocabulary." } { $examples { $code ": ask-name ( -- name )\n \"What is your name? \" write readln ;\n: greet ( name -- )\n \"Greetings, \" write print ;\n: friend ( -- )\n ask-name greet ;" } } ; { POSTPONE: : POSTPONE: ; define } related-words