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:  compiler Severity:  3 - Normal
Priority:  5 - Normal Item Group:  Incorrect behavior
Status:  None Privacy:  Public
Assigned to:  None Originator 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 Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

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

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

    Only logged-in users can vote.

     

     

     

    Follows 1 latest change.

    Date Changed by Updated Field Previous Value => Replaced by
    2016-04-14 wxw1234 Carbon-Copy- => Added wxw1234

    Back to the top


    Powered by Savane 3.3