diff options
Diffstat (limited to 'guile/starlet/scanout.scm')
-rw-r--r-- | guile/starlet/scanout.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index df6245d..69f3e9c 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -25,7 +25,6 @@ #:use-module (starlet utils) #:use-module (starlet attributes) #:use-module (starlet guile-ola) - #:use-module (oop goops) #:use-module (ice-9 threads) #:use-module (ice-9 atomic) #:use-module (ice-9 exceptions) @@ -44,7 +43,7 @@ (define current-scanout-state (make-parameter (make-empty-state))) -(define-method (get-attr (attr-name <starlet-attribute>)) +(define (get-attr attr-name) (let ((v (state-find (current-scanout-fixture) attr-name (current-scanout-state)))) |