Extraneous top-level stack-effect

db4
Doug Coleman 2011-09-25 13:11:07 -07:00
parent c5f1651567
commit 001ac7fbcd
1 changed files with 2 additions and 2 deletions

View File

@ -43,7 +43,7 @@ C: <color> color
[ bad-new-test ] must-fail
! Corner case if macro expansion calls 'infer', found by Doug
DEFER: smart-combo ( quot -- )
DEFER: smart-combo ! ( quot -- )
\ smart-combo [ infer [ ] curry ] 1 define-transform
@ -82,4 +82,4 @@ MACRO: curry-folding-test ( quot -- )
MACRO: two-params ( a b -- c ) + 1quotation ;
[ [ 3 two-params ] infer ] [ T{ unknown-macro-input f two-params } = ] must-fail-with
[ [ 3 two-params ] infer ] [ T{ unknown-macro-input f two-params } = ] must-fail-with