Wrong method definition

From: Jong-Won Choi <jwchoi_at_gsenl5.gsen.goldstar.co.kr>
Date: Wed Jan 3 17:36:26 1996

Dear STklos distributors,

I found typo error :) in "text-read" method definition of
$STK_LIBRARY/Text.stk.


It was:

(define-method text-read ((self <Text>) filename)
  (slot-set! self 'value (with-input-from-file filename
                           (lambda()
                             (let ((res ""))
                               (do ((l (read-line) (read-line)))
                                   ((eof-object? l) (string-append res "\n"))
                                 (set! res (if (string=? res "")
                                               l
                                               (append res "\n" l)))))))))
                                                   |
must be string-append ---------------------------+



Happy New Year!

Jong-Won Choi

=======================++=====================================
 R&D DA DEVELOPMENT ||
     DM TEAM ||
 LG Semicon Co., Ltd. || Direct: +82 (2)526-4052
 16, Woomyeon-dong, || Fax: +82 (2)526-4136
 Seocho-gu, Seoul, || email: jwchoi_at_gsen.goldstar.co.kr
 137-140, Korea. ||
=======================++=====================================
Received on Wed Jan 03 1996 - 17:36:26 CET