minor bug in Text.stklos

From: Brian Denheyer <briand_at_deldotd.com>
Date: Fri, 16 Apr 1999 18:38:14 -0700 (PDT)

test-see, in Text.stklos :

  (define-method text-see ((self <Text>) index)
    (apply (slot-ref self 'Id) 'see index))

should be :


  (define-method text-see ((self <Text>) . index)
    (apply (slot-ref self 'Id) 'see index))


or you get an error :
  apply: bad parameter list: (see . end)

Brian
Received on Sat Apr 17 1999 - 03:39:13 CEST