Recompile all 26 .sxbc with define-library wrappers + fix eval/JIT
All 26 browser modules recompiled with define-library/import forms. Compilation works without vm-compile-adapter (JIT pre-compilation hangs with library wrappers in some JIT paths — skipped for now, CEK compilation is ~34s total). Key fixes: - eval command: import-aware loop that handles define-library/import locally without touching the Python bridge pipe (avoids deadlock) - compile-modules.js: skip vm-compile-adapter, bump timeout 2621/2621 OCaml tests passing. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -17,6 +17,47 @@
|
||||
;; "/" → ()
|
||||
;; "/docs/" → ("docs")
|
||||
|
||||
|
||||
(define-library (web router)
|
||||
(export
|
||||
split-path-segments
|
||||
make-route-segment
|
||||
parse-route-pattern
|
||||
match-route-segments
|
||||
match-route
|
||||
find-matching-route
|
||||
_fn-to-segment
|
||||
sx-url-to-path
|
||||
_count-leading-dots
|
||||
_strip-trailing-close
|
||||
_index-of-safe
|
||||
_last-index-of
|
||||
_pop-sx-url-level
|
||||
_pop-sx-url-levels
|
||||
_split-pos-kw
|
||||
_parse-relative-body
|
||||
_extract-innermost
|
||||
_find-kw-in-tokens
|
||||
_find-keyword-value
|
||||
_replace-kw-in-tokens
|
||||
_set-keyword-in-content
|
||||
_is-delta-value?
|
||||
_apply-delta
|
||||
_apply-kw-pairs
|
||||
_apply-keywords-to-url
|
||||
_normalize-relative
|
||||
resolve-relative-url
|
||||
relative-sx-url?
|
||||
_url-special-forms
|
||||
url-special-form?
|
||||
parse-sx-url
|
||||
url-special-form-name
|
||||
url-special-form-inner
|
||||
url-to-expr
|
||||
auto-quote-unknowns
|
||||
prepare-url-expr)
|
||||
(begin
|
||||
|
||||
(define split-path-segments :effects []
|
||||
(fn ((path :as string))
|
||||
(let ((trimmed (if (starts-with? path "/") (slice path 1) path)))
|
||||
@@ -678,3 +719,9 @@
|
||||
;;
|
||||
;; From parser.sx: sx-parse, sx-serialize
|
||||
;; --------------------------------------------------------------------------
|
||||
|
||||
|
||||
)) ;; end define-library
|
||||
|
||||
;; Re-export to global namespace for backward compatibility
|
||||
(import (web router))
|
||||
|
||||
Reference in New Issue
Block a user