com.wrapper: create -> create-word

db4
Doug Coleman 2015-06-08 13:21:24 -07:00
parent d6b6b955d3
commit 1230f56197
1 changed files with 1 additions and 1 deletions

View File

@ -98,7 +98,7 @@ unless
: (callback-word) ( function-name interface counter -- word )
[ name>> "::" rot 3append "-callback-" ] dip number>string 3append
"windows.com.wrapper.callbacks" create ;
"windows.com.wrapper.callbacks" create-word ;
: (finish-thunk) ( param-count thunk quot -- thunked-quot )
[ [ drop [ ] ] [ swap 1 - '[ _ _ ndip ] ] if-empty ]