Frames implementation
Here are two possible constructors for frames:
(define (make-frame-list origin edge1 edge2)
(list origin edge1 edge2))
(define (make-frame-cons origin edge1 edge2)
(cons origin (cons edge1 edge2)))
For each constructor supply the appropriate selectors to produce an implementation for frames.