diff options
Diffstat (limited to 'module/oop')
-rw-r--r-- | module/oop/goops.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm index 2e96e0b03..bf13e3830 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -84,6 +84,10 @@ (eval-when (eval load compile) (use-modules ((language tree-il primitives) :select (add-interesting-primitive!))) (add-interesting-primitive! 'class-of) + (define (@slot-ref o n) + (struct-ref o n)) + (define (@slot-set! o n v) + (struct-set! o n v)) (add-interesting-primitive! '@slot-ref) (add-interesting-primitive! '@slot-set!)) |