🚀 go-pugleaf

$B$*$a$G$H$&$4$6$$$^$9(B.
$B:#$5$i$G$9$,(B, scm $B$G(B GUI $B$J$i(B guile $B$r(B
$B;H$($P(B, $B3J9%$$$$(B Tk $B$,;H$($^$9(B.

T> $B%^%7%s$O!"(BSOTEC WinBookPro (J3 DX4/100C) + Linux1.2.13 + XFree3.1.2?
T> $B$G$9!#(B(Linux + XFree$B$*$h$S!"(Bgcc$BEy$O!"Nc$N%?%3(BCD$B$N(Belf$B%P!<%8%g%s$G$9(B)
Linux $B$J$i$P@'Hs$H$b(B dld $B$HAH$_9g$o$;$F$_$F$/$@$5$$(B.
$BJXMx$G$9(B.
$B$"$H(B, dump $B$b=PMh$k$h$&$G$9(B.

T> $B$^$@!"(Bxawedit.scm $B$J$I$G$O!"(B
T>    ERROR: LOAD couldn't find file "/usr/local/lib/scm/posix"
T> $BEy$N%(%i!<$,=P$^$9$,!"$7$P$i$/$O$3$l$GM7$s$G$_$h$&$H;W$$$^$9(B

unix $B$G$D$+$&$J$i(B

posix, ioext, socket, rgx

$B$OJXMx$J$N$G%3%s%Q%$%k$7$F$*$-$^$7$g$&(B. scm $B$KIUB0$7$F$^$9(B.
$B$A$J$_$K(B, $B;d$O(B

./build -h system -D __svr4__ -F dynamic-linking i/o-extensions posix unix \
        socket bignums arrays inexact edit-line regex

$B$H$7$?(B. scm $B$r;H$C$F$^$9(B. -D__svr4__ $B$O4D6-$K$h$j$^$9(B.


T> # atom? $B$O$I$&$d$C$F:n$l$P$$$$$N$+$J(B?

(define (atom? x)
    (not (pair? x)))


scm4e4 $B$G$O%3%s%Q%$%k$5$l$?$b$N$r(B load $B$9$k$H$-$K(B
$B$&$^$/9T$+$J$$$3$H$,$"$j$^$9(B.
Init.scm $BCf$N(B load $B$NDj5A$H(B Link.scm $B$rFI$_9~$`(B
$B%?%$%_%s%0$,JQ(B.

$B;d$O(B ScmInit.scm $B$N$J$+$G(B load $B$r:FDj5A$7$F$7$^$$$^$7$?(B.
--
$B$-$`$i(B