From: David Kastrup <dak@gnu.org>
Date: Wed, 17 Jun 2015 17:22:33 +0000 (+0200)
Subject: Issue 4456: Syntax constructors should not be exported
X-Git-Tag: release/2.19.22-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c92a0c9afd1ef02eb7808fcc23581d37217b5028;p=lilypond.git

Issue 4456: Syntax constructors should not be exported

Their argument types constitute an internal parser detail.
---

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)))