From 7d3fa8cb4799303da8e5fd2ead35f1ac32180157 Mon Sep 17 00:00:00 2001 From: Valentin Villenave Date: Thu, 21 Apr 2016 17:35:35 +0200 Subject: [PATCH] 'embed-source-code should disregard Scheme-generated input (... for now at least). This fixes the include-string.ly regtest, and a few others, that previously could not be compiled when enabling the -dembed-source-code switch. --- scm/framework-ps.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index d3234b3329..ca3372ca92 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -483,8 +483,11 @@ (if (ly:get-option 'embed-source-code) (let ((source-list (delete-duplicates (remove (lambda (str) - (string-contains str - (ly:get-option 'datadir))) + (or + (string-contains str + (ly:get-option 'datadir)) + (string=? str + ""))) (ly:source-files))))) (display "\n/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse" port) -- 2.39.5