haskell: Phase 10 — Fractional stub: recip + fromRational (+3 tests, 31/31)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
2026-05-07 08:23:04 +00:00
parent ef33e9a43a
commit e27daee4a8
3 changed files with 21 additions and 1 deletions
--- a/lib/haskell/eval.sx
+++ b/lib/haskell/eval.sx
@@ -809,6 +809,11 @@
          env
          "truncate"
          (hk-mk-builtin "truncate" (fn (x) (truncate x)) 1))
+        (dict-set! env "recip" (hk-mk-builtin "recip" (fn (x) (/ 1 x)) 1))
+        (dict-set!
+          env
+          "fromRational"
+          (hk-mk-builtin "fromRational" (fn (x) x) 1))
        (let
          ((--sx-to-hk-- (fn (lst) (if (empty? lst) (list "[]") (list ":" (first lst) (--sx-to-hk-- (rest lst))))))
            (--words--