rose-ash

Files

giles 653be79c8d Step 7c complete: protocols (define-protocol, implement, satisfies?)

Trait-like dispatch system for record types:

  (define-record-type <point>
    (make-point x y) point? (x point-x) (y point-y))

  (define-protocol Displayable (show self))

  (implement Displayable <point>
    (show self (str (point-x self) "," (point-y self))))

  (show (make-point 3 4))              ;; => "3,4"
  (satisfies? "Displayable" (make-point 1 2))  ;; => true
  (satisfies? "Displayable" 42)        ;; => false

Implementation:
- *protocol-registry* global dict stores protocol specs + implementations
- define-protocol creates dispatch functions via eval-expr (dynamic lambdas)
- implement registers method lambdas keyed by record type name
- Dispatch: (type-of self) → lookup in protocol impls → call method
- satisfies? checks if a record type has implementations for a protocol

2645 tests pass (+1 from protocol self-test).

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

2026-04-04 15:29:35 +00:00

tests

Recompile all 26 .sxbc with define-library wrappers + fix eval/JIT

2026-04-04 00:08:00 +00:00

canonical.sx

Step 5 piece 6: migrate 23 .sx files to define-library/import

2026-04-03 21:48:54 +00:00

eval-rules.sx

Add eval-rules.sx and sx_explain tool

2026-03-26 14:26:31 +00:00

evaluator.sx

Step 7c complete: protocols (define-protocol, implement, satisfies?)