Lisp Scheme Part21 - 暇つぶし2ch

Lisp Scheme Part21 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

350:デフォルトの名無しさん
 08/04/20 22:32:39 
ﾜﾛﾀ 
(define 'a 
(define 'line 
ここが間違ってる。それぞれ 
(define a 
(define line 
が意図するものだと思う。 
 
(define 'a 
は 
(define quote (lambda(a)～ 
と解釈される。

351:デフォルトの名無しさん
 08/04/20 22:38:57 
>>350 
多分 *scheme* バッファの中で一度 (define a なんとか) を 
実行してたから、a が定義されていたんですね。 
*scheme* バッファを再起動してたら両方とも動かなくなって 
気付いたと思うのですが。 
 
ありがとうございました。

352:デフォルトの名無しさん
 08/04/20 22:46:14 
こういう記述間違いは処理系作者からは斜め上で予測不可能なんだよな。 
quoteを再定義したいなんて思わんし、エラーにすべきか。

353:デフォルトの名無しさん
 08/04/20 23:51:39 
Gauche scheme interpreter, version 0.8.3 [utf-8,pthreads] 
という環境で、 
#!/usr/bin/gosh 
(define (main args) 
　 (while (not (eof-object? (set! line (read-line)))) 
　        (print line)) 
　 0) 
というスクリプトを書いて euc-jp なテキストファイルを読み込ませたら 
~$ gosh test.scm <text.txt 
*** READ-ERROR: Read error at "(stdin)":line 2: read-line: encountered illegal byte sequence: #*"\xc1\xcf\xc0\xa4\xb5\xad\t1\t1\t" 
Stack Trace: 
_______________________________________ 
　 0  (read-line) 
　       At line 3 of "./test.scm" 
　 1  (letrec ((do (lambda () (if (not (not (eof-object? (set! line (rea ... 
　       [unknown location] 
というエラーになりました。 
euc-jpなままで読んでeuc-jpのまま書き出すにはどうすればいいのでしょうか？

次ページ