interfaces.scm

;;; -*- Mode: Scheme; scheme48-package: (config) -*-

(define-interface soosy-macros/interface
  (export (define-class   :syntax)
          (define-method  :syntax)
          (with-instance-variables :syntax)
          (==>            :syntax)
          (usual==>       :syntax)
          ))

(define-interface soosy-objects/interface
  (export make-class make-object class object
          object-class object-variables object-methods object-method
          object-variable set-object-variable!
          send send-usual
          class? object? object-of-class? base-class? subclass?
          class-name class-superclass class-subclasses class-methods
          class-method-define class-variables))

(define-interface soosy-helpers/interface
  (compound-interface
   soosy-objects/interface
   (export *all-classes*
           add-class!
           false? name->class
           with-instance-variables*)))

(define-interface soosy/interface
  (compound-interface soosy-macros/interface
                      soosy-objects/interface))