simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

support type hints; make metadata coherent

Browse source 
The reader expanded ^X form to (with-meta form X), which evaluated the tag (so
^String errored 'Unable to resolve symbol: String') and, as a param, was no
longer a bare symbol (so the arg bound to nil). Now a keyword/symbol/string hint
on a symbol attaches to the symbol's :meta and the symbol stays bare, so type
hints are transparent in params, lets, and bodies. Map metadata still uses a
runtime with-meta form.

meta now returns a symbol's :meta, and def applies the name's metadata
(^:dynamic, ^:private, ^Type tag, ^{:doc}) to the var, so (meta (var x)) is
consistent. Specs in metadata-spec; grammar note in the ebnf.

README notes regex \p{...} as unsupported (separate from this).
This commit is contained in:
Yogthos 2026-06-06 00:36:10 -04:00
parent f749ec3c19
commit 761a2b8f72
8 changed files with 94 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test/unit/reader-test.janet
View file

@ -83,11 +83,19 @@
(assert (deep= @[(sym "deref") (sym "x")] (parse-string "@x"))
"deref shorthand")
# Metadata
# Metadata: a keyword/symbol/string hint on a symbol attaches to the symbol's
# :meta and keeps it a bare symbol (so type hints are transparent everywhere).
(let [form (parse-string "^:meta x")]
(assert (array? form) "metadata is array")
(assert (deep= @[(sym "with-meta") (sym "x") :meta] form)
"metadata form"))
(assert (and (struct? form) (= :symbol (form :jolt/type))) "meta-hinted symbol stays a symbol")
(assert (= "x" (form :name)) "symbol name preserved")
(assert (= true (get (form :meta) :meta)) "keyword hint -> {kw true}"))
(let [form (parse-string "^String s")]
(assert (= "s" (form :name)) "type-hinted symbol name preserved")
(assert (= "String" (get (form :meta) :tag)) "symbol hint -> {:tag name}"))
# Map metadata on a symbol still uses a runtime with-meta form.
(let [form (parse-string "^{:doc \"d\"} y")]
(assert (and (array? form) (struct? (first form)) (= "with-meta" ((first form) :name)))
"map metadata -> with-meta form"))
# Comments (skip to end of line)
(assert (= 42 (parse-string "; comment\n42"))