From 901a2840d92a79027f5dd52b6fc290e00cafed3c Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Wed, 9 Jan 2002 21:48:45 +0000 Subject: [PATCH] * src/gnc-module/test/mod-baz/baz-gwrap.scm: fix for new g-wrap. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6575 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/gnc-module/test/mod-baz/baz-gwrap.scm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/src/gnc-module/test/mod-baz/baz-gwrap.scm b/src/gnc-module/test/mod-baz/baz-gwrap.scm index 4fc7fed85d..db820ea717 100644 --- a/src/gnc-module/test/mod-baz/baz-gwrap.scm +++ b/src/gnc-module/test/mod-baz/baz-gwrap.scm @@ -1,17 +1,20 @@ (use-modules (g-wrap)) - (debug-set! maxdepth 100000) (debug-set! stack 2000000) -(let ((mod (gw:new-module "baz-gwrap"))) - (gw:module-depends-on mod "gw-runtime") - (gw:module-set-declarations-ccodegen! - mod - (lambda (unused) - (list "#include \"baz.h\"\n"))) +(use-modules (g-wrap gw-standard-spec)) + +(let ((ws (gw:new-wrapset "baz-gwrap"))) + + (gw:wrapset-depends-on ws "gw-standard") + + (gw:wrapset-add-cs-declarations! + ws + (lambda (wrapset client-wrapset) + "#include \"baz.h\"\n")) (gw:wrap-function - mod 'baz:hello - ' "baz_hello" - '() + ws + 'baz:hello + ' "baz_hello" '() "Print a simple message from C"))