stibear

Program received signal SIGABRT, Aborted.
0xf77d8b50 in __kernel_vsyscall ()
(gdb) bt
#0  0xf77d8b50 in __kernel_vsyscall ()
#1  0xf74cb2b7 in raise () from /usr/lib32/libc.so.6
#2  0xf74cc90a in abort () from /usr/lib32/libc.so.6
#3  0xf750b46e in __libc_message () from /usr/lib32/libc.so.6
#4  0xf7511577 in malloc_printerr () from /usr/lib32/libc.so.6
#5  0xf7511d5d in _int_free () from /usr/lib32/libc.so.6
#6  0xf7552e1e in execle () from /usr/lib32/libc.so.6

stibear

(define-library (test 1)
  (import (scheme base))
  
  (define (hoge)
    (list 'hoge))

  (define-syntax fuga
    (syntax-rules ()
      ((_)
       (hoge))))

stibear

(define-library (srfi 17)

  (define-library (rename set!)
    (import (scheme base))
    (export (rename set! set!%)
	    define-syntax
	    syntax-rules
	    lambda
	    if
	    quote

stibear

(define-library (srfi 17)
  (import (scheme base)
	  (srfi 1))

  (define-library (rename set!)
    (import (scheme base))
    (define-syntax set!%
      (syntax-rules ()
	((_ v1 v2)
	 (set! v1 v2))))

stibear

(import (scheme lazy)
	(picrin macro))

(define-syntax delay/cc
  (syntax-rules ()
    ((delay/cc expr)
     (lambda (k) (k expr)))))

(define-syntax force/cc
  (syntax-rules ()

stibear

#lang racket
(require srfi/1)
(require srfi/9)
(require srfi/13)

(define (vowel? chr)
  (let ((chr-int (char->integer chr)))
    (and (<= 12354 chr-int 12362)
         (even? chr-int))))

stibear

;; current version
> (include "../piclib/srfi/41.scm")
=> #f
> (import (srfi 41))                                                             
=> #f
> (define strm123                                                                
*   (stream-cons 1 (stream-cons 2 (stream-cons 3 stream-null))))
=> #f
> strm123                                                                        
=> #(#0=(record-marker) #2=#(#0# #1=#(#0# #1# record-type% (name field-tags)) str

stibear

[  3%] Building C object CMakeFiles/picrin.dir/src/y.tab.c.o
parse.y: 関数 ‘parser_control_new’ 内:
parse.y:33:4: エラー: ‘struct parser_control’ は ‘incomp’ という名前のメンバを持っていません
parse.y:34:4: エラー: ‘struct parser_control’ は ‘yynerrs’ という名前のメンバを持っていません
parse.y:35:4: エラー: ‘struct parser_control’ は ‘value’ という名前のメンバを持っていません
parse.y:36:4: エラー: ‘struct parser_control’ は ‘yy_arena’ という名前のメンバを持っていません
parse.y:36:3: 警告: 関数 ‘pic_vec_new’ の暗黙的な宣言です [-Wimplicit-function-declaration]
parse.y:37:4: エラー: ‘struct parser_control’ は ‘yy_arena_idx’ という名前のメンバを持っていません
parse.y:38:25: エラー: ‘struct parser_control’ は ‘yyscanner’ という名前のメンバを持っていません
parse.y: 関数 ‘parser_control_destroy’ 内:

stibear

(define-syntax cut
  (syntax-rules ()
    ((cut . slots-or-exprs)
     (srfi-26-internal-cut () () . slots-or-exprs))))

(define-syntax cut-sc
  (sc-macro-transformer
   (lambda (form env)
     `(cut%-sc () () ,@(map (lambda (ex)
			      (make-syntactic-closure env '() ex))

stibear

(define-syntax cut%
  (sc-macro-transformer
   (lambda (form env)
     (letrec ((map-msc
	       (lambda (x)
		 (map (lambda (ex)
			(make-syntactic-closure env '(<> <...>) ex))
		      x))))
       (let ((slots (cadr form))
	     (combi (caddr form))