Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!iuvax!rutgers!apple!oliveb!sun!centauri!bohica
From: bohica%centauri@Sun.COM (Tom McReynolds)
Newsgroups: comp.lang.scheme
Subject: Re: where define is legal
Summary: It works for me...
Message-ID: <100242@sun.Eng.Sun.COM>
Date: 21 Apr 89 01:16:00 GMT
References: <8904201554.AA13117@spt.entity.com>
Sender: news@sun.Eng.Sun.COM
Reply-To: bohica@sun.UUCP (Tom McReynolds)
Organization: Sun Microsystems, Mountain View
Lines: 31

I have a copy of Cscheme from prep.ai.mit.edu. I ran the example
described:

Scheme saved on Monday April 3, 1989 at 7:14:37 PM
  Release 6.1.2
  Microcode 10.2
  Runtime 13.91
  SF 3.13
  Student 13.3
*** Note: no graphics available in this system. ***

1 ==> (define (foo bool)
        (if bool
            (define (result) 't)
            (define (result) 'f))
        (result))

FOO

1 ==> (foo nil)

F

1 ==> (foo 't)

T


Am I missing something?

		-Tom