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