not-a-box/expander.sls at master · mflatt/not-a-box · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(library (expander)
  (export find-library-collection-links
          current-library-collection-links
          current-library-collection-paths
          find-library-collection-paths
          flush
          call-in-main-thread)
  (import (chezpart)
          (rename (core)
                  ;; These names are not public primitives, so "expander.scm"
                  ;; can define them:
                  [correlated? core:correlated?]
                  [correlated-source core:correlated-source]
                  [correlated-line core:correlated-line]
                  [correlated-column core:correlated-column]
                  [correlated-position core:correlated-position]
                  [correlated-span core:correlated-span]
                  [correlated-e core:correlated-e]
                  [correlated->datum core:correlated->datum]
                  [datum->correlated core:datum->correlated]
                  [correlated-property core:correlated-property]
                  [correlated-property-symbol-keys core:correlated-property-symbol-keys])
          (thread)
          (regexp)
          (port)
          (linklet))
  (include "expander-compat.scm")
  (include "linklet/expander.scm")
  (fill-environment!))