diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/vcomponent/base.scm | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/vcomponent/base.scm')
| -rw-r--r-- | module/vcomponent/base.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index e79a4d5c..b62d45c2 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -4,6 +4,7 @@ :use-module (srfi srfi-9) :use-module (srfi srfi-9 gnu) :use-module (srfi srfi-17) + :use-module (srfi srfi-88) :use-module (ice-9 hash-table) :export (make-vline vline? @@ -70,7 +71,7 @@ (make-procedure-with-setter get-source set-source!)) -(define* (make-vline key value #:optional (ht (make-hash-table))) +(define* (make-vline key value optional: (ht (make-hash-table))) (make-vline% key value ht)) (define-record-type <vcomponent> @@ -94,7 +95,7 @@ (make-procedure-with-setter get-component-parent set-component-parent!)) -(define* (make-vcomponent #:optional (type 'VIRTUAL)) +(define* (make-vcomponent optional: (type 'VIRTUAL)) (make-vcomponent% type '() #f (make-hash-table))) (define (add-child! parent child) |