-;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2006, 2010 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
load))
-(module-use! %module-public-interface (resolve-interface '(ice-9 safe-r5rs)))
+(module-use! (module-public-interface (current-module))
+ (resolve-interface '(ice-9 safe-r5rs)))
-(define scheme-report-interface %module-public-interface)
+(define scheme-report-interface (module-public-interface (current-module)))
(define (scheme-report-environment n)
(if (not (= n 5))
-;;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2004, 2006, 2010 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
(define null-interface (resolve-interface '(ice-9 null)))
-(module-use! %module-public-interface null-interface)
+(module-use! (module-public-interface (current-module))
+ null-interface)
(define (null-environment n)
(if (not (= n 5))
;;; installed-scm-file
-;;;; Copyright (C) 2000,2001,2002, 2006, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010 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
(close-port port)
objects))
+(define iface (module-public-interface (current-module)))
+
(define-method (load-objects (file <input-port>))
(let ((m (make-module)))
(module-use! m the-scm-module)
- (module-use! m %module-public-interface)
+ (module-use! m iface)
(save-module-excursion
(lambda ()
(set-current-module m)
;;; installed-scm-file
-;;;; Copyright (C) 2005, 2006 Free Software Foundation, Inc.
+;;;; Copyright (C) 2005, 2006, 2010 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
((_ arg ...)
(define-class-with-accessors-keywords arg ...))))
-(module-use! %module-public-interface (resolve-interface '(oop goops)))
+(module-use! (module-public-interface (current-module))
+ (resolve-interface '(oop goops)))
;; Export all bindings that are exported from (oop goops)...
(module-for-each (lambda (sym var)
- (module-add! %module-public-interface sym var))
- (nested-ref the-root-module '(%app modules oop goops
- %module-public-interface)))
+ (module-add! (module-public-interface (current-module))
+ sym var))
+ (resolve-interface '(oop goops)))
;; ...but replace the following bindings:
(export define-class define-method)