alien.inline: remove vocab argument from define-c-struct

db4
Jeremy Hughes 2009-07-10 23:54:40 +12:00
parent 2e7f337b3d
commit 0851823ba9
1 changed files with 5 additions and 5 deletions

View File

@ -100,15 +100,15 @@ PRIVATE>
"" make c-strings get push
] 2bi ;
: define-c-struct ( name vocab fields -- )
[ define-struct ] [
nip over
: define-c-struct ( name fields -- )
[ current-vocab swap define-struct ] [
over
[
"typedef struct " % "_" % % " {\n" %
[ first2 swap % " " % % ";\n" % ] each
"} " % % ";\n" %
] "" make c-strings get push
] 3bi ;
] 2bi ;
: delete-inline-library ( str -- )
c-library-name [ remove-library ]
@ -132,7 +132,7 @@ SYNTAX: C-FUNCTION:
SYNTAX: C-TYPEDEF: scan scan define-c-typedef ;
SYNTAX: C-STRUCTURE:
scan current-vocab parse-definition define-c-struct ;
scan parse-definition define-c-struct ;
SYNTAX: ;C-LIBRARY compile-c-library ;