[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug in apply-generic (goops 0.9.0)
From: |
Lars J. Aas |
Subject: |
bug in apply-generic (goops 0.9.0) |
Date: |
Wed, 15 Nov 2000 17:50:29 +0100 |
User-agent: |
Mutt/1.2.5i |
What is this all about?
[SCRIPT]
#! /bin/sh
exec guile -s $0 $@
!#
(use-modules
(oop goops)
(ice-9 format))
(define (output . args)
(if (= 1 (length args))
(display (car args))
(display (apply format args))))
(define-method generic-method ((arg1 <integer>) (arg2 <string>) . rest)
(output "generic-method arguments:\n")
(output " arg 1: ~a\n" arg1)
(output " arg 2: ~a\n" arg2)
(output " rest : ~a\n" rest))
(apply-generic generic-method (list 5 "hello"))
[RESULT]
generic-method arguments:
arg 1: #<procedure new-args>
arg 2: 5
rest : ("hello")
Lars J
- bug in apply-generic (goops 0.9.0),
Lars J. Aas <=