From 1a30e62c57a407b97591431a13a4d348de1843a6 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 4 Oct 2005 14:48:39 +0000
Subject: [PATCH] Fixes to support dumping scx into images

---
 pkg-def.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/pkg-def.scm b/pkg-def.scm
index 21fbd6d..878e7d6 100644
--- a/pkg-def.scm
+++ b/pkg-def.scm
@@ -1,4 +1,4 @@
-(define-package "scx" (0 2)
+(define-package "scx" (0 3)
   ((install-lib-version (1 0))
    (options (with-xft "Compile with Xft support" "<yes/no>" #t #t #f
 		      ,parse-boolean ,show-boolean)))
@@ -32,6 +32,7 @@
 	(load-xft-packages (get-option-value 'with-xft)))
     (write-to-load-script
      `((new-package)
+       (structure 'load-scx '(export))
        (load-package 'dynamic-externals)
        (load-package 'reinitializers)
        (open 'scheme-with-scsh)
@@ -41,8 +42,9 @@
        (open 'configure)
        (open 'signals)
        (open 'reinitializers)
-       ,@(map (lambda (x) `(run ',x)) tmpl-libtool-la-reader)
        (run '(define (init-scx)
+               ,@ tmpl-libtool-la-reader
+
                (let* ((lib-dir (string-append ,libdir "/" (host)))
 		    (la-file-name (string-append lib-dir "/libscx.la"))
 		    (initializer-name "scx_init_xlib"))