feat: complete atom implementation, new macros, predicates, and test coverage

## Runtime (src/jolt/core.janet, +637/-99)

### Atom system (complete)
- core-atom: :validator and :meta options, watches table, atom-validate/atom-notify-watches helpers
- New functions: swap-vals!, reset-vals!, compare-and-set!, set-validator!, get-validator, add-watch, remove-watch
- Validator: blocks invalid reset!/swap!; watches: notification with old/new values; metadata support
- All 7 functions registered in core-bindings

### New predicates
- integer?, boolean?, list? — all registered in core-bindings

### New math
- abs, rand, rand-int — registered in core-bindings

### Control flow macros (7 new)
- cond, case (with one-of-many list support), condp, dotimes, while, if-not, when-first
- Registered as macros: cond, case, for, dotimes, while, condp, if-not, when-first

### Threading macros (7)
- -> (thread-first), ->> (thread-last), some->, some->>, cond->, cond->>, as->
- Renamed to core-thread-first/core-thread-last to avoid collision with comparison operators

### for comprehension
- Full Clojure for macro: :when, :let modifiers, nested bindings
- Uses map/mapcat expansion, correct last-group optimization

### Sequence operations (15 new)
- last, butlast, second, ffirst, fnext, nfirst, nnext, nthnext, nthrest
- drop-last, take-nth, map-indexed, keep, keep-indexed, reductions

### Nil-safety fixes
- core-reverse, core-sort, core-sort-by, core-distinct now handle nil input

## Tests (7 new files, 361 assertions across all tests)

### Ported from Clojure test suite (4 files)
- clojure-logic-test.janet: 82 assertions (if/and/or/not/some?/nil-punning)
- clojure-control-test.janet: 56 assertions (do/when/if-let/cond/dotimes/while/loop/case)
- clojure-macros-test.janet: 21 assertions (->/->>/some->/some->>/cond->/cond->>/as->)
- clojure-for-test.janet: 4 assertions (:when/:let/nested for)

### Systematic coverage
- clojure-atom-test.janet: 31 assertions (creation/reset!/swap!/swap-vals!/reset-vals!/CAS/validator/watches/meta)
- systematic-coverage.janet: 120+ assertions (predicates/math/comparison/logic/collections/seq-ops/destructuring)
- logic-test.janet: earlier ported logic tests

### Existing tests updated
- lazy-test.janet, phase7-test.janet: updated for nil-safe core functions

## Result
47 test files, all passing. 19 new functions/macros implemented.
Clojure atom semantics complete: validators, watches, metadata, CAS, swap-vals!/reset-vals!.
This commit is contained in:
Yogthos 2026-06-04 12:01:58 -04:00
parent 82bce033a5
commit e2e7fa1447
12 changed files with 1462 additions and 98 deletions

View file

@ -42,14 +42,15 @@
(assert (= true (ct-eval ctx "(= [1 2 3] (distinct (lazy-seq [1 2 1 3 2])))")) "distinct lazy"))
(print " ok")
(print "\n8: fib-seq via lazy-cat (self-referencing lazy-seq)...")
(print "8: fib-seq (deferred — eager core-map needs lazy upgrade)...")
(let [ctx (init)]
(print " NOTE: self-referencing lazy-seqs currently trigger eager realization, causing infinite recursion.")
(print " This is a known limitation — our lazy-seq model forces the entire thunk at once.")
(print " Skipping fib-seq integration test for now.")
(print " When fixed, the test should assert:")
(print " (def fib-seq (lazy-cat [0 1] (map + (rest fib-seq) fib-seq)))")
(print " (= [0 1 1 2 3 5 8 13 21 34] (take 10 fib-seq))"))
(print " ok (deferred)")
(print " The cell-by-cell lazy-seq architecture is correct. concat, take,")
(print " drop, nth, first, rest all work with self-referencing patterns.")
(print " core-map still eagerly realizes all lazy-seq arguments, which")
(print " loops on infinite sequences. Making core-map return a lazy")
(print " result would complete the self-referencing lazy-seq story.")
(print " When fixed: (def fib-seq (lazy-cat [0 1] (map + (rest fib-seq) fib-seq)))")
(print " → (take 10 fib-seq) = [0 1 1 2 3 5 8 13 21 34]"))
(print " ok (deferred — core-map needs lazy upgrade)")
(print "\nAll LazySeq tests passed!")