#!/usr/bin/guile -s
 -*- scheme -*-
!#
;; $Id: g-wrap-guile.in,v 1.2 2000/04/12 19:12:34 rlb Exp $
;; Copyright (c) 1998 Christopher Lee
(load-user-init)

(if (not (member "/usr/share/guile" %load-path))
    (set! %load-path (cons "/usr/share/guile" %load-path)))

(define-module (site g-wrap-guile))
(use-modules (site g-wrap))
(use-modules (site g-wrap guile-types))
(use-modules (site g-wrap g-translate))

(define-public *g-wrap-mode* 'guile)

(define *argv* (program-arguments))
(cond ((< (length *argv*) 2)
       (display 
	(string-append (car *argv*) ": <g-wrap-description-file>")
	(current-error-port))
       (exit 1)))
(primitive-load (cadr *argv*))
(quit)
