mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

GOOPS cosmetics

Browse source 
* module/oop/goops.scm: More commenting.  Move around <keyword> in the
  export section.
This commit is contained in:
Andy Wingo 2015-01-19 22:41:57 +01:00
parent 0b4c068d53
commit 3f4829e082
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/oop/goops.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;;; goops.scm -- The Guile Object-Oriented Programming System
;;;;
;;;; Copyright (C) 1998,1999,2000-2003,2006,2009-2011,2013-2015 Free Software Foundation, Inc. ;;;; Copyright (C) 1998-2003,2006,2009-2011,2013-2015 Free Software Foundation, Inc.
;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -132,8 +132,7 @@
method-specializers method-formals method-specializers method-formals
primitive-generic-generic enable-primitive-generic! primitive-generic-generic enable-primitive-generic!
method-procedure accessor-method-slot-definition method-procedure accessor-method-slot-definition
make find-method get-keyword) make find-method get-keyword))
#:no-backtrace)
;;; ;;;
@ -430,6 +429,12 @@ followed by its associated value. If @var{l} does not hold a value for
(struct-set! <slot> class-index-redefined #f) (struct-set! <slot> class-index-redefined #f)
<slot>))) <slot>)))
;;; Access to slot objects is performance-sensitive for slot-ref, so in
;;; addition to the type-checking accessors that we export, we also
;;; define some internal inlined helpers that just do an unchecked
;;; struct-ref in cases where we know the object must be a slot, as
;;; when accessing class-slots.
;;;
(define-syntax-rule (define-slot-accessor name docstring %name field) (define-syntax-rule (define-slot-accessor name docstring %name field)
(begin (begin
(define-syntax-rule (%name obj) (define-syntax-rule (%name obj)