From c92a0c9afd1ef02eb7808fcc23581d37217b5028 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 17 Jun 2015 19:22:33 +0200 Subject: [PATCH] Issue 4456: Syntax constructors should not be exported Their argument types constitute an internal parser detail. --- scm/ly-syntax-constructors.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm index 9f2c98048d..423726900b 100644 --- a/scm/ly-syntax-constructors.scm +++ b/scm/ly-syntax-constructors.scm @@ -18,7 +18,7 @@ ;; TODO: use separate module for syntax ;; constructors. Also create wrapper around the constructor? (defmacro define-ly-syntax (args . body) - `(define-public ,args ,@body)) + `(define ,args ,@body)) ;; A ly-syntax constructor can access location data as (*location*). ;; This is mainly used for reporting errors and warnings. This @@ -26,7 +26,7 @@ ;; origin of the returned music object; this behaviour is usually ;; desired. (defmacro define-ly-syntax-loc (args . body) - `(define-public ,args + `(define ,args (let ((m ,(cons 'begin body))) (set! (ly:music-property m 'origin) (*location*)) m))) -- 2.39.5