chickadee » sicp » connect

connect connector new-constraintprocedure

Connects a connector to a new constraint.

connector
The connector to connect
new-constraint
The constraint to add
(define (connect connector new-constraint)
  ((connector 'connect) new-constraint))