Chez parity: trailing-apostrophe symbols + arglist return hints (jolt-vgrp, jolt-5540)
Two Chez reader bugs, both JVM-parity gaps: inc'/+'/foo' (trailing apostrophe) were mis-read as a symbol followed by a quote macro, because the reader treated ' as a terminator. In Clojure ' is a NON-terminating macro char (constituent after the first char). Since the seed is minted on Chez, (def inc' inc) became (def inc 'inc), clobbering inc's var cell with its own symbol -- so (var-get (var inc)) returned the symbol, not the fn. Drop ' from the token terminator set; a leading ' still quotes. ^bytes [b] / ^String [x y] return-type hints: the Chez reader lowered ^meta on a collection to a (with-meta vec meta) form, but emitted a QUALIFIED clojure.core/with-meta while the Janet reader emits a bare with-meta -- so the fn/defn macros' unwrap logic (matching the bare head) slipped past it and choked on a non-vector arglist. Emit bare with-meta to match Janet, and unwrap a (with-meta <vec> _) arglist in analyze-fn as a backstop. Re-minted the seed. zero-janet 2699, prelude 2652, Janet gate 155/0, fixpoint 10/10, bootstrap 6/6, all 0 new divergences.
This commit is contained in:
parent
53a189541c
commit
eb1c3298a4
5 changed files with 53 additions and 25 deletions
|
|
@ -203,7 +203,9 @@
|
|||
(when (os/getenv "JOLT_DUMP_CRASH_LABELS")
|
||||
(printf "\nCRASH LABELS:")
|
||||
(each [l k] (sort-by (fn [pair] (get pair 1)) crashes)
|
||||
(printf " [%s] :: %s" k l)))
|
||||
(printf " [%s] :: %s" k l))
|
||||
(printf "\nKNOWN-HIT LABELS:")
|
||||
(each l (sort known-hit) (printf " %s" l)))
|
||||
(when (> (length diverged) 0)
|
||||
(printf "\nNEW divergences (ran, wrong value) — gate FAILS:")
|
||||
(each [l m] (slice diverged 0 (min 40 (length diverged)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue