Ticket #75: c-backend-ref.diff.txt

File c-backend-ref.diff.txt, 535 bytes (added by Jim Ursetto, 16 years ago)
Line 
1Index: c-backend.scm
2===================================================================
3--- c-backend.scm (revision 15578)
4+++ c-backend.scm (working copy)
5@@ -1277,7 +1277,7 @@
6 ((const) (foreign-argument-conversion (cadr type)))
7 ((enum) "C_num_to_int(")
8 ((ref)
9- (string-append "*(" (foreign-type-declaration (car type) "*")
10+ (string-append "*(" (foreign-type-declaration (cadr type) "*")
11 ")C_c_pointer_nn("))
12 ((instance-ref)
13 (string-append "*(" (cadr type) "*)C_c_pointer_nn("))