Show
Ignore:
Timestamp:
10/25/08 16:30:16 (6 years ago)
Author:
mokehehe
Message:

文字列ストリーム
エラーメッセージ出力
format 風出力(仮)
ファイル読み込み (load)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/c/misc/mlisp/src/sexp/ssym.c

    r22075 r22104  
    4646} 
    4747 
    48 static void sym_print(SExp s, SExp strm) { 
     48static void sym_print(SExp s, SExp strm, int readable) { 
    4949        Symbol* p = &s.ptr->sym; 
    50         write(strm, p->str); 
     50        write(p->str, strm); 
    5151} 
    5252 
     
    120120        } else { 
    121121                SExp lastpair = last(g_env); 
    122                 rplaca(lastpair, cons(cons(sym, val), car(lastpair))); 
     122                rplaca(lastpair, add_bind(car(lastpair), sym, val)); 
    123123        } 
    124124} 
     
    130130                return cdr(s); 
    131131        } else { 
    132                 return nil; 
     132                return sUNDEF; 
    133133        } 
    134134}