[bpt/guile.git] / oop / goops / simple.scm

;;; installed-scm-file

;;;; Copyright (C) 2005 Free Software Foundation, Inc.
;;;; 
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 2.1 of the License, or (at your option) any later version.
;;;; 
;;;; This library 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
;;;; Lesser General Public License for more details.
;;;; 
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;; 
\f

(define-module (oop goops simple)
  :use-module (oop goops accessors)
  :export (define-class)
  :no-backtrace)

(define define-class define-class-with-accessors-keywords)

(module-use! %module-public-interface (resolve-interface '(oop goops)))
Commit	Line	Data
f12de0a1 MD	1	;;; installed-scm-file
	2
	3	;;;; Copyright (C) 2005 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
92205699	17	;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
f12de0a1 MD	18	;;;;
	19	\f
	20
	21	(define-module (oop goops simple)
	22	:use-module (oop goops accessors)
	23	:export (define-class)
	24	:no-backtrace)
	25
	26	(define define-class define-class-with-accessors-keywords)
	27
	28	(module-use! %module-public-interface (resolve-interface '(oop goops)))