Check-in [87b69065d8]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fixed some include/resolve
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 87b69065d8634bdb5638d796846712fe28b7faf4
User & Date: aldo 2017-09-11 21:20:04
Context
2017-09-11
21:22
small fix in curl.sls check-in: 2d1481d9d8 user: aldo tags: trunk
21:20
fixed some include/resolve check-in: 87b69065d8 user: aldo tags: trunk
21:19
added curl library check-in: 0c4baf9591 user: aldo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to sxml/to-html.sls.

16
17
18
19
20
21
22

23
24

25
26
27
   (import (except (scheme)
                  string-copy string-for-each string->list string-upcase
                  string-downcase string-titlecase string-hash string-copy! string-fill!
                  fold-right error filter)
          (prefix (only (scheme) error) scheme:)
          (srfi s13 strings)
	  (sxml tree-trans)

	  (only (thunder-utils) string-split))
   (include "utils.ss")

   (include "SXML-to-HTML.scm")
   (include "SXML-to-HTML-ext.scm"))
		







>

<
>
|
|

16
17
18
19
20
21
22
23
24

25
26
27
28
   (import (except (scheme)
                  string-copy string-for-each string->list string-upcase
                  string-downcase string-titlecase string-hash string-copy! string-fill!
                  fold-right error filter)
          (prefix (only (scheme) error) scheme:)
          (srfi s13 strings)
	  (sxml tree-trans)
	  (srfi private include)
	  (only (thunder-utils) string-split))

   (include/resolve ("sxml") "utils.ss")
   (include/resolve ("sxml") "SXML-to-HTML.scm")
   (include/resolve ("sxml") "SXML-to-HTML-ext.scm"))
		

Changes to sxml/tree-trans.sls.

7
8
9
10
11
12
13
14
15

16
17
   foldts
   replace-range)
   (import (except (scheme)
                  string-copy string-for-each string->list string-upcase
                  string-downcase string-titlecase string-hash string-copy! string-fill!
                  fold-right error filter)
          (prefix (only (scheme) error) scheme:)
          (srfi s13 strings))
   (include "utils.ss")

   (include "SXML-tree-trans.scm"))
		







|
|
>
|

7
8
9
10
11
12
13
14
15
16
17
18
   foldts
   replace-range)
   (import (except (scheme)
                  string-copy string-for-each string->list string-upcase
                  string-downcase string-titlecase string-hash string-copy! string-fill!
                  fold-right error filter)
          (prefix (only (scheme) error) scheme:)
          (srfi s13 strings)
	  (srfi private include))
   (include/resolve ("sxml") "utils.ss")
   (include/resolve ("sxml") "SXML-tree-trans.scm"))