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

chaperones (v4.2.5.3)

Browse Source 
svn: r18650

original commit: 73807aef24
This commit is contained in:
Matthew Flatt 2010-03-28 01:10:33 +00:00
parent e5aee8eedd
commit 9136b6b85d
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/decompile.ss
View File

@ -336,7 +336,7 @@
bitwise-bit-set? char=? bitwise-bit-set? char=?
+ - * / quotient remainder min max bitwise-and bitwise-ior bitwise-xor + - * / quotient remainder min max bitwise-and bitwise-ior bitwise-xor
arithmetic-shift vector-ref string-ref bytes-ref arithmetic-shift vector-ref string-ref bytes-ref
set-mcar! set-mcdr! cons mcons set-mcar! set-mcdr! cons mcons set-box!
list list* vector vector-immutable))] list list* vector vector-immutable))]
[(4) (memq (car a) '(vector-set! string-set! bytes-set! [(4) (memq (car a) '(vector-set! string-set! bytes-set!
list list* vector vector-immutable list list* vector vector-immutable

10
collects/compiler/zo-marshal.ss
View File

@ -247,11 +247,11 @@
(define wcm-type-num 14) (define wcm-type-num 14)
(define quote-syntax-type-num 15) (define quote-syntax-type-num 15)
(define variable-type-num 24) (define variable-type-num 24)
(define top-type-num 87) (define top-type-num 89)
(define case-lambda-sequence-type-num 96) (define case-lambda-sequence-type-num 99)
(define begin0-sequence-type-num 97) (define begin0-sequence-type-num 100)
(define module-type-num 100) (define module-type-num 103)
(define prefix-type-num 102) (define prefix-type-num 105)
(define-syntax define-enum (define-syntax define-enum
(syntax-rules () (syntax-rules ()

8
collects/compiler/zo-parse.ss
View File

@ -314,10 +314,10 @@
[(15) 'quote-syntax-type] [(15) 'quote-syntax-type]
[(24) 'variable-type] [(24) 'variable-type]
[(25) 'module-variable-type] [(25) 'module-variable-type]
[(96) 'case-lambda-sequence-type] [(99) 'case-lambda-sequence-type]
[(97) 'begin0-sequence-type] [(100) 'begin0-sequence-type]
[(100) 'module-type] [(103) 'module-type]
[(102) 'resolve-prefix-type] [(105) 'resolve-prefix-type]
[else (error 'int->type "unknown type: ~e" i)])) [else (error 'int->type "unknown type: ~e" i)]))
(define type-readers (define type-readers