3 files changed, 11 insertions, 10 deletions
diff --git a/module/vulgar.scm b/module/vulgar.scm
index ed24ee97..bbb030e5 100644
--- a/module/vulgar.scm
+++ b/module/vulgar.scm
@@ -5,10 +5,10 @@
 ;;; Code:
 
 (define-module (vulgar)
-  #:use-module (srfi srfi-60)
-  #:use-module (vulgar termios)
-  #:use-module (hnh util)
-  #:export (cls set-cursor-pos with-vulgar))
+  :use-module (srfi srfi-60)
+  :use-module (vulgar termios)
+  :use-module (hnh util)
+  :export (cls set-cursor-pos with-vulgar))
 
 (define (cls)
   ;; [H]ome, [J]: clear everything after
diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm
index 3242ec8c..74420f18 100644
--- a/module/vulgar/components.scm
+++ b/module/vulgar/components.scm
@@ -1,7 +1,7 @@
 (define-module (vulgar components)
-  #:use-module (datetime)
-  #:use-module (hnh util)
-  #:export (display-calendar-header!))
+  :use-module (datetime)
+  :use-module (hnh util)
+  :export (display-calendar-header!))
 
 (define (display-calendar-header! date)
   (let ((day   (number->string (day   date)))
diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm
index 713c9875..3486e000 100644
--- a/module/vulgar/termios.scm
+++ b/module/vulgar/termios.scm
@@ -6,6 +6,7 @@
   :use-module (ice-9 format)
   :use-module (ice-9 rdelim)
   :use-module (srfi srfi-9)             ; records
+  :use-module (srfi srfi-88)
   :use-module (c cpp)
   :use-module (hnh util)
   :export (make-termios
@@ -49,7 +50,7 @@
   (ptr as-ptr)
   (list as-list))
 
-(define* (make-termios #:optional (data (empty-values struct-termios)))
+(define* (make-termios optional: (data (empty-values struct-termios)))
   (%make-termios (make-c-struct struct-termios data) data))
 
 (define (copy-termios termios)
@@ -156,7 +157,7 @@
 (define-foreign (tcsetattr int int *) → int
   (dynamic-func "tcsetattr" lib))
 
-(define* (tcsetattr! termios  #:optional
+(define* (tcsetattr! termios optional:
                      (port (current-input-port))
                      (when TCSANOW))
   (with-termios termios (lambda (ptr) (tcsetattr (port->fdes port) when ptr))))
@@ -165,7 +166,7 @@
 (define-foreign (tcgetattr int *) → int
   (dynamic-func "tcgetattr" lib))
 
-(define* (tcgetattr! termios #:optional (port (current-input-port)))
+(define* (tcgetattr! termios optional: (port (current-input-port)))
   (with-termios termios (lambda (ptr) (tcgetattr (port->fdes port) ptr))))