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

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

[David Kastrup]

[-- Attachment #1: Type: text/plain, Size: 26 bytes --]


The following bombs out:

[-- Attachment #2: bug13.scm --]
[-- Type: text/plain, Size: 171 bytes --]

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

[-- Attachment #3: Type: text/plain, Size: 2856 bytes --]


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

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

[Ian Price]

I don't get that much output on a recent guile, FWIW. I've added
define*-public to (ice-9 curried-definitions). Closing this, thanks.

-- 
Ian Price -- shift-reset.com

"Programming is like pinball. The reward for doing it well is
the opportunity to do it again" - from "The Wizardy Compiled"