conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

removed message-case from a file and included it in libchezio.ss

This commit is contained in:
Abdulaziz Ghuloum 2006-12-05 14:06:13 -05:00
parent 1c35c6939d
commit c5e1221ace
5 changed files with 737 additions and 749 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/.vimview/~=+Work=+ikarus-scheme=+lib=+libchezio.ss=
View File

@ -94,12 +94,12 @@ setlocal nowinfixwidth
setlocal wrap setlocal wrap
setlocal wrapmargin=0 setlocal wrapmargin=0
silent! normal! zE silent! normal! zE
let s:l = 678 - ((19 * winheight(0) + 17) / 34) let s:l = 3 - ((2 * winheight(0) + 15) / 31)
if s:l < 1 | let s:l = 1 | endif if s:l < 1 | let s:l = 1 | endif
exe s:l exe s:l
normal! zt normal! zt
678 3
normal! 011l normal! 0
let &so = s:so_save | let &siso = s:siso_save let &so = s:so_save | let &siso = s:siso_save
doautoall SessionLoadPost doautoall SessionLoadPost
" vim: set ft=vim : " vim: set ft=vim :

6
lib/.vimview/~=+Work=+ikarus-scheme=+lib=+makefile.ss=
View File

@ -94,12 +94,12 @@ setlocal nowinfixwidth
setlocal wrap setlocal wrap
setlocal wrapmargin=0 setlocal wrapmargin=0
silent! normal! zE silent! normal! zE
let s:l = 120 - ((0 * winheight(0) + 17) / 35) let s:l = 28 - ((15 * winheight(0) + 17) / 34)
if s:l < 1 | let s:l = 1 | endif if s:l < 1 | let s:l = 1 | endif
exe s:l exe s:l
normal! zt normal! zt
120 28
normal! 0 normal! 034l
let &so = s:so_save | let &siso = s:siso_save let &so = s:so_save | let &siso = s:siso_save
doautoall SessionLoadPost doautoall SessionLoadPost
" vim: set ft=vim : " vim: set ft=vim :

BIN
lib/ikarus.boot
View File

Binary file not shown.

1450
lib/libchezio.ss
View File

File diff suppressed because it is too large Load Diff

24
lib/message-case.ss
View File

@ -1,24 +0,0 @@
(define-syntax message-case
(syntax-rules (else)
[(_ msg args
[(msg-name msg-arg* ...) b b* ...] ...
[else else1 else2 ...])
(let ([tmsg msg] [targs args])
(define-syntax match-and-bind
(syntax-rules ()
[(__ y () body)
(if (null? y)
body
(error 'message-case "unmatched ~s" (cons tmsg targs)))]
[(__ y (a a* (... ...)) body)
(if (pair? y)
(let ([a (car y)] [d (cdr y)])
(match-and-bind d (a* (... ...)) body))
(error 'message-case "unmatched ~s" (cons tmsg targs)))]))
(case tmsg
[(msg-name)
(match-and-bind targs (msg-arg* ...) (begin b b* ...))] ...
[else else1 else2 ...]))]))