Scheme中的继承类

Question

现在我研究一下Scheme的OOP部分.我可以在Scheme中定义类,如下所示:

(define (create-queue)
  (let ((mpty #t) 
        (the-list '()))

    (define (enque value)
      (set! the-list (append the-list (list value)))
      (set! mpty #f)
      the-list)

    (define (deque)
      (set! the-list (cdr the-list))
      (if (= (length the-list) 0) 
      (set! mpty #t))
      the-list)

    (define (isEmpty)
      mpty)

    (define (ptl)
      the-list)

    (define (dispatch method)
      (cond ((eq? method 'enque) enque)
        ((eq? method 'deque) deque)
        ((eq? method 'isEmpty) isEmpty)
        ((eq? method 'print) ptl)))

    dispatch))

(来自css.freetonik.com的例子)

我可以在Scheme中实现类继承吗？

Answer 1

好吧,我不会称之为班级,但那只是我.这只是封闭和原始计划.

Scheme本身没有对象系统.但是,Scheme能够实现类系统.

如果您想使用oop系统,可以尝试使用Scheme编写的几个.

这是一个列出几个的链接,肯定有其他的.