ktakashi

#!r6rs
(library (port-pipe)
    (export call-with-port-pipe)
    (import (rnrs) (rnrs mutable-pairs)
	    (srfi :18))

  (define (make-queue)
    (cons '() '()))

  (define (queue-empty? queue)

ktakashi

#!r6rs
(import (rnrs) (srfi :39))

(define *sushi* (make-parameter #f))

(define (call-with-current-🍣 proc)
  (proc (*sushi*)))

(define (yum? sushi)
  (eq? 'toro sushi))

ktakashi

(import (except (rnrs) case-lambda))

(define-syntax count-args
  (syntax-rules ()
    ((count-args n "count" e e* ...)
     (count-args (+ n 1) "count" e* ...))
    ((count-args n "count") n)
    ;; entry point
    ((_ e* ...)
     (count-args 0 "count" e* ...))))

ktakashi

(import (scheme base))

(define-syntax improper-macro
  (syntax-rules ()
    ((_ a b . rest) (list a b rest))
    ((_ . rest) 'error)))

(improper-macro 1 2 . 3)

ktakashi

(import (rnrs) 
	(ypsilon socket)
	(ypsilon concurrent))

(define echo-server-socket (make-server-socket "5000"))

(define (server-run)
  (let loop ()
    (let ((addr (socket-accept echo-server-socket)))
      (call-with-socket addr

ktakashi

(*TOP* (html (head (title) (title "testcase"))
             (body (a (@ (href "invalid-url")) "リンクタイトル")
                   (p (@ (align "left"))
                      (ul (@ (compact) (style "aa"))))
                   (p "クソッタレ！ "
                      (*COMMENT* " comment <comment> ")
                      (i " italic " (b " bold " (tt " ened ")))
                      "まだ < ボールドだよ "))
             (p " まだまだ続くんじゃ...")))

ktakashi

#!r6rs
(import (rnrs))

(define r '())
(define (make-custom)
  (define (write! bv start count) 
    (display (bytevector-u8-ref bv start)) (newline)
    (set! r (cons (bytevector-u8-ref bv start) r))
    1)
  (define (close) #t)

ktakashi

(import (scheme base))

(with-exception-handler
 (lambda (e)
   (with-exception-handler
    (lambda (e) (error "ok"))
    (lambda () (error "dummy"))))
 (lambda () (error "dummy1")))

ktakashi

% make -j 8
if [ . != "." ]; then ./wirebuildlibs "." "ln -s"; fi
for d in gc src lib ext doc; do (cd $d; make all) || exit 1; done
make[1]: Entering directory '/home/t.kato/work/gauche-head/gc'
make[2]: Entering directory '/home/t.kato/work/gauche-head/gc'
depbase=`echo allchblk.lo | sed 's|[^/]*$|.deps/&|;s|\.lo$||'`;\
/bin/sh ./libtool --tag=CC   --mode=compile gcc -DHAVE_CONFIG_H   -I./include -I./include -I./libatomic_ops/src -I./libatomic_ops/src  -fexceptions -Wall -Wextra -g -O2 -fno-strict-aliasing -DDONT_ADD_BYTE_AT_END -MT allchblk.lo -MD -MP -MF $depbase.Tpo -c -o allchblk.lo allchblk.c &&\
mv -f $depbase.Tpo $depbase.Plo
depbase=`echo alloc.lo | sed 's|[^/]*$|.deps/&|;s|\.lo$||'`;\
/bin/sh ./libtool --tag=CC   --mode=compile gcc -DHAVE_CONFIG_H   -I./include -I./include -I./libatomic_ops/src -I./libatomic_ops/src  -fexceptions -Wall -Wextra -g -O2 -fno-strict-aliasing -DDONT_ADD_BYTE_AT_END -MT alloc.lo -MD -MP -MF $depbase.Tpo -c -o alloc.lo alloc.c &&\

ktakashi

(import (except (rnrs) remove)
	(only (srfi :1) last-pair))

;; Tiny CLOS copyright

; **********************************************************************
; Copyright (c) 1992 Xerox Corporation.  
; All Rights Reserved.  
;
; Use, reproduction, and preparation of derivative works are permitted.