stack-checker: make this an unchecked-example.
parent
af2a53239e
commit
c8cfaee9af
|
@ -85,7 +85,7 @@ $nl
|
||||||
"However a small change can be made:"
|
"However a small change can be made:"
|
||||||
{ $example ": good ( ? quot: ( ? -- ) -- ) [ good ] 2keep [ not ] dip call ; inline recursive" "[ [ drop ] good ] infer." "( x -- )" }
|
{ $example ": good ( ? quot: ( ? -- ) -- ) [ good ] 2keep [ not ] dip call ; inline recursive" "[ [ drop ] good ] infer." "( x -- )" }
|
||||||
"An inline recursive word must have a fixed stack effect in its base case. The following will not infer:"
|
"An inline recursive word must have a fixed stack effect in its base case. The following will not infer:"
|
||||||
{ $example
|
{ $unchecked-example
|
||||||
": foo ( quot ? -- ) [ f foo ] [ call ] if ; inline"
|
": foo ( quot ? -- ) [ f foo ] [ call ] if ; inline"
|
||||||
"[ [ 5 ] t foo ] infer."
|
"[ [ 5 ] t foo ] infer."
|
||||||
"The inline recursive word “foo” must be declared recursive\nword foo"
|
"The inline recursive word “foo” must be declared recursive\nword foo"
|
||||||
|
|
Loading…
Reference in New Issue