038-record-internal-prims.scm (459B)
1 ; Internal record primitives are not part of the user-facing API 2 ; (R7RS records bind only the constructor / predicate / accessors / 3 ; mutators introduced by define-record-type). Calling %make-record-td 4 ; from user code must abort with "scheme1: unbound variable". 5 ; 6 ; This test is RED until the %record-* rows are removed from 7 ; prim_table; today it would otherwise return 33 from the old 8 ; through-public-binding path. 9 (%make-record-td 'foo 2) 10 (sys-exit 0)