[PATCH 13/25] system/foreign/declarative.scm: export string foreign type

[KAction]

From: Dmitry Bogatov <address@hidden>

---
 module/system/foreign/declarative.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/module/system/foreign/declarative.scm 
b/module/system/foreign/declarative.scm
index 62d40b8..596cce0 100644
--- a/module/system/foreign/declarative.scm
+++ b/module/system/foreign/declarative.scm
@@ -107,6 +107,10 @@
 (mirror-primitive-type float     <?> real?)
 (mirror-primitive-type double    <?> real?)
 (mirror-primitive-type '* *: #:validate-proc pointer?)
+(define-foreign-type string:
+  #:encode-proc string->pointer
+  #:decode-proc pointer->string
+  #:validate-proc string?)
 
 (define-record-type <foreign-argument>
   (%make-foreign-argument type)
-- 
I may be not subscribed. Please, keep me in carbon copy.