bugMIT/GNU Scheme - Bugs: bug #47691, An expected result of `(define...

 
 

bug #47691: An expected result of `(define (A) (* 2 2))`

Submitted by:  wxw <wxw1234>
Submitted on:  Thu 14 Apr 2016 02:06:59 AM UTC  
 
Category: compilerSeverity: 3 - Normal
Priority: 5 - NormalItem Group: Incorrect behavior
Status: NonePrivacy: Public
Assigned to: NoneOriginator Name: 
Open/Closed: Open
Keywords: 

Add a New Comment(Rich Markup)
   

You are not logged in

Please log in, so followups can be emailed to you.

 

Thu 14 Apr 2016 02:15:06 AM UTC, comment #1:

Sorry, it's an unexpected result.

wxw <wxw1234>
Thu 14 Apr 2016 02:06:59 AM UTC, original submission:

OS: ubuntu15.04 desktop
```

zh@zh:~$ scheme
MIT/GNU Scheme running under GNU/Linux
Type `^C' (control-C) followed by `H' to obtain information about interrupts.

Copyright (C) 2011 Massachusetts Institute of Technology
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Image saved on Tuesday October 22, 2013 at 12:31:09 PM
Release 9.1.1 || Microcode 15.3 || Runtime 15.7 || SF 4.41 || LIAR/i386 4.118
Edwin 3.116

1 ]=> (define (A) (* 2 2))

;Value: a

1 ]=> A

;Value 11: #[compound-procedure 11 a]

1 ]=> a

;Value 11: #[compound-procedure 11 a]

1 ]=> (a)

;Value: ()

1 ]=> (define b (* 2 2 ))

;Value: b

1 ]=> b

;Value: 4

1 ]=> a

;Value 11: #[compound-procedure 11 a]

1 ]=> (a)

;Value: 4

1 ]=> (A)

;Value: 4

1 ]=> (define (c) (* 3 3))

;Value: c

1 ]=> c

;Value 12: #[compound-procedure 12 c]

1 ]=> (c)

;Value: 9

1 ]=>
End of input stream reached.
Moriturus te saluto.
zh@zh:~$ clear

zh@zh:~$ scheme
MIT/GNU Scheme running under GNU/Linux
Type `^C' (control-C) followed by `H' to obtain information about interrupts.

Copyright (C) 2011 Massachusetts Institute of Technology
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Image saved on Tuesday October 22, 2013 at 12:31:09 PM
Release 9.1.1 || Microcode 15.3 || Runtime 15.7 || SF 4.41 || LIAR/i386 4.118
Edwin 3.116

1 ]=> (define (A) (* 2 2))

;Value: a

1 ]=> a

;Value 11: #[compound-procedure 11 a]

1 ]=> (a)

;Value: 4

1 ]=>

```

The first time I call the procedure `(a)`. the value is `()`. But after that, this result never appeared again.

wxw <wxw1234>

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach File(s):
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -unavailable- added by wxw1234 (Submitted the item)
  • -unavailable- added by wxw1234
  •  

    Do you think this task is very important?
    If so, you can click here to add your encouragement to it.
    This task has 0 encouragements so far.

    Only logged-in users can vote.

     

    Please enter the title of George Orwell's famous dystopian book (it's a date):

     

     

    Follows 1 latest change.

    Date Changed By Updated Field Previous Value => Replaced By
    Thu 14 Apr 2016 02:06:59 AM UTCwxw1234Carbon-Copy-=>Added wxw1234

    Back to the top


    Powered by Savane 3.1-cleanup1