diff options
| author | Thomas White <taw@physics.org> | 2023-06-15 22:42:13 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-06-15 22:42:13 +0200 |
| commit | fd094d2fdcbc99493c7ad9420f4b38ec1cd4b825 (patch) | |
| tree | 26032d08e5b97d4225841b08257fc15bf4240874 /guile/starlet/scanout.scm | |
| parent | cc7f7c6a1557816f4b138a80132fbbc62b933a2e (diff) | |
Un-GOOPS some procedures
These don't need to be generic any more, now that we only have one type
of attribute.
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)))) |