summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
Diffstat (limited to 'module/oop')
-rw-r--r--module/oop/goops.scm4
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!))