bis83

$ ./a.exe

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.
Assertion failed!

Program: C:\msys64\home\bis\gltest\a.exe
File: ../src/libANGLE/ContextState.h, Line 153

Expression: mSavedArgsType->hasDynamicType(T::TypeInfo)

bis83

docker run --rm -it -v /path/to/local-github-pages-ropository:/srv/jeykll -p 127.0.0.1:4000:4000 jekyll/jekll:pages

bis83

MSYS2 Setup

Table of Contents

• MSYS2 インストール
• Ricty Diminished インストール
• Chicken Scheme インストール
• その他ライブラリ インストール

bis83

live_loop :hoge, seed: 42 do
  use_synth :piano
  with_fx :reverb, room: 1 do
    4.times do
      sleep 8
      play_pattern_timed chord(scale(:c3, :hindu).reverse.reflect.tick, :a).shuffle, 2, release: 4, amp: rrand(0.4, 0.8)
    end
  end
  stop
end

bis83

Raspberry Pi 3 買いました

購入経路

色々ネットで見ていたのですが, 実物が見れないとイマイチ感覚がわからなかったので,
日本橋にあるシリコンハウスさんまで買い物に行きました.

シリコンハウス

bis83

Schemeの数について

個人用のSchemeの数に関するまとめ.

参考文献

• R5RS(jp)
• R6RS
• R7RS(jp)

bis83

(use srfi-69)
(define h (make-hash-table eq? hash-by-identity))
(define a (cons 'a 'b))
(define b (cons 'a 'b))

(hash-table-set! h a 10)
(hahs-table-set! h b 20)

(hash-table-ref h a)
; ==> 10

bis83

(use srfi-13 ports)
(define (s->json s)
  (cond
    ((and (pair? s) (string? (car s)))
      (sprintf "~a:~a"
        (s->json (car s))
        (s->json (cdr s))))
    ((pair? s)
      (sprintf "{~a}"
        (string-join (map s->json s) ",")))

bis83

:set nocompatible
:set hlsearch
:set smartindent
:set autoindent
:set expandtab
:set smarttab
:set tabstop=2
:set shiftwidth=2
:set number
:set ruler

bis83

(define-syntax pandoric-let
  (syntax-rules ()
     ((_ ((var val) ...) body ... retval)
       (let ((this #f) (var val) ...)
         (set! this retval)
         body ...
         (lambda args
           (case (car args)
             ((__pandoric-set)
               (case (cadr args)