modules/r6rs/io/ports.scm

   1 ;;; Guile-R6RS-Libs --- Implementation of R6RS standard libraries.
   2 ;;; Copyright (C) 2009  Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; Guile-R6RS-Libs is free software; you can redistribute it and/or
   5 ;;; modify it under the terms of the GNU Lesser General Public
   6 ;;; License as published by the Free Software Foundation; either
   7 ;;; version 2.1 of the License, or (at your option) any later version.
   8 ;;;
   9 ;;; Guile-R6RS-Libs is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;;; Lesser General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU Lesser General Public
  15 ;;; License along with Guile-R6RS-Libs; if not, write to the Free Software
  16 ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  17
  18 (define-module (r6rs io ports))
  19
  20 ;;;
  21 ;;; This module provides a compatibility layer with Guile-R6RS-Libs 0.1.  It
  22 ;;; should not be used by new programs.
  23 ;;;
  24
  25 (let ((iface (resolve-interface '(rnrs io ports))))
  26   (set-module-public-interface! (current-module) iface))