I tried to fix the errors related to the mutation of immutables(patch
attached).
Ithink the correct solution is more complex than that.
That said, it still fails to compile. make.log attached.
>From 6be0b25d387e4d2e21911b0f26afa3d9ebf4cc28 Mon Sep 17 00:00:00 2001
From: amirouche <[email protected]>
Date: Sat, 2 Sep 2017 01:27:13 +0200
Subject: [PATCH] work around immutability errors to build the documentation
* src/guile/skribilo/engine/html.scm (html-engine) make some custom
keyword argument mutable
* src/guile/skribilo/engine/latex.scm (latex-engine) idem
* src/guile/skribilo/engine/lout.scm (lout-engine) idem
---
src/guile/skribilo/engine/html.scm | 18 +++++++++---------
src/guile/skribilo/engine/latex.scm | 12 ++++++------
src/guile/skribilo/engine/lout.scm | 12 ++++++------
3 files changed, 21 insertions(+), 21 deletions(-)
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index dc176af..b985f38 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -140,7 +140,7 @@
(#\" """)
(#\@ "@")))
:custom `(;; the icon associated with the URL
- (favicon #f)
+ ,(list 'favicon #f)
;; charset used
(charset "ISO-8859-1")
;; enable/disable Javascript
@@ -148,13 +148,13 @@
;; user html head
(head #f)
;; user CSS
- (css ())
+ ,(list 'css '())
;; user inlined CSS
- (inline-css ())
+ ,(list 'inline-css '())
;; user JS
- (js ())
+ ,(list 'js '())
;; emit-sui
- (emit-sui #f)
+ ,(list 'emit-sui #f)
;; the body
(background #f)
(foreground #f)
@@ -187,7 +187,7 @@
(index-header-font-size #f) ;; +2.
;; chapter configuration
(chapter-number->string number->string)
- (chapter-file #f)
+ ,(list 'chapter-file #f)
;; section configuration
(section-title-start "<h3>")
(section-title-stop "</h3>")
@@ -195,7 +195,7 @@
(section-title-foreground #f)
(section-title-number-separator " ")
(section-number->string number->string)
- (section-file #f)
+ ,(list 'section-file #f)
;; subsection configuration
(subsection-title-start "<h3>")
(subsection-title-stop "</h3>")
@@ -203,7 +203,7 @@
(subsection-title-foreground #f)
(subsection-title-number-separator " ")
(subsection-number->string number->string)
- (subsection-file #f)
+ ,(list 'subsection-file #f)
;; subsubsection configuration
(subsubsection-title-start "<h4>")
(subsubsection-title-stop "</h4>")
@@ -211,7 +211,7 @@
(subsubsection-title-foreground #f)
(subsubsection-title-number-separator " ")
(subsubsection-number->string number->string)
- (subsubsection-file #f)
+ ,(list 'subsubsection-file #f)
;; source fontification
(source-color #t)
(source-comment-color "#ffa600")
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm
index ea63924..92b05d8 100644
--- a/src/guile/skribilo/engine/latex.scm
+++ b/src/guile/skribilo/engine/latex.scm
@@ -355,20 +355,20 @@
:format "latex"
:delegate (find-engine 'base)
:filter (make-string-replace latex-encoding)
- :custom '((documentclass "\\documentclass{article}")
+ :custom '(,(list 'documentclass "\\documentclass{article}")
(encoding "UTF-8")
- (class-has-chapters? #f)
- (usepackage "\\usepackage{epsfig}\n")
- (predocument "\\newdimen\\oldframetabcolsep\n\\newdimen\\oldcolortabcolsep\n\\newdimen\\oldpretabcolsep\n")
+ ,(list 'class-has-chapters? #f)
+ ,(list 'usepackage "\\usepackage{epsfig}\n")
+ ,(list 'predocument "\\newdimen\\oldframetabcolsep\n\\newdimen\\oldcolortabcolsep\n\\newdimen\\oldpretabcolsep\n")
(postdocument #f)
- (maketitle "\\date{}\n\\maketitle")
+ ,(list 'maketitle "\\date{}\n\\maketitle")
(%font-size 0)
;; color
(color #t)
(color-usepackage "\\usepackage{color}\n")
;; hyperref
(hyperref #t)
- (hyperref-usepackage "\\usepackage[setpagesize=false]{hyperref}\n")
+ ,(list 'hyperref-usepackage "\\usepackage[setpagesize=false]{hyperref}\n")
;; source fontification
(source-color #t)
(source-comment-color "#ffa600")
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index a059af1..5adaa0d 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -570,19 +570,19 @@
:filter (make-string-replace lout-encoding)
:custom `(;; The underlying Lout document type, i.e. one
;; of `doc', `report', `book' or `slides'.
- (document-type doc)
+ ,(list 'document-type 'doc)
;; Document style file include line (a string
;; such as `@Include { doc-style.lout }') or
;; `auto' (symbol) in which case the include
;; file is deduced from `document-type'.
- (document-include auto)
+ ,(list 'document-include 'auto)
;; Encoding of the output file.
(encoding "ISO-8859-1")
- (includes "@SysInclude { tbl }\n")
- (initial-font "Palatino Base 10p")
+ ,(list 'includes "@SysInclude { tbl }\n")
+ ,(list 'initial-font "Palatino Base 10p")
(initial-break
,(string-append "unbreakablefirst "
"unbreakablelast "
@@ -590,7 +590,7 @@
;; The document's language, used for hyphenation
;; and other things.
- (initial-language "English")
+ ,(list 'initial-language "English")
;; Number of columns.
(column-number 1)
@@ -623,7 +623,7 @@
(publisher #f)
(edition #f)
(before-title-page #f)
- (on-title-page #f)
+ ,(list 'on-title-page #f)
(after-title-page #f)
(at-end #f)
--
2.11.0
Making all in po
make[1] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/po »
make[1]: rien à faire pour « all ».
make[1] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/po »
Making all in src
make[1] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/src »
Making all in guile
make[2] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/src/guile »
SUBSTITUTE skribilo/config.scm
SUBSTITUTE skribilo/utils/images.scm
make all-am
make[3] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/src/guile »
GUILEC skribilo.go
Some deprecated features have been used. Set the environment
variable GUILE_WARN_DEPRECATED to "detailed" and rerun the
program to get more information. Set it to "no" to suppress
this message.
GUILEC diff.go
GUILEC skribilo/biblio/bibtex.go
GUILEC skribilo/biblio/author.go
GUILEC skribilo/biblio/abbrev.go
GUILEC skribilo/biblio/template.go
GUILEC skribilo/utils/syntax.go
GUILEC skribilo/utils/compat.go
GUILEC skribilo/utils/files.go
GUILEC skribilo/utils/keywords.go
GUILEC skribilo/utils/strings.go
GUILEC skribilo/source/parameters.go
GUILEC skribilo/source/c.go
GUILEC skribilo/source/lisp.go
skribilo/source/lisp.scm:76:6: warning: unused variable `else'
skribilo/source/lisp.scm:76:6: warning: unused variable `failure'
skribilo/source/lisp.scm:118:6: warning: unused variable `else'
skribilo/source/lisp.scm:118:6: warning: unused variable `failure'
skribilo/source/lisp.scm:162:6: warning: unused variable `else'
skribilo/source/lisp.scm:162:6: warning: unused variable `failure'
skribilo/source/lisp.scm:216:6: warning: unused variable `else'
skribilo/source/lisp.scm:216:6: warning: unused variable `failure'
skribilo/source/lisp.scm:278:6: warning: unused variable `else'
skribilo/source/lisp.scm:278:6: warning: unused variable `failure'
GUILEC skribilo/source/xml.go
GUILEC skribilo/biblio.go
GUILEC skribilo/color.go
GUILEC skribilo/debug.go
skribilo/debug.scm:62:0: warning: possibly unused local top-level variable `*debug-depth*'
skribilo/debug.scm:63:0: warning: possibly unused local top-level variable `*debug-margin*'
skribilo/debug.scm:64:0: warning: possibly unused local top-level variable `*margin-level*'
skribilo/debug.scm:106:0: warning: possibly unused local top-level variable `%do-debug-item'
skribilo/debug.scm:129:0: warning: possibly unused local top-level variable `%with-debug-margin'
skribilo/debug.scm:137:0: warning: possibly unused local top-level variable `%do-with-debug'
GUILEC skribilo/engine.go
GUILEC skribilo/evaluator.go
GUILEC skribilo/index.go
GUILEC skribilo/lib.go
GUILEC skribilo/module.go
GUILEC skribilo/output.go
GUILEC skribilo/prog.go
skribilo/prog.scm:174:3: warning: unused variable `s'
GUILEC skribilo/reader.go
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader?-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:name-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:version-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:make-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:set-name!-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:set-version!-procedure'
skribilo/reader.scm:49:0: warning: possibly unused local top-level variable `%reader:set-make!-procedure'
GUILEC skribilo/resolve.go
GUILEC skribilo/source.go
skribilo/source.scm:229:0: warning: possibly unused local top-level variable `split-string-newline'
GUILEC skribilo/parameters.go
GUILEC skribilo/verify.go
GUILEC skribilo/writer.go
GUILEC skribilo/ast.go
GUILEC skribilo/location.go
GUILEC skribilo/condition.go
GUILEC skribilo/sui.go
skribilo/sui.scm:122:23: warning: unused variable `else'
skribilo/sui.scm:122:23: warning: unused variable `failure'
skribilo/sui.scm:146:3: warning: unused variable `else'
skribilo/sui.scm:146:3: warning: unused variable `failure'
skribilo/sui.scm:163:3: warning: unused variable `else'
skribilo/sui.scm:163:3: warning: unused variable `failure'
skribilo/sui.scm:187:6: warning: unused variable `else'
skribilo/sui.scm:187:6: warning: unused variable `failure'
skribilo/sui.scm:259:3: warning: unused variable `else'
skribilo/sui.scm:259:3: warning: unused variable `failure'
GUILEC skribilo/table.go
GUILEC skribilo/utils/justify.go
GUILEC skribilo/utils/text-table.go
GUILEC skribilo/reader/skribe.go
GUILEC skribilo/reader/outline.go
GUILEC skribilo/reader/rss-2.go
skribilo/reader/rss-2.scm:59:2: warning: unused variable `failure'
skribilo/reader/rss-2.scm:99:4: warning: unused variable `failure'
skribilo/reader/rss-2.scm:99:4: warning: unused variable `unsupported-tag'
skribilo/reader/rss-2.scm:189:19: warning: unused variable `failure'
GUILEC skribilo/package/acmproc.go
GUILEC skribilo/package/french.go
GUILEC skribilo/package/jfp.go
GUILEC skribilo/package/letter.go
GUILEC skribilo/package/lncs.go
GUILEC skribilo/package/scribe.go
GUILEC skribilo/package/sigplan.go
GUILEC skribilo/package/slide.go
skribilo/package/slide.scm:227:19: warning: unused variable `id'
GUILEC skribilo/package/web-article.go
GUILEC skribilo/package/web-book.go
GUILEC skribilo/package/eq.go
GUILEC skribilo/package/pie.go
GUILEC skribilo/package/base.go
GUILEC skribilo/package/diff.go
GUILEC skribilo/package/html-navtabs.go
skribilo/package/html-navtabs.scm:168:0: warning: possibly unused local top-level variable `&html-navtabs-css-margins'
GUILEC skribilo/package/web-book2.go
GUILEC skribilo/package/pie/lout.go
GUILEC skribilo/package/eq/lout.go
GUILEC skribilo/package/slide/base.go
GUILEC skribilo/package/slide/latex.go
skribilo/package/slide/latex.scm:275:21: warning: unused variable `else'
skribilo/package/slide/latex.scm:275:21: warning: unused variable `failure'
GUILEC skribilo/package/slide/html.go
GUILEC skribilo/package/slide/lout.go
GUILEC skribilo/engine/base.go
GUILEC skribilo/engine/context.go
GUILEC skribilo/engine/html.go
skribilo/engine/html.scm:1202:22: warning: unused variable `failure'
skribilo/engine/html.scm:1209:28: warning: unused variable `failure'
GUILEC skribilo/engine/html4.go
GUILEC skribilo/engine/latex.go
GUILEC skribilo/engine/lout.go
GUILEC skribilo/engine/xml.go
GUILEC skribilo/engine/info.go
skribilo/engine/info.scm:487:8: warning: unused variable `failure'
skribilo/engine/info.scm:491:11: warning: unused variable `failure'
skribilo/engine/info.scm:500:6: warning: unused variable `failure'
GUILEC skribilo/source/lisp-lex.go
skribilo/source/lisp-lex.scm:457:4: warning: unused variable `IS-get-user-offset'
skribilo/source/lisp-lex.scm:457:4: warning: unused variable `IS-get-user-column'
skribilo/source/lisp-lex.scm:457:4: warning: unused variable `IS-get-user-line'
GUILEC skribilo/source/xml-lex.go
skribilo/source/xml-lex.scm:457:4: warning: unused variable `IS-get-user-offset'
skribilo/source/xml-lex.scm:457:4: warning: unused variable `IS-get-user-column'
skribilo/source/xml-lex.scm:457:4: warning: unused variable `IS-get-user-line'
GUILEC skribilo/source/c-lex.go
skribilo/source/c-lex.scm:457:4: warning: unused variable `IS-get-user-offset'
skribilo/source/c-lex.scm:457:4: warning: unused variable `IS-get-user-column'
skribilo/source/c-lex.scm:457:4: warning: unused variable `IS-get-user-line'
GUILEC skribilo/config.go
GUILEC skribilo/utils/images.go
make[3] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/src/guile »
make[2] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/src/guile »
make[2] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/src »
SUBSTITUTE skribilo
SUBSTITUTE skribilo-config
SUBSTITUTE pre-inst-skribilo
make[2] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/src »
make[1] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/src »
Making all in doc
make[1] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/doc »
Making all in modules
make[2] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/doc/modules »
GUILEC skribilo/documentation/api.go
skribilo/documentation/api.scm:198:14: warning: unused variable `margin'
skribilo/documentation/api.scm:309:3: warning: unused variable `else'
skribilo/documentation/api.scm:309:3: warning: unused variable `failure'
skribilo/documentation/api.scm:327:3: warning: unused variable `else'
skribilo/documentation/api.scm:327:3: warning: unused variable `failure'
skribilo/documentation/api.scm:327:3: warning: unused variable `rest'
skribilo/documentation/api.scm:349:4: warning: unused variable `else'
skribilo/documentation/api.scm:349:4: warning: unused variable `failure'
skribilo/documentation/api.scm:364:3: warning: unused variable `else'
skribilo/documentation/api.scm:364:3: warning: unused variable `failure'
skribilo/documentation/api.scm:364:3: warning: unused variable `id'
skribilo/documentation/api.scm:392:3: warning: unused variable `else'
skribilo/documentation/api.scm:392:3: warning: unused variable `failure'
skribilo/documentation/api.scm:415:3: warning: unused variable `else'
skribilo/documentation/api.scm:415:3: warning: unused variable `failure'
skribilo/documentation/api.scm:494:7: warning: unused variable `else'
skribilo/documentation/api.scm:494:7: warning: unused variable `failure'
GUILEC skribilo/documentation/env.go
GUILEC skribilo/documentation/extension.go
GUILEC skribilo/documentation/manual.go
make[2] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/doc/modules »
Making all in user
make[2] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/doc/user »
make all-am
make[3] : on entre dans le répertoire « /home/amirouche/src/guile/skribilo/doc/user »
SKRHTML user.html
HTML slides setup...
Lout slides setup...
WARNING: (#{ g71}#): imported module (skribilo package base) overrides core binding `include'
source definition of 'bib-sort/idents' in language 'skribe' not found
Call stack:
In ice-9/eval.scm:
217:50 19 (lp (#<procedure 4874560 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:50 18 (lp (#<procedure 48744c0 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:50 17 (lp (#<procedure 4874420 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:50 16 (lp (#<procedure 4543900 at ice-9/eval.scm:212:12 (eâ¦> â¦))
217:33 15 (lp (#<procedure 4543880 at ice-9/eval.scm:212:12 (env)>))
214:21 14 (_ #f)
217:50 13 (lp (#<procedure 4877c80 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:50 12 (lp (#<procedure 4877a00 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:50 11 (lp (#<procedure 4877940 at ice-9/eval.scm:649:6 (enâ¦> â¦))
217:33 10 (lp (#<procedure 4877880 at ice-9/eval.scm:649:6 (enâ¦> â¦))
159:9 9 (_ #(#<module (#{ g71}#) 2238a00> #<<location> 398605â¦>))
174:20 8 (_ #(#(#<module (#{ g71}#) 2238a00> #<<location> 3â¦>) #))
177:32 7 (lp (#<procedure 37d6aa0 at ice-9/eval.scm:292:11 (env)>))
In skribilo/documentation/manual.scm:
208:18 6 (%prgm-internal _ #:language _ #:line _ #:file _ # _ . _)
In skribilo/package/base.scm:
575:23 5 (%source-internal _ #:language _ #:file _ #:start _ # . #)
In skribilo/source.scm:
206:27 4 (source-read-definition _ _ _ _)
In ice-9/boot-9.scm:
759:25 3 (dispatch-exception 0 srfi-34 (#<condition &definitionâ¦>))
In skribilo/condition.scm:
153:2 2 (abort 1)
136:15 1 (show-stack-trace)
In unknown file:
0 (make-stack #t)
Makefile:700 : la recette pour la cible « user.html » a échouée
make[3]: *** [user.html] Erreur 1
make[3] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/doc/user »
Makefile:383 : la recette pour la cible « all » a échouée
make[2]: *** [all] Erreur 2
make[2] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/doc/user »
Makefile:360 : la recette pour la cible « all-recursive » a échouée
make[1]: *** [all-recursive] Erreur 1
make[1] : on quitte le répertoire « /home/amirouche/src/guile/skribilo/doc »
Makefile:392 : la recette pour la cible « all-recursive » a échouée
make: *** [all-recursive] Erreur 1
_______________________________________________
Skribilo-users mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/skribilo-users
