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/engine.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/engine.scm')
-rw-r--r-- | guile/starlet/engine.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guile/starlet/engine.scm b/guile/starlet/engine.scm index c63cb9b..28f4321 100644 --- a/guile/starlet/engine.scm +++ b/guile/starlet/engine.scm @@ -125,7 +125,7 @@ (define name (patch-many-real (quote name) stuff ...))))) -(define-method (current-value (fix <fixture>) (attr-name <starlet-attribute>)) +(define (current-value fix attr-name) (let ((v (state-find fix attr-name (current-value-state)))) (if (eq? v 'no-value) (get-attr-home-val fix attr-name) |