suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: improve function and module name

Browse Source 
The former "path.rkt" module handles more than just paths.
This commit is contained in:
Matthew Flatt 2019-12-05 05:50:07 -07:00
parent c93693169a
commit 1083aa1317
4 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/linklet.sls
View File

@ -595,7 +595,7 @@
code))))])))]))
(define-values (paths impl-lam/paths)
(if serializable?
(extract-paths-from-schemified-linklet impl-lam/jitified (not jitify-mode?))
(extract-paths-and-fasls-from-schemified-linklet impl-lam/jitified (not jitify-mode?))
(values '() impl-lam/jitified)))
(define impl-lam/interpable
(let ([impl-lam (case (and jitify-mode?

2
racket/src/cs/schemify.sls
View File

@ -3,7 +3,7 @@
lift-in-schemified-linklet
jitify-schemified-linklet
xify
extract-paths-from-schemified-linklet
extract-paths-and-fasls-from-schemified-linklet
interpretable-jitified-linklet
interpret-linklet
linklet-bigger-than?

4
racket/src/schemify/main.rkt
View File

@ -4,7 +4,7 @@
"lift.rkt"
"jitify.rkt"
"xify.rkt"
"path.rkt"
"path-and-fasl.rkt"
"interpret.rkt"
"size.rkt"
"fasl.rkt")
@ -21,7 +21,7 @@
xify
extract-paths-from-schemified-linklet
extract-paths-and-fasls-from-schemified-linklet
make-path->compiled-path
compiled-path->path

23
racket/src/schemify/path.rkt → racket/src/schemify/path-and-fasl.rkt
View File

@ -6,23 +6,24 @@
"path-for-srcloc.rkt"
"to-fasl.rkt")
(provide extract-paths-from-schemified-linklet
(provide extract-paths-and-fasls-from-schemified-linklet
make-path->compiled-path
compiled-path->path
force-unfasl)
;; Recognize lifted paths in a schemified linklet, and
;; return the list of path values. If `convert?`, then
;; change the schemified linklet to expect the paths
;; as arguments.
;; Recognize lifted paths and `to-fasl`s in a schemified linklet, and
;; return the list of path and `to-fasl` values. If `convert?`, then
;; change the schemified linklet to expect the paths as arguments.
;;
;; In addition to paths, this extraction deals with values
;; that have been packages as `to-fasl`, either because they
;; are large values that are best handled in fasl form or
;; because they are not serializable (and we want to delay
;; complaining in case no serialization is needed).
;; In addition to paths, this extraction deals with values that have
;; been packages as `to-fasl`, either because they are large values
;; that are best handled in fasl form, because they are not
;; serializable (and we want to delay complaining in case no
;; serialization is needed), or because they are uninterned symbols
;; that need to be exposed to the Scheme-level `fasl` for a full
;; linklet.
(define (extract-paths-from-schemified-linklet linklet-e convert?)
(define (extract-paths-and-fasls-from-schemified-linklet linklet-e convert?)
(match linklet-e
[`(lambda . ,_)
;; No constants, so no paths: