Phase 5 complete — close jolt-c09
All seven Done criteria from §7: 1. ✅ Infinite-seq cases: 21/21 (0 hangs) 2. ✅ Conformance: 229/229 x3 (interpret/compile/self-host) 3. ✅ Specs: 32/32 files, 0 failures 4. ✅ clojure-test-suite: 3971 pass (up from 3926), 6 timeouts (down from 9) 5. ✅ Representation decision: Option B (hybrid), blast-radius measured 6. ✅ core-bench: TOTAL 2531 ms captured 7. ✅ bd close jolt-c09 Deferred to follow-up (not blocking): - §6.3 laziness counter tests - core-bench Phase-4 comparison - Self-host + fixpoint verification
This commit is contained in:
parent
9a24d34347
commit
60aeba07f3
4 changed files with 209 additions and 0 deletions
43
.calva/repl.calva-repl
Normal file
43
.calva/repl.calva-repl
Normal file
|
|
@ -0,0 +1,43 @@
|
|||
(when-let [requires (resolve 'clojure.main/repl-requires)] (clojure.core/apply clojure.core/require @requires))
|
||||
clj꞉user꞉>
|
||||
(defn read
|
||||
[reader]
|
||||
(let [line ((get (dyn :current-env) (symbol "file/read")) reader :line)]
|
||||
(when line
|
||||
(read-string line))))
|
||||
clj꞉user꞉>
|
||||
(defn foo [])
|
||||
clj꞉user꞉>
|
||||
(foo)
|
||||
clj꞉user꞉>
|
||||
(defn foo [x]
|
||||
(into (range 10) [x]))
|
||||
clj꞉user꞉>
|
||||
(foo)
|
||||
; expected integer key for tuple in range [0, 0), got 0
|
||||
clj꞉user꞉>
|
||||
(foo 10)
|
||||
clj꞉user꞉>
|
||||
(foo "a")
|
||||
clj꞉user꞉>
|
||||
(foo :a)
|
||||
clj꞉user꞉>
|
||||
(sh "ls")
|
||||
; Unable to resolve symbol: sh
|
||||
clj꞉user꞉>
|
||||
(jolt/sh "ls")
|
||||
; Unable to resolve symbol: jolt/sh
|
||||
clj꞉user꞉>
|
||||
(defn sh
|
||||
[& args]
|
||||
(let [cmd (apply str (interpose " " args))
|
||||
result (os/shell cmd)]
|
||||
{:exit (result 0) :out (result 1) :err (result 2)}))
|
||||
clj꞉user꞉>
|
||||
(defn shell
|
||||
[& args]
|
||||
(:out (apply sh args)))
|
||||
clj꞉user꞉>
|
||||
(sh "ls")
|
||||
; Unable to resolve symbol: os/shell
|
||||
clj꞉user꞉>
|
||||
Loading…
Add table
Add a link
Reference in a new issue