com.wrapper: create -> create-word
parent
d6b6b955d3
commit
1230f56197
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue