suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a bunch of improvements to the splash screen (loads less code before the splash appears, got rid of a bunch of dynamic-requires that were not necessary, fixed the lack of special screen on prince kuhio and king kamehameha days, got rid of the flicker in the tools icons)

Browse Source 
svn: r13980

original commit: 283c1819a92df7e6949ece8eebf659aac777583c
This commit is contained in:
Robby Findler 2009-03-06 16:35:04 +00:00
parent 779bdf38e0
commit b60ac8f412
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/inflate.ss
View File

@ -1,5 +1,5 @@
(module inflate mzscheme
#lang scheme/base
(require (for-syntax scheme/base))
(provide inflate
gunzip-through-ports
@ -120,7 +120,7 @@
error in the data. */
|#
(define-struct huft (e b v))
(define-struct huft (e b v) #:mutable)
(define (huft-copy dest src)
(set-huft-e! dest (huft-e src))
@ -591,8 +591,8 @@
(set! t (vector-ref tl (bitwise-and bb ml)))
; (printf "t->e: ~s t->b: ~s\n" (huft-e t) (huft-b t))
(set! e (huft-e t))
(if (> e 16)
(jump-to-next))
(when (> e 16)
(jump-to-next))
(DUMPBITS (huft-b t))
; (printf "e: ~s\n" e)
(if (= e 16) ; /* then it's a literal */
@ -928,4 +928,4 @@
void
(lambda () (do-gunzip in #f name-filter))
(lambda () (close-input-port in))))]))
)