gpgscm: Use native string searching functions.
[gnupg.git] / tests / gpgscm / ffi.scm
index d0b8a99..7c2f93a 100644 (file)
@@ -38,3 +38,7 @@
     (write (cons (string->symbol name) args) args')
     (throw (string-append
            (get-output-string args') ": " message))))
+
+;; Pseudo-definitions for foreign functions.  Evaluates to no code,
+;; but serves as documentation.
+(macro (ffi-define form))