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

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

@@ -94,12 +94,12 @@ setlocal nowinfixwidth
 setlocal wrap
 setlocal wrapmargin=0
 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
 exe s:l
 normal! zt
-678
-normal! 011l
+3
+normal! 0
 let &so = s:so_save | let &siso = s:siso_save
 doautoall SessionLoadPost
 " vim: set ft=vim :

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

@@ -94,12 +94,12 @@ setlocal nowinfixwidth
 setlocal wrap
 setlocal wrapmargin=0
 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
 exe s:l
 normal! zt
-120
-normal! 0
+28
+normal! 034l
 let &so = s:so_save | let &siso = s:siso_save
 doautoall SessionLoadPost
 " vim: set ft=vim :

lib/message-case.ss

@@ -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 ...]))]))
-