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

 
 

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

Submitter:  wxw <wxw1234>
Submitted:  Thu 14 Apr 2016 02:06:59 AM UTC
   
 
Category:  compiler Severity:  3 - Normal
Priority:  5 - Normal Item Group:  Incorrect behavior
Status:  Obsoleted Privacy:  Public
Assigned to:  None Originator Name: 
Open/Closed:  Closed
Keywords: 
* Mandatory Fields

Add a New Comment Rich Markup
   

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 cph (Updated the item)
  • -email is unavailable- added by wxw1234 (Submitted the item)
  • -email is unavailable- added by wxw1234
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 3 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2022-09-06 cph StatusNone Obsoleted
        Open/ClosedOpen Closed
    2016-04-14 wxw1234 Carbon-Copy- Added wxw1234

    Back to the top

    Powered by Savane 3.13-758e.
    Corresponding source code