From fd094d2fdcbc99493c7ad9420f4b38ec1cd4b825 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 15 Jun 2023 22:42:13 +0200 Subject: Un-GOOPS some procedures These don't need to be generic any more, now that we only have one type of attribute. --- guile/starlet/scanout.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'guile/starlet/scanout.scm') 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 )) +(define (get-attr attr-name) (let ((v (state-find (current-scanout-fixture) attr-name (current-scanout-state)))) -- cgit v1.2.3