diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-04 13:19:50 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:00 +0100 |
| commit | 8906f23dedf2ee2bdef6a4d4b150c4ee3f853af3 (patch) | |
| tree | 005d21d76f833d10745527e55884c63dc2b0e771 /module/oop/goops | |
| parent | 82ab50900aa182cba4731a09a9e15d1978e4888e (diff) | |
| download | guile-8906f23dedf2ee2bdef6a4d4b150c4ee3f853af3.tar.gz | |
Remove unused %fast-slot-ref / %fast-slot-set! from GOOPS
* libguile/goops.h:
* libguile/goops.c (scm_sys_fast_slot_ref, scm_sys_fast_slot_set_x):
Remove these unused, unsafe functions. They were publically available
only to C.
* module/oop/goops/active-slot.scm (compute-get-n-set): Update to use
struct-ref / struct-set! instead of %fast-slot-ref / %fast-slot-set!
from (oop goops internal).
Diffstat (limited to 'module/oop/goops')
| -rw-r--r-- | module/oop/goops/active-slot.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/module/oop/goops/active-slot.scm b/module/oop/goops/active-slot.scm index 4d3bbf72f..83517c694 100644 --- a/module/oop/goops/active-slot.scm +++ b/module/oop/goops/active-slot.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1999, 2001, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2001, 2006, 2009, 2015 Free Software Foundation, Inc. ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; ;;;; This library is free software; you can redistribute it and/or @@ -43,11 +43,11 @@ (list (lambda (o) (if before-ref (if (before-ref o) - (let ((res (%fast-slot-ref o index))) + (let ((res (struct-ref o index))) (and after-ref (not (eqv? res unbound)) (after-ref o)) res) (make-unbound)) - (let ((res (%fast-slot-ref o index))) + (let ((res (struct-ref o index))) (and after-ref (not (eqv? res unbound)) (after-ref o)) res))) @@ -55,9 +55,9 @@ (if before-set! (if (before-set! o v) (begin - (%fast-slot-set! o index v) + (struct-set! o index v) (and after-set! (after-set! o v)))) (begin - (%fast-slot-set! o index v) + (struct-set! o index v) (and after-set! (after-set! o v))))))) (next-method))) |