Modula-3のSLisp

Critical Mass Modula-3のライブラリにSLispというものがある。名前を見るにLispっぽいので使おうと試みる。

ちなみに、m3makefileでimportに書く名前は、 modula3のディレクトリのpkgディレクトリのサブディレクトリの名前だと思う。

MODULE Main;
IMPORT SLisp,Stdio,Rd,Wr,IO;

VAR slisp :SLisp.T;
VAR rd :SLisp.Reader;
VAR wr :SLisp.Writer;

BEGIN
     rd := Stdio.stdin;
     wr := Stdio.stdout;
     slisp := NEW(SLisp.T);
     slisp := slisp.new();
     LOOP
       SLisp.Write(wr ,slisp.eval(SLisp.Read(rd)));
       IO.Put("\n");
     END;

END Main.