KeenS

( (for i in $(seq 10);do echo $i.err >&2; echo $i.out ;done | tee out.log ) 2> error.log > all.log 2>&1                                                     :cwd ~/tmp)
(cat out.log                                                                                                                                                :cwd ~/tmp)
1.out
2.out
3.out
4.out
5.out
6.out
7.out
8.out

KeenS

389641 OP_CREF
387458 OP_LREF
237062 OP_CALL
159738 OP_GREF
141050 OP_TAILCALL
110197 OP_RET
106215 OP_JMPIF
106215 OP_JMP
87641 OP_CONS
84120 OP_PUSHCONST

KeenS

135727 OP_LREF
93063 OP_CREF
81497 OP_CALL
51402 OP_TAILCALL
48619 OP_JMPIF
43564 OP_GREF
41494 OP_LAMBDA
25263 OP_STOP
21779 OP_PUSHFALSE
21752 OP_POP

KeenS

(import (scheme base)
        (scheme write))

(define-syntax foo
  (syntax-rules (hoge)
    ((_ hoge)
     (write "You got"))
    ((_ bar)
     (write 'bar))))

KeenS

if [ . != "." ]; then ./wirebuildlibs "." "ln -s"; fi
for d in gc src lib ext doc; do (cd $d; make all) || exit 1; done
(cd util; make default)
../../src/gosh -ftest ../../ext/xlink -l -g "util"  -b ../.. -s . util--match.so match.sci
(cd gauche; make default)
../../src/gosh -ftest ../../ext/xlink -l -g "gauche"  -b ../.. -s . gauche--collection.so  gauche--sequence.so    gauche--parameter.so   gauche--hook.so collection.sci  sequence.sci    parameter.sci   hook.sci
(cd data; make default)
../../src/gosh -ftest ../../ext/xlink -l -g "data"  -b ../.. -s . data--queue.so queue.sci
(cd srfi; make default)
../../src/gosh -ftest ../../ext/xlink -l -g ""  -b ../.. -s . srfi-1.so   srfi-13.so  srfi-19.so  srfi-43.so srfi-1.sci   srfi-13.sci  srfi-19.sci  srfi-43.sci

KeenS

(import (scheme base)
        (scheme write))

(define-record-type rb-tree
  (%make-rb-tree compare)
  rb-tree?
  (node rb-tree-node set-node!)
  (compare rb-tree-compare set-rb-tree-compare!)
  (size rb-tree-size set-size!))

KeenS

[100%] Built target h2o
[100%] Built target t-00unit-evloop.t
Can't locate Net/EmptyPort.pm in @INC (you may need to install the Net::EmptyPort module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.18 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.18/mach /usr/local/lib/perl5/5.18 /usr/local/lib/perl5/site_perl/5.18 /usr/local/lib/perl5/site_perl/5.18/mach .) at t/Util.pm line 7.
BEGIN failed--compilation aborted at t/Util.pm line 7.
Compilation failed in require at t/00unit.evloop.t line 6.
BEGIN failed--compilation aborted at t/00unit.evloop.t line 6.
t/00unit.evloop.t ...... 
Dubious, test returned 2 (wstat 512, 0x200)
No subtests run 
Can't locate Net/EmptyPort.pm in @INC (you may need to install the Net::EmptyPort module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.18 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.18/mach /usr/local/lib/perl5/5.18 /usr/local/lib/perl5/site_perl/5.18 /usr/local/lib/perl5/site_perl/5.18/mach .) at t/Util.pm line 7.

KeenS

(dolist (file '("packages"
                "specials"
                "util"
                "errors"
                "charset"
                "charmap"
                "chartest"
                "lexer"
                "parser"
                "regex-class"

KeenS

if [ . != "." ]; then ./wirebuildlibs "." "ln -s"; fi
for d in gc src lib ext doc; do (cd $d; make all) || exit 1; done
make[1]: ディレクトリ `/home/kim/compile/Gauche/gc' に入ります
make[2]: ディレクトリ `/home/kim/compile/Gauche/gc' に入ります
make[2]: ディレクトリ `/home/kim/compile/Gauche/gc' から出ます
make[1]: ディレクトリ `/home/kim/compile/Gauche/gc' から出ます
make[1]: ディレクトリ `/home/kim/compile/Gauche/src' に入ります
GAUCHE_LOAD_PATH="" GAUCHE_DYNLOAD_PATH="" /usr/bin/gosh -l./preload -I../src -I../lib geninsn ./vminsn.scm
gosh: "error": Compile Error: Compile Error: Compile Error: Compile Error: literal list contains non-symbol: (:where)
"../lib/gauche/cgen/cise.scm":193:(syntax-rules (:where) ((_ "clauses" ...

KeenS

(let ((n (make-nitro sample-nitro)))
  (set! (license n) "MIT")
  (set! (authors n) '("nyao" "nyan"))
  (set! (version n) "0.0.1")
  (set! (dependencies n) (list '(r7rs . "1.0.0")
                               '(other-nitro) ;version is not required
                               ))
  (set! (summary n) "A sample nitro")
  (set! (description n) "This is a sample nitro ...
...