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

bootfiles and fixup

Browse Source 
original commit: a6c7f8851fd3996726f62f62e151ff76f0216f72
This commit is contained in:
Matthew Flatt 2018-07-25 18:15:09 -06:00
parent 95d3146c16
commit 6e00dab37f
2 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
c/gc.c
View File

@ -557,7 +557,6 @@ static ptr copy(pp, si) ptr pp; seginfo *si; {
} }
} else { } else {
iptr len, n; iptr len, n;
ISPC s;
len = CLOSLEN(pp); len = CLOSLEN(pp);
n = size_closure(len); n = size_closure(len);
#ifdef ENABLE_OBJECT_COUNTS #ifdef ENABLE_OBJECT_COUNTS

8
s/patch.ss
View File

@ -13,14 +13,6 @@
;;; See the License for the specific language governing permissions and ;;; See the License for the specific language governing permissions and
;;; limitations under the License. ;;; limitations under the License.
(define generate-procedure-source-information
(case-lambda
[() #f]
[(v) (void)]))
(define ($make-arity-wrapper-procedure proc mask) proc)
(printf "loading ~s cross compiler~%" (constant machine-type-name)) (printf "loading ~s cross compiler~%" (constant machine-type-name))
; (current-expand (lambda args (apply sc-expand args))) ; (current-expand (lambda args (apply sc-expand args)))