Index: cgen/sid-model.scm =================================================================== RCS file: /cvs/src/src/cgen/sid-model.scm,v retrieving revision 1.9 diff -c -p -r1.9 sid-model.scm *** cgen/sid-model.scm 9 May 2006 18:33:04 -0000 1.9 --- cgen/sid-model.scm 7 Nov 2006 21:10:05 -0000 *************** static const MACH_IMP_PROPERTIES @cpu@_i *** 85,91 **** (gen-c-args (map (lambda (arg) (string-append (mode:c-type (mode:lookup (cadr arg))) ! " /*" (car arg) "*/")) (find (lambda (arg) ; Indices of scalars not passed. (not (null? (cdr arg)))) --- 85,91 ---- (gen-c-args (map (lambda (arg) (string-append (mode:c-type (mode:lookup (cadr arg))) ! " /*" (symbol->string (car arg)) "*/")) (find (lambda (arg) ; Indices of scalars not passed. (not (null? (cdr arg))))