{ $description "Alises the C type " { $snippet "old" } " under the name " { $snippet "new" } "." }
{ $notes "Using this word in the same source file which defines C bindings can cause problems, because words are compiled before top-level forms are run. Use the " { $link POSTPONE: TYPEDEF: } " word instead." } ;
--{ typedef POSTPONE: TYPEDEF: POSTPONE: TYPEDEF-IF: } related-words
--{ POSTPONE: TYPEDEF: typedef POSTPONE: TYPEDEF-IF: } related-words
{ POSTPONE: TYPEDEF-IF: POSTPONE: TYPEDEF: typedef } related-words
HELP: c-struct?
: >set ( seq -- hash )
[ dup ] H{ } map>assoc ;
- : ref-hash ( table key -- value ) swap at ;
+ : ref-at ( table key -- value ) swap at ;
--! set-hash with alternative stack effects
++! set-at with alternative stack effects
- : put-hash* ( table key value -- ) spin set-at ;
+ : put-at* ( table key value -- ) swap rot set-at ;
- : put-hash ( table key value -- table ) swap pick set-at ;
+ : put-at ( table key value -- table ) swap pick set-at ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!