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

clean up some debugging leftovers

Browse Source
This commit is contained in:
Matthew Flatt 2020-12-22 13:07:15 -07:00
parent a450246ee7
commit d7e9628caf
2 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/ChezScheme/c/scheme.c
View File

@ -344,11 +344,8 @@ static void idiot_checks() {
static ptr boot_call PROTO((ptr tc, ptr p, INT n));
static void check_ap PROTO((ptr tc));
int boot_calls = 0;
/* arguments and ac0 set up */
static ptr boot_call(tc, p, n) ptr tc; ptr p; INT n; {
boot_calls++;
AC1(tc) = p;
CP(tc) = Svoid; /* don't have calling code object */

1
racket/src/cs/c/adjust-compress.rkt
View File

@ -190,7 +190,6 @@
(for ([path (in-list path)])
(define bstr (file->bytes path))
(define bstr2 (adjust-compress bstr))
(printf "~s ~s\n" path (equal? bstr bstr2))
(unless (equal? bstr bstr2)
(call-with-output-file*
path