From 2b1d8a3d01b8b5731c1af024c5c8ca7c5182ba36 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 1 Feb 2002 10:25:50 +0000
Subject: [PATCH] Let s48-do-gc return 0 so the PreScheme compiler will emit
 the correct signature of the function.

---
 scheme/vm/gc.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/vm/gc.scm b/scheme/vm/gc.scm
index 3ef757f..a2b4d1d 100644
--- a/scheme/vm/gc.scm
+++ b/scheme/vm/gc.scm
@@ -105,7 +105,9 @@
 	     (error "GC error: ran out of space in new heap"))
 	    ((address< end (heap-pointer))
 	     (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)
   (let ((start (address-after-header stob))