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

fix too-strict bytecode check

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-23 04:30:41 -07:00
parent 5433d2302a
commit 28a47f245e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/marshal.c
View File

@ -1501,7 +1501,7 @@ static Scheme_Object *read_module(Scheme_Object *obj)
cnt = SCHEME_INT_VAL(SCHEME_CAR(obj)); cnt = SCHEME_INT_VAL(SCHEME_CAR(obj));
obj = SCHEME_CDR(obj); obj = SCHEME_CDR(obj);
if (cnt < 1) return_NULL(); if (cnt < 0) return_NULL();
while (cnt--) { while (cnt--) {
Scheme_Object *phase; Scheme_Object *phase;