This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git src/load.c src/load.c | |
index 39a08ba..41fdfa2 100644 | |
--- src/load.c | |
+++ src/load.c | |
@@ -202,8 +202,11 @@ static ScmObj load_after(ScmObj *args, int nargs, void *data) | |
/* C-continuation of the loading */ | |
static ScmObj load_cc(ScmObj result, void **data) | |
{ | |
+ ScmObj read_proc = SCM_UNDEFINED; | |
+ SCM_BIND_PROC(read_proc, "read", Scm_GaucheInternalModule()); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git test/list.scm test/list.scm | |
index b92343c..f0ff35e 100644 | |
--- test/list.scm | |
+++ test/list.scm | |
@@ -84,8 +84,8 @@ | |
(test* "count" 3 (count even? '(3 1 4 1 5 9 2 6 5))) | |
(test* "count" 3 | |
(count < '(1 2 4 8) '(2 4 6 8 10 12 14 16))) | |
-(test* "count" 2 | |
- (count < '(3 1 4 1) '#0=(1 10 . #0#))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(define c 3) | |
(define (add a) | |
(print "before") | |
(print (string-split "hoge huga" #\space)) | |
(let1 b 5 | |
(print (+ (mul a b) c))) | |
(print "after")) | |
(define (mul a b) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(define panel #(5 3 0 0 7 0 0 0 0 | |
6 0 0 1 9 5 0 0 0 | |
0 9 8 0 0 0 0 6 0 | |
8 0 0 0 6 0 0 0 3 | |
4 0 0 8 0 3 0 0 1 | |
7 0 0 0 2 0 0 0 6 | |
0 6 0 0 0 0 2 8 0 | |
0 0 0 4 1 9 0 0 5 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import _root_.scala.util.Random | |
def lifeGameIterator(stride:Int) = new Iterator[Array[Array[Boolean]]] { | |
private def pathFilter(num : Int) = num | |
private def prevFilter(num : Int) = if(num == 0) stride - 1 else num - 1 | |
private def nextFilter(num : Int) = if(num == stride - 1) 0 else num + 1 | |
private def cellArriveGetter(xFilter:(Int)=>Int, yFilter: (Int)=>Int) | |
(cells:Array[Array[Boolean]], x:Int, y:Int) = cells(yFilter(y))(xFilter(x)) | |
private val _isArriveGetter = List( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="utf-8"?> | |
<TabHost xmlns:android="http://schemas.android.com/apk/res/android" | |
android:id="@android:id/tabhost" | |
android:layout_width="fill_parent" | |
android:layout_height="fill_parent" | |
> | |
<RelativeLayout | |
android:layout_width="fill_parent" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
"for gosh_complete | |
"別バッファからinfo画面を操作するためのキーマップ | |
nmap <C-K> <Plug>(gosh_info_row_up) | |
nmap <C-J> <Plug>(gosh_info_row_down) | |
nmap <C-C> <Plug>(gosh_info_close) | |
"現在バッファと関連するシンボルをuniteで検索する | |
nmap gi <Plug>(gosh_info_start_search) | |
"カーソル位置のテキストを初期入力として、現在バッファと関連するシンボルを検索する | |
nmap gk <Plug>(gosh_info_start_search_with_cur_keyword) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(use gauche.generator) | |
(use gauche.lazy) | |
(define-syntax chain | |
(syntax-rules () | |
((_ ls proc)(proc ls)) | |
((_ ls proc x ...) | |
(begin (chain ls proc) | |
(chain ls x ...))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(use gauche.parseopt) | |
(use gauche.uvector) | |
(use gauche.net) | |
(define (usage) | |
(print "Usage: gosh wol.scm [-m|--mac=<mac-addr>]") | |
(print "Example: gosh wol.scm -m=1a-2b-3c-4d-5e-6f") | |
) | |
(define (main args) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function g:window_resize_mode() | |
echo 'window resize mode' | |
while 1 | |
let ch = getchar() | |
if ch == 104 " 104 = h | |
execute '2wincmd <' | |
elseif ch == 106 " 106 = j | |
execute "2wincmd -" | |
elseif ch == 107 " 107 = k |
OlderNewer