diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 15:32:46 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 15:32:46 +0200 |
commit | 97cb53113ec7f8238e37f798b6c83ec9c2b21151 (patch) | |
tree | dcc831a3268abcf0e05be2db5703df024089d482 /modules/oop | |
parent | c5bfeb3df2fad8df156d6008ebdf62349e2e4e70 (diff) |
with
Diffstat (limited to 'modules/oop')
-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)) |