diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-30 01:58:19 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
commit | 715e36ab81389ebf53ea158027d0a83f144eee0e (patch) | |
tree | 1e9522ba3bf4aef212d0b1d179e9bf1db2e6f60b /module/vcomponent/control.scm | |
parent | Rename attributes => properties, properties => parameters. (diff) | |
download | calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.gz calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.xz |
Finished renamining attribute to property.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/control.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/module/vcomponent/control.scm b/module/vcomponent/control.scm index b9f7bd19..6003c7ca 100644 --- a/module/vcomponent/control.scm +++ b/module/vcomponent/control.scm @@ -1,7 +1,7 @@ (define-module (vcomponent control) #:use-module (util) #:use-module (vcomponent) - #:export (with-replaced-attrs)) + #:export (with-replaced-properties)) (eval-when (expand load) ; No idea why I must have load here. @@ -10,19 +10,19 @@ (define (set-temp-values! table component kvs) (for-each (lambda (kv) (let* (((key val) kv)) - (when (attr component key) - (set! (href table key) (attr component key)) - (set! (attr component key) val)))) + (when (prop component key) + (set! (href table key) (prop component key)) + (set! (prop component key) val)))) kvs)) (define (restore-values! table component keys) (for-each (lambda (key) (and=> (href table key) (lambda (val) - (set! (attr component key) val)))) + (set! (prop component key) val)))) keys))) -(define-syntax with-replaced-attrs +(define-syntax with-replaced-properties (syntax-rules () [(_ (component (key val) ...) body ...) |