diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-16 15:13:18 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-16 15:13:18 +0200 |
| commit | 9e06805991a4030172cb8545b896501833e7e2c3 (patch) | |
| tree | d0d786bfe140a74162e04d2e4cc8467de5ca79d5 /modules/oop | |
| parent | 002d984d6ad1cfef48cadc887a28d04d5a81032f (diff) | |
bugfixes
Diffstat (limited to 'modules/oop')
| -rw-r--r-- | modules/oop/pf-objects.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 75304db..323abfd 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -4,7 +4,7 @@ #:use-module (ice-9 match) #:export (set ref make-pf <p> <py> <pf> <pyf> call with copy fset fcall make-p put put! - pcall pcall! get fset-x + pcall pcall! get fset-x pyclass? def-pf-class mk-pf-class make-pf-class def-p-class mk-p-class make-p-class def-pyf-class mk-pyf-class make-pyf-class @@ -656,4 +656,4 @@ explicitly tell it to not update etc. ()))) (define (pyclass? x) - (and (is-a? x <p>) (not (ref x '__class__)))) + (and (is-a? x <p>) (not (ref x '__class__)))) |