Fix corner case where auto-use didn't print using list
parent
433f16e18b
commit
b19e87ea75
|
@ -16,7 +16,7 @@ ERROR: not-in-a-method-error ;
|
||||||
SYMBOL: current-method
|
SYMBOL: current-method
|
||||||
|
|
||||||
: with-method-definition ( method quot -- )
|
: with-method-definition ( method quot -- )
|
||||||
[ dup current-method ] dip with-variable ; inline
|
over current-method set call current-method off ; inline
|
||||||
|
|
||||||
: (M:) ( method def -- )
|
: (M:) ( method def -- )
|
||||||
CREATE-METHOD [ parse-definition ] with-method-definition ;
|
CREATE-METHOD [ parse-definition ] with-method-definition ;
|
||||||
|
|
Loading…
Reference in New Issue