scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Let s48-do-gc return 0 so the PreScheme compiler will emit the correct 

signature of the function.
This commit is contained in:
mainzelm 2002-02-01 10:25:50 +00:00
parent 07f796459e
commit 2b1d8a3d01
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/vm/gc.scm
View File

@ -105,7 +105,9 @@
(error "GC error: ran out of space in new heap")) (error "GC error: ran out of space in new heap"))
((address< end (heap-pointer)) ((address< end (heap-pointer))
(loop end))))) (loop end)))))
(clean-weak-pointers)) (clean-weak-pointers)
0);; for the PreScheme compiler which otherwise will emit return statements
;; but declare the function to have return type void
(define (s48-trace-stob-contents! stob) (define (s48-trace-stob-contents! stob)
(let ((start (address-after-header stob)) (let ((start (address-after-header stob))