From 78591ef5c3c4dd44cac912704696cf77c2cbbf73 Mon Sep 17 00:00:00 2001 From: Keisuke Nishida Date: Mon, 16 Apr 2001 00:08:10 +0000 Subject: [PATCH] *** empty log message *** --- module/guile/slib.scm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 module/guile/slib.scm diff --git a/module/guile/slib.scm b/module/guile/slib.scm new file mode 100644 index 000000000..d07044197 --- /dev/null +++ b/module/guile/slib.scm @@ -0,0 +1,40 @@ +;;; Guile SLIB interface + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + +(define-module (guile slib) + :use-module (system vm core)) + +(define (slib:load file) + (let ((comp (string-append file ".go"))) + (cond ((file-exists? comp) (load-compiled comp)) + ((file-exists? file) (load file)) + (else (load (string-append file ".scm"))))) + (module-export! (current-module) + (delq! '%module-public-interface + (hash-fold (lambda (k v d) (cons k d)) '() + (module-obarray (current-module)))))) + +(let ((file (%search-load-path "slib/guile.init"))) + (if file + (slib:load file) + (error "Could not find slib/guile.init in" %load-path))) + +(define-public require require:require)