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
[3;J
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.
|