flushable declaration wasn't being printed
parent
952c559b52
commit
2f32823690
|
@ -290,6 +290,14 @@ unit-test
|
||||||
|
|
||||||
[ ] [ \ effect-in synopsis drop ] unit-test
|
[ ] [ \ effect-in synopsis drop ] unit-test
|
||||||
|
|
||||||
|
! Regression
|
||||||
|
[ t ] [
|
||||||
|
"IN: temporary\nGENERIC: generic-decl-test ( a -- b ) flushable\n"
|
||||||
|
dup eval
|
||||||
|
"generic-decl-test" "temporary" lookup
|
||||||
|
[ see ] string-out =
|
||||||
|
] unit-test
|
||||||
|
|
||||||
[ [ + ] ] [
|
[ [ + ] ] [
|
||||||
[ \ + (step-into) ] (remove-breakpoints)
|
[ \ + (step-into) ] (remove-breakpoints)
|
||||||
] unit-test
|
] unit-test
|
||||||
|
@ -313,4 +321,3 @@ unit-test
|
||||||
[ [ 2 . ] ] [
|
[ [ 2 . ] ] [
|
||||||
[ 2 \ break (step-into) . ] (remove-breakpoints)
|
[ 2 \ break (step-into) . ] (remove-breakpoints)
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
|
|
@ -207,6 +207,7 @@ M: word declarations.
|
||||||
POSTPONE: delimiter
|
POSTPONE: delimiter
|
||||||
POSTPONE: inline
|
POSTPONE: inline
|
||||||
POSTPONE: foldable
|
POSTPONE: foldable
|
||||||
|
POSTPONE: flushable
|
||||||
} [ declaration. ] with each ;
|
} [ declaration. ] with each ;
|
||||||
|
|
||||||
: pprint-; \ ; pprint-word ;
|
: pprint-; \ ; pprint-word ;
|
||||||
|
|
Loading…
Reference in New Issue