diff options
| author | Valentin Villenave <valentin@villenave.net> | 2016-04-21 17:35:35 +0200 |
|---|---|---|
| committer | Valentin Villenave <valentin@villenave.net> | 2016-04-28 10:30:37 +0200 |
| commit | 7d3fa8cb4799303da8e5fd2ead35f1ac32180157 (patch) | |
| tree | 9d4210fcc9cd466ac0decaa7c958353920463c4c /scm | |
| parent | be7ca7a201a8ae07323adf04f29ce48c407e8d0a (diff) | |
'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.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/framework-ps.scm | 7 |
1 files 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 + "<included string>"))) (ly:source-files))))) (display "\n/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse" port) |