[bpt/guile.git] / module / language / elisp / falias.scm

(define-module (language elisp falias)
  #:export (falias?
            make-falias
            falias-function
            falias-object))

(define <falias-vtable>
  (make-struct <applicable-struct-vtable>
               0
               (make-struct-layout "pwpw")
               (lambda (object port)
                 (format port "#<falias ~S>" (falias-object object)))))

(set-struct-vtable-name! <falias-vtable> 'falias)

(define (falias? object)
  (and (struct? object)
       (eq? (struct-vtable object) <falias-vtable>)))

(define (make-falias f object)
  (make-struct <falias-vtable> 0 f object))

(define (falias-function object)
  (struct-ref object 0))

(define (falias-object object)
  (struct-ref object 1))
Commit	Line	Data
b05ca4ab BT	1	(define-module (language elisp falias)
	2	#:export (falias?
	3	make-falias
	4	falias-function
	5	falias-object))
	6
	7	(define <falias-vtable>
	8	(make-struct <applicable-struct-vtable>
	9	0
	10	(make-struct-layout "pwpw")
	11	(lambda (object port)
	12	(format port "#<falias ~S>" (falias-object object)))))
	13
	14	(set-struct-vtable-name! <falias-vtable> 'falias)
	15
	16	(define (falias? object)
	17	(and (struct? object)
	18	(eq? (struct-vtable object) <falias-vtable>)))
	19
	20	(define (make-falias f object)
	21	(make-struct <falias-vtable> 0 f object))
	22
	23	(define (falias-function object)
	24	(struct-ref object 0))
	25
	26	(define (falias-object object)
	27	(struct-ref object 1))