(define-library (macduffie alsos) (import (scheme base) (scheme case-lambda)) (export define-operation define-predicate send object object-with-ancestors operate-as protocol simplify-object) (include "alsos.body.scm"))