[comp.lang.scheme] HELP!!!

km219092@longs.LANCE.ColoState.EDU (Kevin Jay Marshall) (05/02/91)

Hello,

	I have asked this question before, but I will ask it again if the
situation has changed.  I recieved a copy of scoops.scm for cscheme and
I am presently in the process of trying to make the code execute on MIT
scheme version 7.1.  Being an intermediate programmer I think I am doing
this right, and the answer is not comming out right so I was wondering
if some of you experts out there could give me a hand.  

	First:  Does anyone have a version of scoops.scm that will run on MIT
scheme version 7.0 or 7.1?  If so I think I have wasted ALOT of time,
but it would be worth it.

	Second : okay, here is the problem.

		(define %inherit-method-vars
			(lambda (class)
			(or (%sc-class-inherited class) <-- This yields a false.
			    (%inherit-from-mixins
					(%sc-allcvs class) <-- Nil
					(%sc-allivs class) <-- some value
					(%sc-method-structure class) <-- some value
					(%sc-mixins class) <-- Nil
					class	<-- Class value
					(lambda (class cvs ivs methods)
						(%sc-set-allcvs class cvs)
						(%sc-set-allivs class ivs)
						(%sc-set-method-structure class methods)
						(%sc-set-class-inherited class #!true)
						(%sign-on (%sc-name class) class))))))

		(define %inherit-from-mixins
			(lambda (cvs ivs methods mixins class receiver)
				(loop_mixins-lambda (cvs ivs methods mixins class receiver)
				(if mixins 
					< not important because mixins is () >
				(receiver class cvs ivs methods)))
			cvs ivs methods mixins class receiver)))

Here is what is wrong, when I exicute the (lambda (class cvs ivs
methods) with the values given 
from the line (loop_mixins-lambda (cvs ivs methods mixins ... by  itself
it gives me a () value which is 
correct, but when I execut this program the debuger tells me that the
values of (cvs ivs methods mixins class receiver) are left on the stack
which I think means that (receiver class cvs ivs methods) did not
get evaluated.  I have been trying to find ways around this problem and
different methods of evaluating the expression, but have had no luck.  I
guess the question is am I right in saying
	
	(receiver class cvs ivs methods) is not getting evaluated and does
anyone have any suggestions?
I have run out of ideas and now feel I am only wasting valuable time.

					-Thankyou for your attention,
					- and I appreciate your reply if you reply,

					-Kevin Marshall
					 km219092@lance.c