bug#17703: (ice-9 curried-definitions) is missing define*-public

[David Kastrup]

The following bombs out:

(use-modules (ice-9 optargs) (ice-9 curried-definitions))
(define*-public
  ((styled-metronome-markup #:optional (glyph-font 'default))
   event context)
  "What a mess")

The error message is rather flowery:

;;; note: source file /tmp/bug13.scm
;;;       newer than compiled 
/usr/local/tmp/guile/cache/guile/ccache/2.2-LE-4-3.6/tmp/bug13.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /tmp/bug13.scm
;;; WARNING: compilation of /tmp/bug13.scm failed:
;;; ERROR: Syntax error:
;;; /tmp/bug13.scm:2:0: source expression failed to match any pattern in form 
(define (styled-metronome-markup #:optional (glyph-font (quote default))) 
(lambda* (event context) "What a mess"))
ice-9/psyntax.scm:1081:18: In procedure #(#(#(#<variable 996aff0 value: 
#<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>> #(#<procedure 
expand-sequence (body r w s mod)> #-1# (#<variable 996afe8 value: #<fluid 14>> 
. #<variable 996aff0 value: #<procedure 996c980 at ice-9/psyntax.scm:288:10 
()>>)) (#<variable 996afe8 value: #<fluid 14>> . #<variable 996aff0 value: 
#<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>>)) #<variable 996aff0 
value: #<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>> (#<variable 996afe8 
value: #<fluid 14>> . #<variable 996aff0 value: #<procedure 996c980 at 
ice-9/psyntax.scm:288:10 ()>>) #(#<procedure expand-sequence (body r w s mod)> 
#(#<variable 996aff0 value: #<procedure 996c980 at ice-9/psyntax.scm:288:10 
()>> #-1# (#<variable 996afe8 value: #<fluid 14>> . #<variable 996aff0 value: 
#<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>>)) (#<variable 996afe8 
value: #<fluid 14>> . #<variable 996aff0 value: #<procedure 996c980 at 
ice-9/psyntax.scm:288:10 ()>>))) #(#<variable 996aff0 value: #<procedure 
996c980 at ice-9/psyntax.scm:288:10 ()>> #(#<procedure expand-sequence (body r 
w s mod)> #-1# (#<variable 996afe8 value: #<fluid 14>> . #<variable 996aff0 
value: #<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>>)) (#<variable 
996afe8 value: #<fluid 14>> . #<variable 996aff0 value: #<procedure 996c980 at 
ice-9/psyntax.scm:288:10 ()>>)) #<variable 996aff0 value: #<procedure 996c980 
at ice-9/psyntax.scm:288:10 ()>> #(ribcage () () ()) (#<variable 996afe8 value: 
#<fluid 14>> . #<variable 996aff0 value: #<procedure 996c980 at 
ice-9/psyntax.scm:288:10 ()>>) #(#<procedure expand-sequence (body r w s mod)> 
#(#<variable 996aff0 value: #<procedure 996c980 at ice-9/psyntax.scm:288:10 
()>> #-1# (#<variable 996afe8 value: #<fluid 14>> . #<variable 996aff0 value: 
#<procedure 996c980 at ice-9/psyntax.scm:288:10 ()>>)) (#<variable 996afe8 
value: #<fluid 14>> . #<variable 996aff0 value: #<procedure 996c980 at 
ice-9/psyntax.scm:288:10 ()>>))):
ice-9/psyntax.scm:1081:18: Syntax error:
/tmp/bug13.scm:2:0: source expression failed to match any pattern in form 
(define (styled-metronome-markup #:optional (glyph-font (quote default))) 
(lambda* (event context) "What a mess"))


-- 
David Kastrup