Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-14 08:27:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Order of arguments flipped for make-rtd.

Browse source
This commit is contained in:
Alex Shinn 2012-02-12 13:38:25 +09:00
parent 0ad792a100
commit 5633b1dcf9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/99/records/procedural.scm
View file

@ -1,7 +1,7 @@
(define (make-rtd name fields . o) (define (make-rtd name fields . o)
(let ((parent (and (pair? o) (car o)))) (let ((parent (and (pair? o) (car o))))
(register-simple-type name (vector->list fields) parent))) (register-simple-type name parent (vector->list fields))))
(define (rtd? x) (define (rtd? x)
(type? x)) (type? x))