bug in apply-generic (goops 0.9.0)

[Lars J. Aas]

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