diff options
Diffstat (limited to 'modules/oop/pf-objects.scm')
| -rw-r--r-- | modules/oop/pf-objects.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index d7ca1a3..13edec8 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -238,6 +238,7 @@ explicitly tell it to not update etc. (unx mrefx-py mref-pyq) (unx mrefx-py- mref-py-q) +(define-method (ref x key . l) (if (pair? l) (car l) #f)) (define-method (ref (x <pf> ) key . l) (mref x key l)) (define-method (ref (x <p> ) key . l) (mref- x key l)) (define-method (ref (x <pyf>) key . l) (mref-py x key l)) |