module/ice-9/slib.scm

   1 ;;;; slib.scm --- definitions needed to get SLIB to work with Guile
   2 ;;;;
   3 ;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2006, 2007 Free Software Foundation, Inc.
   4 ;;;;
   5 ;;;; This library is free software; you can redistribute it and/or
   6 ;;;; modify it under the terms of the GNU Lesser General Public
   7 ;;;; License as published by the Free Software Foundation; either
   8 ;;;; version 2.1 of the License, or (at your option) any later version.
   9 ;;;;
  10 ;;;; This library is distributed in the hope that it will be useful,
  11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 ;;;; Lesser General Public License for more details.
  14 ;;;;
  15 ;;;; You should have received a copy of the GNU Lesser General Public
  16 ;;;; License along with this library; if not, write to the Free Software
  17 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  18 ;;;;
  19 (define-module (ice-9 slib)
  20   :export (slib:load slib:load-source defmacro:load
  21            implementation-vicinity library-vicinity home-vicinity
  22            scheme-implementation-type scheme-implementation-version
  23            output-port-width output-port-height array-indexes
  24            make-random-state
  25            -1+ <? <=? =? >? >=?
  26            require slib:error slib:exit slib:warn slib:eval
  27            defmacro:eval logical:logand logical:logior logical:logxor
  28            logical:lognot logical:ash logical:logcount logical:integer-length
  29            logical:bit-extract logical:integer-expt logical:ipow-by-squaring
  30            slib:eval-load slib:tab slib:form-feed difftime offset-time
  31            software-type)
  32   :no-backtrace)
  33
  34 \f
  35 ;; Initialize SLIB.
  36 (load-from-path "slib/guile.init")
  37
  38 ;; SLIB redefines a few core symbols based on their default definition.
  39 ;; Thus, we only replace them at this point so that their previous definition
  40 ;; is visible when `guile.init' is loaded.
  41 (module-replace! (current-module)
  42                  '(delete-file open-file provide provided? system))