scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bug in S48_RECORD_TYPE: third parameter to s48_stob_ref was missing.

This commit is contained in:
mainzelm 2004-01-13 12:08:28 +00:00
parent af976ddde2
commit eb9410cc44
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/link/generate-c-header.scm
View File

@ -174,7 +174,7 @@
type index)) type index))
'("VECTOR" "RECORD") '("VECTOR" "RECORD")
'("(i)" "(i) + 1")) '("(i)" "(i) + 1"))
(c-define "S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD))") (c-define "S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD, 0))")
(c-define "S48_UNSAFE_RECORD_TYPE(x) (STOB_REF((x), 0))") (c-define "S48_UNSAFE_RECORD_TYPE(x) (STOB_REF((x), 0))")
(for-each (lambda (type) (for-each (lambda (type)
(c-define "S48_~A_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_~A))" (c-define "S48_~A_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_~A))"