lambda* in make-prompt-tag

* module/ice-9/boot-9.scm (make-prompt-tag): Use lambda*.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 4bdd86b..cda926f 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -48,8 +48,10 @@
 ;; Define delimited continuation operators, and implement catch and throw in
 ;; terms of them.
 
-(define (make-prompt-tag . stem)
-  (gensym (if (pair? stem) (car stem) "prompt")))
+(define make-prompt-tag
+  (lambda* (#:optional (stem "prompt"))
+    (gensym stem)))
+
 (define default-prompt-tag
   ;; not sure if we should expose this to the user as a fluid
   (let ((%default-prompt-tag (make-prompt-tag)))