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

;; 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

#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

(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

(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

(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 (test 1)
  (import (scheme base))
  
  (define (hoge)
    (list 'hoge))

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

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

(use srfi-1)

(define acgt '(#\a #\c #\g #\t))

(define (create n)
  (map list->string
       (let loop ((n n))
         (if (zero? n)
             (list '())
             (append-map

stibear

(define-library (eros)
  (import (scheme base)
          (scheme write)
          (srfi 1)
          (srfi 8)
          (picrin macro)
          (picrin attribute)
          (picrin dictionary))

  (define-record-type class