diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-16 00:08:10 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-16 00:08:10 +0000 |
commit | 78591ef5c3c4dd44cac912704696cf77c2cbbf73 (patch) | |
tree | 25051631fd2abb43290b0c3cdafd959d2657bfbe | |
parent | cb4cca12e719edfef1740f238d9187c21c8e1e35 (diff) | |
download | guile-78591ef5c3c4dd44cac912704696cf77c2cbbf73.tar.gz |
*** empty log message ***
-rw-r--r-- | module/guile/slib.scm | 40 |
1 files changed, 40 insertions, 0 deletions
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) |