define-record-type broke between Versions 0.31.0 and 0.32.0

[natethern]

define-record-type broke between Versions 0.31.0 and 0.32.0:

user@computer:~/src$ git clone https://github.com/justinethier/cyclone-bootstrap && cd cyclone-bootstrap && git fetch -a
...
user@computer:~/src/cyclone-bootstrap$ CYCLONE_VERSION=v0.31.0
user@computer:~/src/cyclone-bootstrap$ git checkout ${CYCLONE_VERSION} && make
...
user@computer:~/src/cyclone-bootstrap$ sudo make install
...
user@computer:~/src/cyclone-bootstrap$ icyc
Cyclone Version 0.31.0
cyclone> (define-record-type <r> (make-r a b c) r? (r-a ra) (r-b rb) (r-c rc))
ok
cyclone> make-r
(procedure (a b c) ...)
cyclone> ^D
user@computer:~/src/cyclone-bootstrap$ CYCLONE_VERSION=v0.32.0
user@computer:~/src/cyclone-bootstrap$ git checkout ${CYCLONE_VERSION} && make
...
user@computer:~/src/cyclone-bootstrap$ sudo make install
...
user@computer:~/src/cyclone-bootstrap$ icyc
Cyclone Version 0.32.0
cyclone> (define-record-type <r> (make-r a b c) r? (r-a ra) (r-b rb) (r-c rc))
ok
cyclone> make-r
Error: Unbound variable: make-r
cyclone> ^D
user@computer:~/src/cyclone-bootstrap$ 

It's still broken in Version 0.37.0

[yorickhardy]

I see the same when using icyc.

On the other hand, cyclone seems to compile and run the example:

(import (scheme base) (scheme write))

(define-record-type <r> (make-r a b c) r? (r-a ra) (r-b rb) (r-c rc))
(display (make-r 1 2 3))

and outputs

#(<Record Marker> <r> #(1 2 3))

So we will probably have to look at scheme/eval.sld.